Het lukt me niet om een rij toe te voegen in een tabel, wat doe ik fout ?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim invoerveld As String
Dim invoerveld2 As String
Dim r As DataSet1.RTVtestRow
invoerveld = TextBox1.Text
invoerveld2 = DropDownList1.SelectedItem.Text
Label1.Text = invoerveld
Label2.Text = invoerveld2
r = DataSet11.RTVtest.NewRTVtestRow()
r.id = 1
r.opmerking = invoerveld
r.kanttekening = invoerveld2
SqlDataAdapter3.Update(DataSet11)
het sql statement:
'SqlInsertCommand3
'
Me.SqlInsertCommand3.CommandText = "INSERT INTO RTVtest(opmerking, kanttekening, id) VALUES (@opmerking, @kanttekenin" & _
"g, @id); SELECT opmerking, kanttekening, id FROM RTVtest WHERE (id = @id)"
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@opmerking", System.Data.SqlDbType.VarChar, 1000, "opmerking"))
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kanttekening", System.Data.SqlDbType.VarChar, 100, "kanttekening"))
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
Ik krijg geen foutmelding als ik op de add knop druk, maar er wordt geen rij toegevoegd.
Wie weet de oplossing ?
Alvast bedankt!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim invoerveld As String
Dim invoerveld2 As String
Dim r As DataSet1.RTVtestRow
invoerveld = TextBox1.Text
invoerveld2 = DropDownList1.SelectedItem.Text
Label1.Text = invoerveld
Label2.Text = invoerveld2
r = DataSet11.RTVtest.NewRTVtestRow()
r.id = 1
r.opmerking = invoerveld
r.kanttekening = invoerveld2
SqlDataAdapter3.Update(DataSet11)
het sql statement:
'SqlInsertCommand3
'
Me.SqlInsertCommand3.CommandText = "INSERT INTO RTVtest(opmerking, kanttekening, id) VALUES (@opmerking, @kanttekenin" & _
"g, @id); SELECT opmerking, kanttekening, id FROM RTVtest WHERE (id = @id)"
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@opmerking", System.Data.SqlDbType.VarChar, 1000, "opmerking"))
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kanttekening", System.Data.SqlDbType.VarChar, 100, "kanttekening"))
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
Ik krijg geen foutmelding als ik op de add knop druk, maar er wordt geen rij toegevoegd.
Wie weet de oplossing ?
Alvast bedankt!