Probleme d'execution de requete parametrée dans Acces

Little_Dev Messages postés 36 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 4 mars 2008 - 26 juil. 2006 à 16:17
Little_Dev Messages postés 36 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 4 mars 2008 - 26 juil. 2006 à 17:12
Bonjour,

J'ai un petit soucis pour utiliser VB6 et Access, en fait je n'arrive pas à executer une procedure parametrée et j'ai parcourut les codes sources, tuto... mais rien trouvé alors si vous vous pouviez me donner un coup de main ou m'indiquer un lien qui peux m'aider .

Voici ma requete parametrée (Insert)

PARAMETERS [ITest] Text ( 255 );
INSERT INTO Tbl_Tst ( Test )
VALUES (ITest);

Voici mon code VB

Private ADO_Cnx As ADODB.Connection
Private ADO_Rs As ADODB.Recordset
Private ADO_Cmd As ADODB.Command
Private ADO_Prm As Parameter

Private Sub Form_Load()
   
    Set ADO_Cnx = New ADODB.Connection
    With ADO_Cnx
        .Provider = "Microsoft.Jet.OLEDB.4.0;"
        .CursorLocation = adUseClient
        .Open "Data Source=C:\1.mdb ;User Id=Admin; Password"
    End With

    Set ADO_Cmd = New ADODB.Command
    With ADO_Cmd
        .ActiveConnection = ADO_Cnx
        .CommandType = adParamInput
        .CommandText = "Insert"
    End With
   
    Set ADO_Prm = New ADODB.Parameter
    With ADO_Prm
        .Direction = adParamOutput
        .Type = adVarChar
        .Name = "Test"
        .Size = 15
    End With
   
    ADO_Cmd.Parameters.Append ADO_Prm
   
    ADO_Cmd("Test").Value = "Ok"
    ADO_Cmd.Execute
End Sub

Merci d'avoir lu mon probleme.

Little_Dev

1 réponse

Little_Dev Messages postés 36 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 4 mars 2008
26 juil. 2006 à 17:12
Oups désolés, je me suis trompé dans l'affichage du code source

Je joins la bonne partie , encore une fois désolés pour tout.

...
    Set ADO_Cmd = New ADODB.Command
    With ADO_Cmd
        .ActiveConnection = ADO_Cnx
        .CommandType = adCmdStoredProc
        .CommandText = "Insert"
    End With
   
    Set ADO_Prm = New ADODB.Parameter
    With ADO_Prm
        .Direction = adParamInput
        .Type = adVarChar
        .Name = "Test"
        .Size = 15
    End With
...

Merci et excusez moi
0
Rejoignez-nous