chamar procedure no VB6

Question

tenho o seguinte código para chamar uma procedure no VB6, mas ela não funciona.

Dim conexao As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim CRXApplication As New CRAXDRT.Application
Dim CRXReport As New CRAXDDRT.Report
Dim CRXDatabase As CRAXDRT.Database

Private Sub Form_Load()

conexao.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=BancoDados;Data Source=SYSCOMP2\SYSCOMP_2005;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DESENV01;Use Encryption for Data=False;Tag with column collation when possible=False"

conexao.Open

rs.Open "PR_SEL_PAGAMENTO_FATURA", conexao, adOpenDynamic, adLockPessimistic, adCmdText

Set CRXReport = CRXApplication.OpenReport("C:\Documents and Settings\Meus documentos\Crystal\Relatorio.rpt", 1)
Set CRXDatabase = CRXReport.Database

CRXDatabase.SetDataSource rs, 3, 1

CR.ReportSource = CRXReport
CR.Refresh
CR.ViewReport
End Sub

alguém pode me ajudar?

Answer 1

Gustavo,

 

Não tenho mais o VB6 instalado, mas tente algo assim:

Dim cm as ADODB.Command

...

cm.CommandType = commandtype.storedProcedure

cm.parametro_user= cm.Parameters.Add("@var1", sqltype.VarChar);

parametro_usuario.Value = user

cm.arametro_pass= command.Parameters.Add("@var2", sqltype.VarChar);

parametro_pass.Value = password;

cm.Connection = conexao

...

rs = cm.execute

 

Fiz de cabeça, dá uma olhada nos helps pra detalhar melhor.