Salut
Je ne comprend pas pourquoi que le "Insert" marche tres bien mais le "update"
ne fonctionne pas.
Code VB.Net : 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
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Imports System
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\AccessDataBase\petitepetiteDB.mdb")
        Dim connSql As OleDbCommand = conn.CreateCommand()
 
        conn.Open()
 
        connSql.CommandText = "INSERT INTO Ledepart (Cestquoi, lenumero,quand,Etat) VALUES('BINGO','412','04/26/2012','1')"
        connSql.ExecuteNonQuery()
 
        conn.Close()
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\AccessDataBase\petitepetiteDB.mdb")
        Dim connSql As OleDbCommand = conn.CreateCommand()
 
        conn.Open()
 
        connSql.CommandText = "UPDATE Ledepart SET Etat='2' WHERE lenumero='412'"
        connSql.ExecuteNonQuery()
 
        conn.Close()
 
    End Sub
End Class


j ai cette erreur la pour le update
(ligne 30){"Type de données incompatible dans l'expression du critère."}
Merci d'avance