voici notre solution :
Dim con = New System.Data.OleDb.OleDbConnection(chaine_con)
Dim req As String
req = "UPDATE bts SET site= '" & mbts2.Text & "', typedebts= '" & mbts3.Text & "',configuration = '" & mbts4.Text & "',typedesupport='" & mbts5.Text & "',hbaantenne='" & mbts6.Text & "',typedetransmission='" & mbts7.Text & "',hbadefh='" & mbts8.Text & "',nombredefh='" & mbts9.Text & "',datemiseenservice='" & mbts10.Text & "',datemiseajour='" & mbts11.Text & "',cibsc='" & mbts12.Text & "',distancecentralebts='" & mbts13.Text & "' WHERE (num = '" & mbts1.Text & "' )"
Dim cmd = New OleDbCommand(req, con)
con.Open()
cmd.CommandText = req
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
mais il y a un erreur :
" Dim con = New System.Data.OleDb.OleDbConnection(chaine_con)
Dim req As String
req = "UPDATE bts SET site= '" & mbts2.Text & "', typedebts= '" & mbts3.Text & "',configuration = '" & mbts4.Text & "',typedesupport='" & mbts5.Text & "',hbaantenne='" & mbts6.Text & "',typedetransmission='" & mbts7.Text & "',hbadefh='" & mbts8.Text & "',nombredefh='" & mbts9.Text & "',datemiseenservice='" & mbts10.Text & "',datemiseajour='" & mbts11.Text & "',cibsc='" & mbts12.Text & "',distancecentralebts='" & mbts13.Text & "' WHERE (num = '" & mbts1.Text & "' )"
Dim cmd = New OleDbCommand(req, con)
con.Open()
cmd.CommandText = req
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()"
Afficher la suite