Re: Calling SP from VB5.0 and returning a value

From: Vladimir A. Zaikin <vlad_at_hammer.ryazan.su>
Date: 5 Jun 1998 14:23:26 +0400
Message-ID: <ABUSxEvi0J@hammer.ryazan.su>

>SQL = "BEGIN ADDMAINT_BLOOD_TYPE('" & BLOOD_TYPE_NAME & "'," _
> & MODIFIED_BY & ", '" & EDIT_FLAG & "', " & BLOOD_TYPE_ID & "); end;"
>

Hi
Try to find syntax of callind Sp in VB. To my mind one way is :

	SQL = "{call ADDMAINT_BLOOD_TYPE(?,?,?,?)}"
	Set qdf = conn.CreateQueryDef(, SQL)
	qdf(0).Direction = dbParamInput
	qdf(1).Direction = dbParamInput
	qdf(2).Direction = dbParamInput
	qdf(3).Direction = dbParamOutput

	qdf.Parameters(0) = BLOOD_TYPE_NAME
	qdf.Parameters(1) = MODIFIED_BY
	qdf.Parameters(2) = EDIT_FLAG 

	qdf.Execute
	BLOOD_TYPE_ID = qdf.Parameters(3)

Good luck,
Vladimir Zaikin Received on Fri Jun 05 1998 - 05:23:26 CDT