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
wincnc
,
27.09.2005, 11:06 Uhr
, 28 mal gelesen