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
| Dim ObjCnx As ADODB.Connection: Dim StrCnx As String
Dim ObjCmd As ADODB.Command
Dim PrmTotal, PrmDispo, PrmRev, PrmLoc As ADODB.Parameter
Dim ObjRs As ADODB.Recordset
'ouverture de la conexion
Set ObjCnx = New ADODB.Connection
StrCnx = Connexion.ChaineConnexion()
ObjCnx.Open StrCnx
'Définitons de l'objet Commande
Set ObjCmd = New ADODB.Command
Set ObjCmd.ActiveConnection = ObjCnx
ObjCmd.CommandType = adCmdStoredProc
ObjCmd.CommandText = "GetStatistique"
'Définition des paramètres
Set PrmTotal = ObjCmd.CreateParameter("Total", adBigInt, adParamOutput, 8)
Set PrmDispo = ObjCmd.CreateParameter("Dsipo", adBigInt, adParamOutput, 8)
Set PrmRev = ObjCmd.CreateParameter("Rev", adBigInt, adParamInputOutput, 8)
Set PrmLoc = ObjCmd.CreateParameter("Loc", adBigInt, adParamInputOutput, 8)
ObjCmd.Parameters.Append PrmTotal
ObjCmd.Parameters.Append PrmDispo
ObjCmd.Parameters.Append PrmRev
ObjCmd.Parameters.Append PrmLoc
'Exécution de la procédure stockée GetStatistique
Set ObjRs = ObjCmd.Execute
'Affichage des infos
LBTotal.Caption = ObjCmd.Parameters.Item("Total").Value
LBDispo.Caption = ObjCmd.Parameters.Item("Dispo").Value
LBLoc.Caption = ObjCmd.Parameters.Item("Loc").Value
LBRev.Caption = ObjCmd.Parameters.Item("Rev").Value
'Nettoyage
ObjCnx.Close
Set ObjRs = Nothing: Set ObjCnx = Nothing |
Partager