Discussion :

[IRAD]

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

[IRAD]

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

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
 
 
'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)