Discussion :

[jeandadaf]

Est ce que quelqu'un à une idée sur ça.

j'ai le code suivant:

Code :

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

1
2
3
4
5
6
Dim param As New OleDbParameter
param.DbType = DbType.String
CmdSql.CommandText = "select CT_Num from F_COMPTET WHERE CT_Num = @toto"
param.ParameterName = "@toto"
CmdSql.Parameters.Add(param)
param.Value = "CACTN"

et lorsque j'exécute la commande j'ai l'exception suivante:

La variable '@toto' doit être déclarée.

je comprends pas, pourtant je l'ai déclaré mon paramètre.

Je suis débutant merci à celui qui me renseigne.

[Sankasssss]

Hello,
test de cette manière : (tiré de ce tuto)

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
        Dim maConnexionSQLsrv As SqlConnection
        Dim myCommand As SqlCommand
        Dim maRequete, ConnexionSQL As String
 
        'Récupération de la chaine de connexion au serveur de base de données
        ConnexionSQL = ConfigurationSettings.AppSettings("ConnectionStringSQLsrv")
        maConnexionSQLsrv = New SqlConnection(ConnexionSQL)
 
        'Requete mise a jour de la table client
        maRequete = "INSERT INTO [article] ( [idclient],[idarticle],
		        [prixarticle]) VALUES (@id_article, @prix_article, @nom_article)"
 
        'Création de la commande SQL
        myCommand = New SqlCommand(maRequete, maConnexionSQLsrv)
 
       'Création et décalartion des paramètres
        With myCommand.Parameters
            .Add(New SqlParameter("@id_article", SqlDbType.Int, 4))
            .Add(New SqlParameter("@prix_article", SqlDbType.Float, 8))
            .Add(New SqlParameter("@nom_article", SqlDbType.VarChar, 25))
        End With
 
       'Attribution des valeurs aux paramètres
        With myCommand
            .Parameters("@id_article").Value = CInt(maTextBox1.Text)
            .Parameters("@prix_article").Value = CDbl(maTextBox2.Text)
            .Parameters("@nom_article").Value = maTextBox3.Text
        End With
 
 
        Try
 
    'Execution de la requête
            myCommand.Connection.Open()
            myCommand.ExecuteNonQuery()
            myCommand.Connection.Close()
 
        Catch ex As SqlException
 
            Response.Write(ex.Message)
 
        End Try

Bien à toi.