Daten von Formular in Tabelle schreiben

Computer: Software & Programmierung SQL & Datenbank - Programmierung
#1

Hallo,
ich bekomme immer einen Laufzeitfehler wenn ich versuche meine eingegebenen Daten aus dem Formular in die dazugehörige Tabelle zu schreiben. er sagt mir immer was von syntax error
wäre super wenn mal jemand übern quellcode gucken könnte wo das prob liegt! danke

"
Private Sub btlaHinzufuegen_Click()

Dim sql, lieferantendet(7), laufNr As String
Dim cmdWrite As New ADODB.Command
Dim intCounter As Integer

'Lieferantendaten aus Form ziehen

Me.tflaLieferantenNr.SetFocus
lieferantendet(0) = tflaLieferantenNr.Text
Me.tflaFirmenname.SetFocus
lieferantendet(1) = tflaFirmenname.Text
Me.tflaHomepage.SetFocus
lieferantendet(2) = tflaHomepage.Text
Me.tflaStrasse.SetFocus
lieferantendet(3) = tflaStrasse.Text
Me.tflaPLZ.SetFocus
lieferantendet(4) = tflaPLZ.Text
Me.tflaOrt.SetFocus
lieferantendet(5) = tflaOrt.Text
Me.tflaTelefon.SetFocus
lieferantendet(6) = tflaTelefon.Text
Me.tflaFax.SetFocus
lieferantendet(7) = tflaFax.Text

If lieferantendet(1) = „“ Then
MsgBox „Bitte Firmennamen eingeben!“
Exit Sub
End If

sql = " INSERT INTO Lieferanten Values ("
For intCounter = 0 To 7
sql = sql & lieferantendet(intCounter) & „’)“
Next

cmdWrite.CommandText = sql
cmdWrite.ActiveConnection = CurrentProject.Connection
cmdWrite.Execute

DoCmd.Close
DoCmd.OpenForm „Ansprechpartner“

End Sub
"

#2

Hallo lightgirl,

schreib doch mal ein debug.print sql in den Code:
Mein verdacht ist dass Du ein

INSERT INTO Lieferanten Values (3’)testfirma’)

erhälst. Gewünscht wäre doch eher

INSERT INTO Lieferanten Values (3, ‚testfirma‘)

Also abhängig vom Datentyp in der Tabelle als Zahl oder String und artig mit Komma getrennt (Vorsicht, wenn eine Zahl nicht gefüllt wird!)

MfG Georg V.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo,

deine Value-Auflistung muss jeweils durch ein Komma getrennt sein.
Versuche mal folgende Änderung:

sql = " INSERT INTO Lieferanten Values ("
For intCounter = 0 To 6
sql = sql & „’“ & lieferantendet(intCounter) & „’,“
Next
sql=sql & „’“ & lieferantendet(7) & „’)“

Gruß EPa

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]