Veteran
Beiträge: 289
![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) 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 |