title image


Smiley Re: DAO Datensatz kopieren
Hallo, das kannst Du wesentlich einfacher machen:

' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!

 

Dim DB As ADODB.Connection

Dim RS As ADODB.Recordset

 

Private Sub Form_Load()

Set DB = New ADODB.Connection

 

DB.CursorLocation = adUseClient

DB.Provider = "Microsoft.Jet.OLEDB.4.0"

DB.Open "d:\db1.mdb"

 

' wenn das Feld Postleitzahl ein Textfeld ist:

DB.Execute "SELECT * INTO NeueTabelle FROM AlteTabelle where Postleitzahl='4711'"

 

' wenn das Feld Postleitzahl ein Zahlenfeld ist:

DB.Execute "SELECT * INTO NeueTabelle FROM AlteTabelle where Postleitzahl=4711"

 

End Sub

 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: