Masked
Legacy Member
Ik probeer dus gegevens uit een datagrid te wijzigen met een updatecommand. Programmeren is niet mijn sterkste kant dus het zou goed kunnen dat hier ergens een fout inzit. Ik maak gebruik van visual studio 2003
Als ik deze code uitvoer is er geen enkel probleem, alleen dat hij blijkbaar niet let op wat ik in de tekstvakken gewijzigd heb. Er komt altijd terug hetzelfde in. De connectie zelf werkt, want als ik met vaste waarden werk in de sql, veranderd dit wel. Hier volgt mijn code
Alvast bedankt om is te kijken!
Het gaat hier trouwens om een aangepaste code uit een cursus
Als ik deze code uitvoer is er geen enkel probleem, alleen dat hij blijkbaar niet let op wat ik in de tekstvakken gewijzigd heb. Er komt altijd terug hetzelfde in. De connectie zelf werkt, want als ik met vaste waarden werk in de sql, veranderd dit wel. Hier volgt mijn code
Code:
Private Sub datagrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
'Besturingselementen
Dim txttitel As TextBox = CType(e.Item.Cells(1).Controls(0), TextBox)
Dim txtnieuws As TextBox = CType(e.Item.Cells(2).Controls(0), TextBox)
Dim txtauteur As TextBox = CType(e.Item.Cells(3).Controls(0), TextBox)
Dim txtdatum As TextBox = CType(e.Item.Cells(4).Controls(0), TextBox)
Dim txtcategorie As TextBox = CType(e.Item.Cells(5).Controls(0), TextBox)
Dim txtklas As TextBox = CType(e.Item.Cells(6).Controls(0), TextBox)
Dim objCode As TableCell = e.Item.Cells(0)
'Inhoud
Dim strCode, strtitel, strnieuws, strauteur, strdatum, strcategorie, strklas As String
Dim strSql As String
strCode = objCode.Text
strtitel = txttitel.Text
strnieuws = txtnieuws.Text
strauteur = txtauteur.Text
strdatum = txtdatum.Text
strcategorie = txtcategorie.Text
strklas = txtklas.Text
'het update-commando
strSql = "update tblnieuws set titel='" & strtitel & "', nieuws='" & strnieuws & "', auteur='" & strauteur & " ', datum='" & strdatum & "', categorieID='" & strcategorie & "', klas='" & strklas & " ' WHERE ID=" & strCode
Dim scmdUpdate As New OleDb.OleDbCommand(strSql, cnnWijzigen)
'het update-commando uitvoeren
cnnWijzigen.Open()
scmdUpdate.ExecuteNonQuery()
cnnWijzigen.Close()
'editmode sluiten en de gegevens vernieuwen
DataGrid1.EditItemIndex = -1
stelgegevensvoor()
End SubAlvast bedankt om is te kijken!
Het gaat hier trouwens om een aangepaste code uit een cursus