Pb avec requête paramétrée

**Jean-Luc80** · 08/02/2014, 06h36

Bonjour
J'essaie de faire une requête paramétrée avec ce code

Code :

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

1
2
3
4
5
6
7
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
                         "C:\Access\DvdData.mdb")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
        Mycommand.Parameters.Add(New OleDbCommand("@Acteur", OleDbType.VarChar, 20))
 
        Mycommand.Parameters["@Acteur"].Value = TxtImage.Text

Mais j'ai des erreurs de syntaxe sur OleDbType.VarChar ,20
et sur toute la ligne suivante
Pouvez-vous m'aider
Merci

**torki2** · 08/02/2014, 08h05

Bonjour ,

Code :

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

        Mycommand.Parameters.Add("@Acteur", OleDbType.VarChar, 20)

l'ajout de parametres se fait ainsi

**Mario Rousson** · 08/02/2014, 09h29

Voici un exemple de ce que je fais

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Function ExComAjDonner(ByVal SQL As String) As Integer
        Dim SQlS() As String = SQL.Split(";"c)
        Dim SQLNomC As String = "INSERT INTO TblDonner(DateDonner,Symbole,Haut52,Bas52,Haut,Bas,Prix,Volume,EPS,Dividende,Rendement,DateExDiv,FrequDiv,Ouverture,Fermeture,CourAch,NbrAch,CourVend,NbrVend,RatioCB,RatioPV,NbrAction,Capitalisation,Beta,VWAP) VALUES (@DateDonner,@Symbole,@Haut52,@Bas52,@Haut,@Bas,@Prix,@Volume,@EPS,@Dividende,@Rendement,@DateExDiv,@FrequDiv,@Ouverture,@Fermeture,@CourAch,@NbrAch,@CourVend,@NbrVend,@RatioCB,@RatioPV,@NbrAction,@Capitalisation,@Beta,@VWAP)"
        Try
            Me.OuvrirConnexion()
            Dim Cmd As New OleDbCommand
            With Cmd.Parameters
                .Add(New OleDbParameter("@DateDonner", OleDb.OleDbType.DBDate))
                .Add(New OleDbParameter("@Symbole", OleDb.OleDbType.BSTR, 10))
                .Add(New OleDbParameter("@Haut52", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Bas52", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Haut", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Bas", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Prix", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Volume", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@EPS", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Dividende", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Rendement", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@DateExDiv", OleDb.OleDbType.DBDate))
                .Add(New OleDbParameter("@FrequDiv", OleDb.OleDbType.BSTR, 255))
                .Add(New OleDbParameter("@Ouverture", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Fermeture", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@CourAch", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@NbrAch", OleDb.OleDbType.Integer))
                .Add(New OleDbParameter("@CourVend", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@NbrVend", OleDb.OleDbType.Integer))
                .Add(New OleDbParameter("@RatioCB", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@RatioPV", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@NbrAction", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Capitalisation", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@Beta", OleDb.OleDbType.Double))
                .Add(New OleDbParameter("@VWAP", OleDb.OleDbType.Double))
            End With
            With Cmd
                .Parameters("@DateDonner").Value = CDate(SQlS(0))
                .Parameters("@Symbole").Value = SQlS(1)
                .Parameters("@Haut52").Value = SQlS(2)
                .Parameters("@Bas52").Value = SQlS(3)
                .Parameters("@Haut").Value = SQlS(4)
                .Parameters("@Bas").Value = SQlS(5)
                .Parameters("@Prix").Value = SQlS(6)
                .Parameters("@Volume").Value = SQlS(7)
                .Parameters("@EPS").Value = SQlS(8)
                .Parameters("@Dividende").Value = SQlS(9)
                .Parameters("@Rendement").Value = SQlS(10)
                .Parameters.AddWithValue("@DateExDiv", System.DBNull.Value)
 
                If Not SQlS(11) = Nothing Then
                    .Parameters("@DateExDiv").Value = SQlS(11)
                Else
                    .Parameters("@DateExDiv").Value = DBNull.Value
 
                End If
                .Parameters("@FrequDiv").Value = SQlS(12)
                .Parameters("@Ouverture").Value = SQlS(13)
                .Parameters("@Fermeture").Value = SQlS(14)
                .Parameters("@CourAch").Value = SQlS(15)
                .Parameters("@NbrAch").Value = SQlS(16)
                .Parameters("@CourVend").Value = SQlS(17)
                .Parameters("@NbrVend").Value = SQlS(18)
                .Parameters("@RatioCB").Value = SQlS(19)
                .Parameters("@RatioPV").Value = SQlS(20)
                .Parameters("@NbrAction").Value = SQlS(21)
                .Parameters("@Capitalisation").Value = SQlS(22)
                .Parameters("@Beta").Value = SQlS(23)
                .Parameters("@VWAP").Value = SQlS(24)
 
 
                .Connection = Me._cn
                .CommandType = CommandType.Text
                .CommandText = SQLNomC
            End With
            Return Cmd.ExecuteNonQuery
        Catch ex As Exception
            Throw New ApplicationException("La mise à jour à échoué " & ex.Message)
 
        Finally
            Me.FermerConnection()
        End Try
    End Function

**Pol63** · 08/02/2014, 10h45

Code :

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

 Mycommand.Parameters.Add(New OleDbCommand("@Acteur", OleDbType.VarChar, 20))

New OleDbCommand ? pour mettre dans parameters ? ca ne saute pas aux yeux ?

et quand on a une erreur, il est important de préciser laquelle ...

**Jean-Luc80** · 09/02/2014, 07h44

Bonjour
Voici mon code modifié grâce à vos aides

Code :

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

1
2
3
4
5
6
7
8
9
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
                         "C:\Access\DvdData.mdb")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
        Mycommand.Parameters.Add("@Acteur", OleDbType.VarChar, 50)
        Mycommand.Parameters("@Acteur").Value = TxtImage.Text
        Mycommand.CommandText = "SELECT Film,Role,AnnéeSortie,RéfCollectionVidéo FROM ListeFilms WHERE Acteur =@acteur"
        MyConnexion.Open()
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

Avant j'écrivais ma requête comme ceci

Code :

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

Mycommand.CommandText = "SELECT Film,Role,AnnéeSortie,RéfCollectionVidéo FROM ListeFilms WHERE Acteur =  '" & TxtImage.Text & "'"

Forcément quand je tombais sur un acteur qui s'appelle "Maureen O'Hara" j'avais une exception !!
Mais maintenant ça fonctionne parfaitement
Merci encore

**rv26t** · 10/02/2014, 13h19

Bonjour,

Pour info ;
Vu qu'il sagit d'une requête pour access, tu peux l'écrire ainsi :

Code :

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

Mycommand.CommandText = "SELECT Film,Role,AnnéeSortie,RéfCollectionVidéo FROM ListeFilms WHERE Acteur = ?"

Access ne tient pas compte des noms (@acteur) .
Il faut placer les paramètres dans l'ordre d'apparition dans la requête.
Comme tu n'en as qu'un cela n'est pas génant, mais il faut faire attention s'il y en a plusieurs.

Pb avec requête paramétrée [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager