vb.net <-> MYSQL

[svenkas]

Habe ein kleines Problem beim Updaten meiner Datenbank.
Das Anlegen von neuen Datensätzen funktioniert wunderbar, doch wenn ich versuche einen Datensatz zu updaten erscheint folgender Fehler:

---> Eine nicht behandelte Ausnahme des Typs 'System.Runtime.InteropServices.COMException' ist in MAN.exe aufgetreten.

Zusätzliche Informationen: [Microsoft][ODBC Driver Manager] Ungültige Zeichenfolgen- oder Pufferlänge

Kann mir jemand bei der Lösung meines Problemes helfen

Private Sub cb_anlegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_anlegen.Click

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String

db = New ADODB.Connection
rs = New ADODB.Recordset

strSQL = cmb_Auftrag.SelectedItem

db.Open("PROVIDER=msdasql;DSN=MAN")

rs.Open("SELECT * FROM Aufträge WHERE Auftragsnummer = " + Chr(34) & strSQL & Chr(34) + "", db, 3, 3)

If (rs.EOF = False) Then
rs("Extern").Value = TB_AG_Nummer.Text
rs("Abrechnungsart").Value = TB_Abrechnungsart.Text
rs("Anlage").Value = tb_Anlage.Text
rs("Maschine").Value = tb_Maschine.Text
rs("Tätigkeit").Value = tb_Leistung.Text
rs("Auftraggeber").Value = tb_Auftraggeber.Text
rs("Sollstunden").Value = TB_Sollstunden.Text
rs("rss1").Value = TB_RSS1.Text
rs("Kostenstelle").Value = TB_Kostenstelle.Text
rs.Update()
MsgBox("Ihr Auftrag: " & cmb_Auftrag.SelectedItem & " wurde aktualisiert.")
TB_RESET()
End If

rs.Close()
db.Close()
rs = Nothing
db = Nothing
End Sub

 

[Norbert Eder]

Was steht denn in deinen Feldern so drinnen?

Probleme mit Beistrichen, Anführungszeichen etc.?