bonjour ,
voila mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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