Tabellenverknüpfung will nicht mehr
StefanWirrer
Gesendet: 02.03.23 11:53
Betreff: Tabellenverknüpfung will nicht mehr


Veteran

Beiträge: 287
100100252525
Ort: München

Hallo,

wir wollen das Backend updaten ... leider will Access da nicht so mitspielen.

Der Testcode:
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim dbsODBC As DAO.Database
Dim tdfODBC As DAO.TableDef
Dim strLocalName As String
Const ODBCConnect = "ODBC;Driver={PostgreSQL Unicode};Server=srvxxx;Port=5432;Database=dbtest;Uid=db;Pwd=geheim;"

' Lokale Datenbank
Set dbs = CurrentDb()
' ODBC-Datenbank in Jet öffnen
Set dbsODBC = DBEngine.OpenDatabase("DSNNAME", dbDriverNoPrompt, True, ODBCConnect)

dbsODBC.TableDefs.Refresh
' Alle Tabellen verknüpfen
For Each tdfODBC In dbsODBC.TableDefs
   strLocalName = Mid(tdfODBC.Name, InStr(1, tdfODBC.Name, "." ) + 1)
   If strLocalName = "tbl_anschreiben" Then
      Set tdf = dbs.CreateTableDef(strLocalName & "__", 0&, tdfODBC.Name, dbsODBC.Connect)
      dbs.TableDefs.Append tdf ' <--- Fehler
   End If
Next tdfODBC
dbs.TableDefs.Refresh

 

Fehlermeldung:

3146  ODBC-Aufruf fehlgeschlagen.

 1     Error while executing the query

 

Mit der produktiven DB funktioniert das (PG9.6). Auf dem Testserver ist PG14.

Access 2016, PostgeSQL

 

Die Verbindung wird hergestellt, aber bei dbs.TableDefs.Append tdf kommt der Fehler.

Hat jemand eine Idee was das Problem ist?

 


-----
Grüße aus München
Stefan
Top of the page Bottom of the page