Appel d'une procédure stockée de SQL Server

Bonjour à tous
J'aimerais avoir un exemple concret d'appel de procédure stockée de sql serveur avec VB6. Ma procédure comporte des paramètres de type varchar, datetime et bit.

@IdDep VarChar(3),
@DatFin Datetime,
@Direct Bit

Merci

j'ai finalement trouvé une solution sur un autre forum

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'cn est ta connection active Dim cmd As New ADODB.Command Dim prm As ADODB.Parameter Dim Rs As New ADODB.Recordset   'ajout des parameteres Set prm = cmd.CreateParameter("IdDep", adChar, adParamInput, 3, ValeurParam) Call cmd.Parameters.Append(prm) Set prm = cmd.CreateParameter("DatFin", adDBTime, adParamInput, , ValeurParam) Call cmd.Parameters.Append(prm) Set prm = cmd.CreateParameter("Direct", adBoolean, adParamInput, , ValeurParam) Call cmd.Parameters.Append(prm)   cmd.ActiveConnection = cn cmd.CommandType = adCmdStoredProc cmd.CommandText = "StoredProcedureName"   Call Rs.Open(cmd)

---