Access DB über Visual Basic updaten

[blaustreetballer]

Hallo,
ich möchte gerne über ein Formular in Visual Basic eine Access 2000 Datenbank updaten. Funktioniert nur leider net. Hier der Code:

-------------

Dim conDBConn as ADODB.Connection
Dim recSQLUPDATE As Recordset
Dim recSQLUPDATE2 As Recordset


Private Sub Command2_Click()

If Text1.text = "" Then

Set conDBConn = New ADODB.Connection
conDBConn.Provider = "Microsoft.Jet.OLEDB.4.0"
conDBConn.ConnectionString = "Data Source=C:\Dokumente und Einstellungen\Rock 'n' Roll\Eigene Dateien\Schule\12. Klasse\Informatik\Informatik Projekt\db1.mdb"
conDBConn.Open

Set recSQLUPDATE = conDBConn.Execute("UPDATE tbl_Buch SET tbl_Buch.Titel = label4 WHERE (((tbl_Buch.Titel)=label4)) ")

Else
Set conDBConn = New ADODB.Connection
conDBConn.Provider = "Microsoft.Jet.OLEDB.4.0"
conDBConn.ConnectionString = "Data Source=C:\Dokumente und Einstellungen\Rock 'n' Roll\Eigene Dateien\Schule\12. Klasse\Informatik\Informatik Projekt\db1.mdb"
conDBConn.Open

Set recSQLUPDATE2 = conDBConn.Execute("UPDATE tbl_Buch SET tbl_Buch.Titel = text1.text WHERE (((tbl_Buch.Titel)=label4)) ")

End If


End Sub

----------

Vielleicht könnt Ihr mir ja helfen. Danke im voraus.

 

[Alex F.]

1. müsste dein Update so aussehen:

conDBConn.Execute("UPDATE tbl_Buch SET tbl_Buch.Titel = ' "& label4.caption & " 'WHERE (((tbl_Buch.Titel)=' " label4.caption & " ')) ")

2 . wenn du den datensatz noch nicht hast musst du ein Insert machen

3. Wenn du den titel änderst wo der titel = titel ist wird da nicht viel bei rumkommen

Grüsse bb

PS: Benutze bitte die [CODE][/CODE][code=vb][/code]