title image


Smiley Re: Übernahme einer Tabelle aus DB1 nach DB2 (VB6)
Hallo

Wenn die Datenbanken Passwortgeschützt sind musst Du es mit DAO machen:

Private Sub Command1_Click()

' Verweis auf Microsoft DAO 3.51 oder DAO 3.6 Object Library nicht vergessen !

' Mit DAO

 

Dim Con As DAO.Database

Dim Con2 As DAO.Database

 

Set Con = DBEngine.OpenDatabase("D:\vb\testsicherung\db2.mdb", False, False, ";pwd=DeinPasswort")

 

' Diese Connection brauchst Du nur, wenn die mdb Paswortgeschützt ist.

Set Con2 = DBEngine.OpenDatabase("D:\vb\db1.mdb", False, False, ";pwd=DeinPasswort")

 

Con.Execute "SELECT * INTO [D:\vb\db1.mdb].Tabelle1 FROM Tabelle1"

 

Con.Close

Con2.Close

 

Set Con = Nothing

Set Con2 = Nothing

 

End Sub

 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: