INSERT-Problem

magic_halli

Erfahrenes Mitglied
Hi,

hier ist erstmal mein Insert-Code:
Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim datum, prof, fach
        datum = Calendar1.SelectedDate.ToShortDateString()
        prof = DropDownList1.SelectedItem.ToString()
        fach = DropDownList2.SelectedItem.ToString()

Dim connStr3 As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp_net\diplom.mdb;"
conn3 = New OleDbConnection(connStr3)
conn3.Open()
Dim sqlStr3 As String = "INSERT INTO Test_Insert(Datum, Professor, Veranstalltung) VALUES ('" & datum & "','" & prof & "','" & fach & "')"
conn3.Close()
End Sub


Ich will die Sachen, die der User in meinen DropDownList's angeklickt hat, mit dem Button-Klick in die DB eingetragen.
Es trägt aber keinerlei Werte ein - Felder bleiben lehr.

Woran kann das liegen?

Danke, Rico.
 
Hi!

Du solltest auch ein Command-Objekt benutzen, sonst wird das nix:

Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim datum, prof, fach
        datum = Calendar1.SelectedDate.ToShortDateString()
        prof = DropDownList1.SelectedItem.ToString()
        fach = DropDownList2.SelectedItem.ToString()

Dim connStr3 As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp_net\diplom.mdb;"
Dim myCommand As New OleDbCommand()
conn3 = New OleDbConnection(connStr3)
conn3.Open()
Dim sqlStr3 As String = "INSERT INTO Test_Insert(Datum, Professor, Veranstalltung) VALUES ('" & datum & "','" & prof & "','" & fach & "')"
myCommand.CommandText = sqlStr3
myCommand.Connection = conn3
myCommand.ExecuteNonQuery()
conn3.Close()
End Sub
So sollte es gehen.

MfG
..::Six Dark::..
 
...habe das so geändert.
Jetzt erhalte ich aber bei myCommand.ExecuteNonQuery() eine Fehlermeldung, die da sagt, dass eine SQL-Anweisung erwartet wird - in der Zeile eben mit ExecuteNonQuery().
 

Neue Beiträge

Zurück