Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SQL ersetzen
Autor: Chris
Datum: 10.02.02 19:39
Hi ! ! ! Mit folgendem Code ersetze ich per SQL Daten aus einer Datenbank. Dim SQL As String Dim DB As Database Dim dbFile As String dbFile = "C:ProgrammDaten.mdb" Set DB = DBEngine.OpenDatabase(dbFile, False, False) SQL = "UPDATE Kunden SET Vorname = '" & txtVorname.Text & "' Where ArtikelNr = " & Me.lblArtikelNr.Caption DB.Execute SQL MsgBox "Daten wurden geändert!", vbInformation, "Information" Jetzt möchte ich aber nicht nur den Vorname sondern auch den Nachname und das GebDatum des Kunden ändern. Das habe ich dann so versucht: Dim SQL As String Dim DB As Database Dim dbFile As String dbFile = "C:ProgrammDaten.mdb" Set DB = DBEngine.OpenDatabase(dbFile, False, False) SQL = "UPDATE Kunden SET Vorname = '" & txtVorname.Text & "' And Nachname = '" & txtNachname.Text & "' And GebDatum = '" txtGebDatum.Text & "' Where ArtikelNr = " & Me.lblArtikelNr.Caption DB.Execute SQL MsgBox "Daten wurden geändert!", vbInformation, "Information" Aber das funktioniert nicht. Ich bekomme zwar keinen Fehler, aber er ändert nur das GebDatum um und sonst nichts. Was habe ich falsch gemacht??? Danke Mit freundlichen Grüßen Chris

SQL ersetzen	57	Chris	10.02.02 19:39
Re: SQL ersetzen	213	unbekannt	10.02.02 19:42
Funktioniert - Danke (o.T.)	34	Chris	10.02.02 19:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen