Discussion :

[konebrin]

bonjour j'essaye de faire une suppression dans ma base de donnée mon projet affiche La conversion en de la chaine "" en 'Integer' n'est pas valide j'utilise VISUAL STUDIO 2012 et ma base de donnée est dans access 2013. j'ai besoin de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 OUVERTUREBASE()
                CMD = New OleDb.OleDbCommand
                CMD.Connection = CNX
                CMD.CommandText = "delete * from CLIENT where NUMERO = " & Me.List_Client.SelectedItems.Item(0).SubItems(0).Text & ""
                Dim i As Int16 = CMD.ExecuteNonQuery()
                CNX.Close()

[DotNetMatt]

Deja il est tres mauvais de faire de la concatenation avec des requetes SQL... Il faut utiliser des requetes parametrees (voir Tuto ou FAQ).

Ensuite, quel est le type de la colonne "NUMERO" dans ta base de donnees ?

[konebrin]

c'est NuméroAuto de access
donc un numerique

[DotNetMatt]

Ok, le probleme ne vient pas de la, mais je viens de voir une erreur de syntaxe dans ta requete. Elle devrait etre somme suit :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

DELETE FROM CLIENT WHERE NUMERO = ...

(J'ai supprime l'asterisque '*').

Ensuite, le probleme vient probablement du fait que Me.List_Client.SelectedItems.Item(0).SubItems(0).Text te retourne une chaine vide... Ensuite ton SGBD essaie de convertir cela en INT pour matcher le type de la colonne NUMERO et ca ne marche pas. Verifie donc que la ligne de code te renvoie bien une valeur.

[konebrin]

j'ai vérifié sa retourne une valeur et j'ai récuperé cette valeur avec une variable integer et j'ai inséré cette variable dans la requete sa fait toujours la meme chose

[DotNetMatt]

Bizarre. Peux-tu poster ton code avec la variable ?

[konebrin]

j'ai affiché le contenu dans un msgbox sa affiche 1
voila le code avec la requête parametre c'est ma premiere fois de l'utiliser mais sa affiche le meme message

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
 MsgBox(Me.List_Client.SelectedItems.Item(0).SubItems(0).Text)
        Try
            Dim ittt As Integer = Me.List_Client.SelectedItems.Item(0).SubItems(0).Text
            OUVERTUREBASE()
            Dim Rquet As String
            Rquet = "DELETE FROM [CLIENT] WHERE [NUMERO] = @numero"
            CMD = New OleDb.OleDbCommand(Rquet, CNX)
            With CMD
                .Parameters("@numero").Value = CInt(Me.List_Client.SelectedItems.Item(0).SubItems(0).Text)
            End With
            Try
                CMD.Connection.Open()
                CMD.ExecuteNonQuery()
                CMD.Connection.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            CHARGEMENT()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

[DotNetMatt]

Il me semble qu'Access ne supporte par les parametres nommes. Il faut utiliser un '?' pour chaque parametre, puis les ajouter dans la commande dans le meme ordre. Exemple :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Rquet = "DELETE FROM [CLIENT] WHERE [NUMERO] = ?"
            CMD = New OleDb.OleDbCommand(Rquet, CNX)
            With CMD
                .Parameters.AddWithValue("numero", CInt(Me.List_Client.SelectedItems.Item(0).SubItems(0).Text))
            End With

[Invité]

Bonjour,
pourquoi convertir le string en iteger alors que ça fonctionne direct sans conversion?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
quet = "DELETE FROM [CLIENT] WHERE [NUMERO] = ?"
            CMD = New OleDb.OleDbCommand(Rquet, CNX)
           CMD.Parameters.AddWithValue("@numero", Me.List_Client.SelectedItems.Item(0).SubItems(0).Text)

si non tu laisse Access faire le travail!*

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CMD.CommandText = "delete * from CLIENT where NUMERO =val( " & Me.List_Client.SelectedItems.Item(0).SubItems(0).Text & ")"

[jopopmk]

Il me semble qu'Access ne supporte par les parametres nommes. [..]

Il me semble qu'il les accepte ... mais qu'il s'en fout : il fait le replace selon l'ordre d'insertion des Parameters, peu importe leurs noms.

[Invité]

Il me semble qu'il les accepte ... mais qu'il s'en fout : il fait le replace selon l'ordre d'insertion des Parameters, peu importe leurs noms.

Access utilise ?,?,?,? Pour chaque paramètres mais veut @Champ en paramètres!

[jopopmk]

Re,

soit la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
// Ma_Connexion est une connexion valide et ouverte vers un .accdb avec le provider Microsoft.ACE.OLEDB.12.0
public string ExecuteStuff(string pReqName1, string pParName1, string pReqName2, string pParName2) {
	OleDbCommand cmd = new OleDbCommand("SELECT nickname FROM employes WHERE firstname = " + pReqName1 + " AND lastname = " + pReqName2, Ma_Connexion);
	cmd.Parameters.Add(pParName1, OleDbType.VarChar).Value = "Marc";
	cmd.Parameters.Add(pParName2, OleDbType.VarChar).Value = "DUPONT";
	object tmp = cmd.ExecuteScalar();
	return tmp != null ? tmp.ToString() : "[not found]";
}

Alors tous les appels suivants renvoient la même valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
cnx.ExecuteStuff("@a", "@a", "@b", "@b");
cnx.ExecuteStuff("?", "@a", "?", "@b");
cnx.ExecuteStuff("@a", "@b", "@c", "@d");
cnx.ExecuteStuff("?", "x", "?", "y");
cnx.ExecuteStuff("?", "?", "?", "?");
cnx.ExecuteStuff("?", "", "?", "");
cnx.ExecuteStuff("?", null, "?", null);