sample code::
Dim qd As New rdoQuery
Dim qsql As String
qsql = "{call get(?,?,?)}"
Set qd = cn.CreateQuery(" ", qsql)
qd(0)="text"
qd(1)="textkey"
qd.execute
Msgbox "value" & qd(2)
If any one can help it will be great help
thanking you!
Nasim ahmed
qd(0).Type = rdTypeVARCHAR 'or CHAR
qd(0).Direction = rdParamInput
qd(1).Type =
qd(1).Direction = rdParamInput
qd(2).Type =
qd(2).Direction = rdParamOutput
qd.rdoParameters(0).Value =
qd.rdoParameters(1).Value =
/Henning