Bonjour a tous,
j'ai un petit probleme, J'ai crée une procedure stockée au niveau de sqlserver et veux faire appel de cette procedure en vb 6.
la procedure est la suivante (elle calcul le chiffre d'affaire d'un client donner en parametre .La base de donnee que j'ai utilisé Northwind de sqlserver)
Create Proc P_CA_CLT
@Codeclt varchar(10),@ca money output
as
set @ca=(select sum(unitprice*quantity*(1-discount))
from orders o ,[order details] od
where o.orderid=od.orderid
and o.customerid=@codeclt)
Ce que je veux exactement au niveau vb6 : cree deux zones de textes TxtClient, TxtChiffreAffaire et un button CalculChiffreAffaireClient.
Donc j'entre un client exemple 'arout' je clique sur le button CalculChiffreAffaireClient le resultat s'affiche dans la zone de text TxtChiffreAffaire
voila mon code qui marche pas :
Dim ADO_Rs As ADODB.Recordset
With My_Obj_DB
.Queries ("P_CA_CLT")
.DefParameter TxtClient.Text, adChar
.DefParameter TxtChiffreAffaire.Text, adInteger
Set ADO_Rs=.ExecuteQueries
TxtChiffreAffaire.text=ADO_Rs.Fields(0).Value
Merci D'avance