Discussion :

[Kelap]

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

[Graffito]

Bonjour,

Quelque soit le SGBD, évite de mettre des quotes autour des valeurs numériques.
Il semblerait qu'avec MsAccess, VALUES accepte les quotes, tandis que WHERE les refuse.

[Kelap]

En effacant les ' du where tout c'est mis a fonctionner

Merci