title image


Smiley Re: Datenvergleich unterschiedlicher Datenbanken
Beispiel für DAO unter folgenden Annahmen:1.) Du besitzt zwei Datenbanken namens db1.mdb und db2.mdb, die sich beide in Applikationsverzeichnis befinden.2.) In beiden Datenbanken gibt es Tabellen namens [MeineTabelle]. die jeweils einen Primärschlüssel namend [ID] enthalten.Dann liefert folgender Code einen Inner Join zurück:Sub Main() Dim DB As Database, RST As Recordset  ' Irgend eine Datenbank öffnen, da OpenRecordset eine Methode des Database-Objektes ist: Set DB = OpenDatabase(App.Path & "\db1.mdb") Set RST = DB.OpenRecordset _ ("SELECT A.*, B.* " & _ "FROM [" & App.Path & "\db1.mdb].MeineTabelle AS A " & _ "INNER JOIN [" & App.Path & "\db2.mdb].MeineTabelle AS B ON " & _ "A.ID = B.ID;") ' '.... ' RST.Close: DB.CloseEnd SubDa beide Tabellen den gleichen Namen haben, verwende ich die Aliase "A" und "B".Viel Erfolg!Thomas Prötzschcu
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: