Dichiariamo la ConnectionString
Public Class Form1
Public ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Prova\Prova.mdb;Persist Security Info=false;"
Public Cn As New OleDb.OleDbConnection(ConnString)
Public dr As OleDb.OleDbDataReader
Public cmd As OleDb.OleDbCommand
Public sql As String
Adesso scriviamo la query di UPDATE:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Cn.Open()
sql = "UPDATE Tabella1 SET Nome=" & Chr(34) & NomeTextBox.Text & Chr(34) & " "
'where(IdRiga = " & IDrigaTextBox.Text")
cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()
End Sub
In questo modo, per tutti i record, nel campo Nome, salveremo ciò che sta scritto nella Textbox chiamata NomeTextbox.text.
Per aggiornare solo il record corrente, sul quale ci troviamo, dobbiamo fare uso della clausola WHERE.
WHERE sta a dire "DOVE".
In questo caso possiamo dire:
Salva il contenuto della text Nometextbox sul numero di codice sul quale mi trovo, dove il numero di codice è uguale a quello che mi riporta la
textbox dove viene visualizzato esso.
Quindi scriviamo la query in questo modo:
Cn.Open()
sql = "UPDATE Tabella1 SET Nome=" & Chr(34) & NomeTextBox.Text & Chr(34) & " where Codice=" & CodiceTextBox.Text
cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()