Access Tabellen verknüpfen

[Dieter Schirmer]

Hallo zusammen,

ich möchte einer Access Datenbank eine Tabelle aus einer weiteren Access
Datenbank durch Verknüpfung hinzufügen. In einer Access-Anwendung (Frontend)
funktioniert es auf direktem Weg oder per VBA sehr gut. Aber wie löse ich
das Problem mit VB6.
Ich muß dies auf diese Art lösen, da ich nur so die unterschiedlichen
Speicherorte der Datenbanken verwalten kann und die Access Datenbanken keine
Anwendungen (Frontend) sondern nur reine Datenbanken (Backend) sind. Auch
soll die Funktion in eine bestehende Anwendung in VB6 integriert werden.

Für einen Tip oder Codeschnipsel bin ich sehr dankbar.

Gruß
Dieter

[Peter Fleischer]

Post by Dieter Schirmer
ich möchte einer Access Datenbank eine Tabelle aus einer weiteren Access
Datenbank durch Verknüpfung hinzufügen. In einer Access-Anwendung
(Frontend) funktioniert es auf direktem Weg oder per VBA sehr gut. Aber
wie löse ich das Problem mit VB6.

Hi Dieter,
da geht in VB6 genau wie in VBA:

With cat
' Tabelle als Verknüpfung auf Tabelle in anderer Access-Datenbank erstellen
Set tbl = New ADOX.Table
With tbl
.Name = "Tab4"
Set .ParentCatalog = cat
.Properties("Jet OLEDB:Remote Table Name") = "Firmen"
.Properties("Jet OLEDB:Link Datasource") = App.Path &
"\test.mdb"
.Properties("Jet OLEDB:Create Link") = True
End With
.Tables.Append tbl
.Tables.Refresh
...

[Dieter Schirmer]

Hallo Peter,

danke für Deinen Tip. Leider konnte ich das so noch nicht zum Laufen bringen
(zu wenig Erfahrung mit ADO), aber ich habe dank Deiner Info das mit DAO
umgesetzt und das funktioniert auch. Werde das mit ADO bei nächster
Gelegenheit nochmal in Angriff nehmen. Vielleicht kannst Du mir die Routine
noch etwas ausführlicher beschreiben. Das wäre jedenfalls sehr hilfreich.
Nochmals vielen Dank auch für weitere Infos.

Gruß

Dieter

[Peter Fleischer]

Post by Dieter Schirmer
danke für Deinen Tip. Leider konnte ich das so noch nicht zum Laufen
bringen (zu wenig Erfahrung mit ADO), aber ich habe dank Deiner Info
das mit DAO umgesetzt und das funktioniert auch.

Hi Dieter,
wenn ich gewusst hätte, dass du nach antiquierten Lösungswegen suchst :-),
dann hätte ich gleich die DAO-Variante gepostet.

' Tabelle als Verknüpfung auf Tabelle in anderer Access-Datenbank erstellen
Set TD = db.CreateTableDef("Tab2")
TD.Properties("Connect") = "DATABASE=C:\test.mdb"
TD.Properties("SourceTableName") = "Tab1"
db.TableDefs.Append TD

Post by Dieter Schirmer
Werde das mit ADO
bei nächster Gelegenheit nochmal in Angriff nehmen. Vielleicht kannst
Du mir die Routine noch etwas ausführlicher beschreiben. Das wäre
jedenfalls sehr hilfreich. Nochmals vielen Dank auch für weitere
Infos.

Schreib ma genauer, was in der Hilfe zu den einzelnen genutzten
Eigenschaften und Methoden unklar ist. Es gibt da eigentlich wenig
Abweichungen zu Access-VBA. Mit Access-VBA hat man lediglich weniger
Aufwand, um die erste Verbindung aufzubauen, da diese bereits vorliegt.