Probleme d'execution de requete parametrée dans Acces
Little_Dev
Messages postés36Date d'inscriptionmercredi 8 septembre 2004StatutMembreDernière intervention 4 mars 2008
-
26 juil. 2006 à 16:17
Little_Dev
Messages postés36Date d'inscriptionmercredi 8 septembre 2004StatutMembreDerniè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
A voir également:
Probleme d'execution de requete parametrée dans Acces