Access 2000 ODBC table links

From: "Ni Kun" <tianni(at)bsc(dot)fujitsu(dot)com>
To: <pgsql-odbc(at)postgresql(dot)org>
Subject: Access 2000 ODBC table links
Date: 2001-11-13 07:31:39
Message-ID: 000701c16c15$3be8f380$86e9490a@atlantis
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-odbc

Private Sub Link_ODBCTbl(rstrTblSrc As String, rstrTblDest As String,
dbsCurrent As Database)

Dim tdf As TableDef

On Error Resume Next

Set tdf = dbsCurrent.CreateTableDef(rstrTblDest)
dbsCurrent.TableDefs.Delete rstrTblDest

tdf.Connect = "ODBC;DRIVER={PostgreSQL};" _
& "DATABASE=soldb;SERVER=10.73.233.137;" _
& "PORT=5432;" _
& "UID=soluser;" _
& "PWD=soluser;READONLY=0;PROTOCOL=6.4;" _
& "FAKEOIDINDEX=1;SHOWOIDCOLUMN=1;" _
& "ROWVERSIONING=1;SHOWSYSTEMTABLES=0;" _
& "CONNSETTINGS="
tdf.SourceTableName = rstrTblSrc

dbsCurrent.TableDefs.Append tdf
dbsCurrent.TableDefs.Refresh

End Sub

Windows2000: Postgre7.1.3+Access2000
"dbsCurrent.TableDefs.Append tdf" executing、why Access2000 Program
closed?Momory Error?

Responses

Browse pgsql-odbc by date

  From Date Subject
Next Message Dave Page 2001-11-13 08:35:47 Re: Last inserted id
Previous Message Bruce Momjian 2001-11-13 01:07:02 Re: [ODBC] MD5 support for ODBC