You’re offline. This is a read only version of the page.
555
Hi,
I want to pass an array as a parameter in Code.Have used "SParam(Arrayobject)" but it showing error .How can i send array parameter in vba. herewith have pasted my code
Private Sub Update1_OnFinish(Level As Integer, Updated As Integer, retval As Integer)
Dim xSQL As String
Dim MarkUp As String
Dim invtid As String
Dim batnbr As String
Dim status As String
Dim qty As Integer
Dim i As Integer
Dim ParamVal(10, 2) As String
If Level = 0 Then
Mem_handle = GetGridHandle("Spread1")
MsgBox mrowcnt(Mem_handle)
If Trim(GetObjectValue("cBatchHandling")) = "R" Then
Dim iretval As Integer
Dim iMaintFlg As Integer
iretval = MFirst(Mem_handle, iMaintFlg)
i = 0
While iretval = 0
invtid = Trim(GetObjectValue("cInvtId"))
batnbr = Trim(GetObjectValue("cBatNbrh"))
MarkUp = Trim(GetObjectValue("xuser11"))
qty = Trim(GetObjectValue("cQty"))
ParamVal(i, 0) = invtid
ParamVal(i, 1) = qty
ParamVal(i, 2) = MarkUp
i = i + 1
iretval = MNext(Mem_handle, iMaintFlg)
Wend
xSQL = "X_Transfers" & SParm(ParamVal) & SParm(batnbr)
Call sql(X_Transfers, xSQL)
End If
End If
End Sub
my store procedure like :
CREATE TYPE Param_list AS TABLE (
invtid varchar(60),qty varchar(10),MarkUp varchar(10)
);
GO
Create Proc X_Transfers
@Param_list Param_list READONLY,@TransferBatnbr varchar(10)
as
select * from @Param_list
please genius help me
*This post is locked for comments
I have the same question (0)
I am not sure if parameter support array object .so in single variable have added the value as Comma separated and in sql i have split the comma separated values...
Thanks
Share
Report
All responses (
Answers (
