Type de données incompatible dans l'expression du critère.
Bonjour,
Globale.Initialiser()
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| 'CREATION DE LA REQUETTE 3
Dim SQLAjouterOEU As String
SQLAjouterOEU = "INSERT INTO oeuvre (oeu_nom,oeu_date,oeu_type,oeu_support,oeu_nature,oeu_photo) VALUES ('" & TxtBoxNomOeu.Text & "','" & TxtDateOeuvre.Text & "','" & CboBoxTYpe.Text & "','" & CboBoxSupport.Text & "','" & CboBoxNature.Text & "','" & PBoxOeuvre1.ImageLocation & "')"
'LA COMMANDE
Dim maCommande2 As OleDbCommand
maCommande2 = New OleDbCommand()
maCommande2.Connection = Globale.connexion
maCommande2.CommandType = CommandType.Text
maCommande2.CommandText = SQLAjouterOEU
'EXECUTION
maCommande2.ExecuteNonQuery() |
Merci de votre aide