... WITH .oCommand .ActiveConnection = .oConnection .CommandType = adCmdText .CommandText = [usr_sp_lstVendasCliente] .Parameters("@param1").Value = tcparam toRS = .Execute() ENDWITH>Hi all
>StoreProc: > >CREATE PROCEDURE usr_sp_lstVendasCliente @Param1 nvarchar(5) >AS > Select * From tbl_gc_DocumentosLinTer Where c_cod_ter = @Param1 order by c_num_doc >GO > >Program Code: > > toRS.ActiveConnection = .oConnection > toRS.Source=tcTabela > .SetRecordSetProperties(toRS) > toRS.Open > > .SetCommandProperties(tcStoredProc) > .oCommand.Parameters("@param1").Value=tcparam > toRs=.oCommand.Execute >>