ADO, PostgreSQL

[Pavel Prokop]

Dobry den,

snazim se v Accessu vlozit do tabulky v PostgreSQL

CREATE TABLE public."MojeTabulka" (
  "ID" int4 DEFAULT nextval('public."MojeTabulka_ID_seq"'::text) NOT NULL,
  "Pole2" int4,
  "Pole3" int4
  CONSTRAINT "ID_pkey" PRIMARY KEY ("ID"),
) WITH OIDS;

novy zaznam:

Global Const CNN_DSN = "PostgreSQL2"
Global Const CNN_DATABASE = "MojeDatabaze"
Global Const CNN_SERVER = "muj.server.cz"
Global Const CNN_PORT = 5432
Global Const CONNECT_STRING = 82
Global Const PASS_THROUGH_STATEMENT = 83

Dim strInsertSQL As String
Dim cmdCurr As New ADODB.Command

strInsertSQL = "INSERT INTO ""MojeTabulka"" " & _
    "(""Pole2"", ""Pole3"") " & _
    "VALUES (1 , " & _
    "2);"
cmdCurr.ActiveConnection = CurrentProject.Connection
cmdCurr.CommandText = strInsertSQL
cmdCurr.Properties(PASS_THROUGH_STATEMENT) = True
cmdCurr.Properties(CONNECT_STRING) = "ODBC;DSN=" & CNN_DSN & ";DATABASE=" &
CNN_DATABASE _
& ";SERVER=" & CNN_SERVER & ";PORT=" & CNN_PORT _
& ";A6=;A7=100;A8=4096;B0=254;B1=8190;BI=0;C2=dd_;;CX=18503a9"
cmdCurr.Execute

Zaznam se vlozi, ale vzdy DVAKRAT. Nevi nekdo, kde by mohla byt zavada?

Dekuji,

Pavel Prokop