none
chamar procedure no VB6 RRS feed

  • Pergunta

  • 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?
    quarta-feira, 25 de julho de 2007 11:51

Todas as Respostas

  • 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.

     

     

     

    quarta-feira, 25 de julho de 2007 12:12