INSERT Befehl bei MySQL DB

[timee]

Hi Leute,

bekomme beim absenden meines INSERT Befehles immer eine Fehlermeldung!

Public Sub dbbelegschreiben(ByVal username As String, ByVal artikelnr As UInteger)
        Dim zeitpunkt As String = Format(Now, "dd-MM-yyyy hh:mm:ss")
        Dim strSQL As String = "INSERT into verkauf (name,zeitpunkt,artikelnr) VALUES (" & username & "," & zeitpunkt & "," & artikelnr & ");"
        Con.ConnectionString = sqlConnString
        Con.Open()
        Dim cmd As MySqlCommand = New MySqlCommand(strSQL, Con)
        cmd.ExecuteNonQuery()
        Con.Close()
    End Sub

Die DB wurde wie folgt erstellt:

CREATE TABLE `shopi`.`verkauf` (
`id` INT UNSIGNED NOT NULL AUTO_INCREMENT,
`name` VARCHAR( 20 ) CHARACTER SET latin1 COLLATE latin1_german1_ci NOT NULL ,
`zeitpunkt` TEXT NOT NULL ,
`artikelnr` SMALLINT UNSIGNED NOT NULL ,
PRIMARY KEY ( `id` )
) ENGINE = MYISAM CHARACTER SET latin1 COLLATE latin1_german1_ci

 

[kuddeldaddeldu]

Hi,

da Deine Felder Name und Zeitpunkt nicht numerisch sind, müssen die Werte in der Abfrage in Hochkommata stehen.
Das nächste Mal lässt Du Dir den String ausgeben und postest hier wenn schon bitte auch, welche Fehlermeldung kommt.

LG

 

[timee]

Ok, danke für den Hinweis!
Nur wie bekomme ich da nun Hochkommas mit rein?
Hab schon verschiedene Varianten versucht.
Sorry, bin absoluter anfänger was das angeht!

 

[kuddeldaddeldu]

Schreib sie doch einfach rein. Was für "Varianten" hast Du da versucht?

LG

 

[timee]

Meinst du so?

Dim strSQL As String = "INSERT into verkauf (name,zeitpunkt,artikelnr) VALUES (" "& username &" "," "& zeitpunkt & ""," & artikelnr & ");"

 

[kuddeldaddeldu]

Ich rede von Hochkommata ('), nicht von Anführungszeichen ("). Wenn Du die doppelten Anführungszeichen verwenden willst, wirst Du die escapen müssen, sonst beendest Du den String.

LG

 

[timee]

Oh, es war wohl doch schon zu spät gestern!
Hab da etwas auf dem Schlauch gestanden.
Ich danje Dir nochmal für die Hilfe und Hinweise um zur Lösung zu kommen.

Sieht nun so aus und funktioniert:

Dim strSQL As String = "INSERT into verkauf (name,zeitpunkt,artikelnr) VALUES ('" & username & "','" & zeitpunkt & "','" & artikelnr & "');"

THX
Timee