Tem uma aplicação em VB 6.0 que acesso ao BD da Access.

Crei um relaório no Crystal Report 7.0 que funciona direito. Só que quando eu mando imprimir pelo VB dar o seguinte Erro.

 

Can't open SQL Server!

 

Segue o Cod. para ajudar

Private Sub cmdOK_Click()
    Dim vSQL As String
    If Validar() Then
        vSQL = "SELECT "
        vSQL = vSQL & "    ConsultaControleRelatorio.`NrAD`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`Str_PAG`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`Str_PAM`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`Str_Pregao`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`Total`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`Str_Fantasia`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`NrNE`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`Dat_DataHora`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`Str_Sigra`, "

        vSQL = vSQL & "    ConsultaControleRelatorio.`TotalNE`, "
        vSQL = vSQL & "    Tab_Setores.`IdSetor` "
        vSQL = vSQL & "From "
        vSQL = vSQL & "    `ConsultaControleRelatorio` ConsultaControleRelatorio "

        vSQL = vSQL & "     INNER JOIN `Tab_Setores` Tab_Setores ON "
        vSQL = vSQL & "        ConsultaControleRelatorio.`IdSetor` = "

        vSQL = vSQL & "    Tab_Setores.`IdSetor` "
        vSQL = vSQL & "Where ConsultaControleRelatorio.`Dat_DataHora` >= '" 

        vSQL = vSQL & "   txtDtAno.Year & "/" & Format(txtDtMes.Month, "00") & "/01' "
        vSQL = vSQL & "Order By "
        vSQL = vSQL & "    Tab_Setores.`IdSetor` ASC"
        CrystalReport1.ReportFileName = App.Path & "RelContAD.rpt"
        crpTotConsultas.Destination = crptToWindow
        crpTotConsultas.Connect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=E:HCASisProPeAd.mdb"
        crpTotConsultas.SQLQuery = vSQL
        CrystalReport1.Action = 1 (Linha onde dar o Erro)
    End If
End Sub

SDS,

 

Olá,

 

Não entendi uma coisa, você define a string de conexão e depois muda para outra:

 

crpTotConsultas.Connect = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=MS Access Database;DBQ=E:hcaSisProPeAd.mdb;DefaultDir=E:hca;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"""'

       

crpTotConsultas.Connect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=E:HCASisProPeAd.mdb"

É mais prático, no Crystal, usar um DSN da seguinte forma:

 

crpTotConsultas.Connect = "DSN = <Nome do seu DSN>"

 

Sandro.

Sandro,

 

     Já tente desta forma tb. só que dar o mesmo erro.

 

Andei pesquisando e "falaram" para trocar:

CrystalReport1.Action = 1

para

CrystalReport1.PrintReport

só que erro o não aparece mais, mas não imprimi ou não visualiza o relatório.

Até troque de versão (do CR 7 para CR 10).

mas no codigo...:

 

   Dim Connectioninfo As CRAXDRT.ConnectionProperties
   Dim Aplicacao As New CRAXDRT.Application
   Dim Report As New CRAXDRT.Report

 

   Set Report = Aplicacao.OpenReport(App.Path & "RelContAD.rpt").Database.Tables(1).ConnectionProperties.Item
    CrystalActiveXReportViewer1.ReportSource = Report
    Set Connectioninfo = Report.Database.Tables(1).ConnectionProperties
    Connectioninfo.Item("Data Source") = App.Path & "SisProPeAd.mdb"
    Report.DiscardSavedData
    CrystalActiveXReportViewer1.ViewReport

 

a linha em negrito dar outro erro:

Subscript out of range

 

 

Se tem all guem que pode me ajudar?? Por favor.

 

estou com o projeto parado.