bonjour ,
voila mon code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| 'ouverture de la connection(à partir du répertoire de l'application)sur la même ligne
Dim cnxstr As String
cnxstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\base3.mdb"
Dim cnx As New OleDbConnection
'cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Artisanat\Desktop\base1.mdb"
cnx.ConnectionString = cnxstr
cnx.Open()
'Command texte
Dim q As String
TextBox9.Text = Date.Now
q = "UPDATE maintenance SET huile = '" & Date.Now & "' WHERE transfo =" & ComboBox1.SelectedItem & " AND numvisite = " & ComboBox2.SelectedItem & " ;"
TextBox9.Text = Date.Now
'creation de le commande
Dim cmd As New OleDbCommand()
'connexion liéé à la commande
cmd.Connection = cnx
'texte de la commande
cmd.CommandText = q
'Execution de la commande
'MessageBox.Show(cmd.CommandText)
cmd.ExecuteNonQuery()
cnx.Close() |
le code s exécute tres bien lorsque je supprime une partie de la requette update:
q = "UPDATE maintenance SET huile = '" & Date.Now & "' WHERE transfo =" & ComboBox1.SelectedItem & "
j ai un projet d archivage. j ai presque fini le probleme c est que une requette sql sous vb access ne veux pas s excuter correctement.
merci de m'aider svp
Partager