seguinte, todo o sistema esta legal, so esta faltando os relatorios. preciso conseguir isto urgente...

 

vb6 + mysql + crystal 8,5

 

tenho o relatorio no crystal, e toda vez q eu clico no botao para chama-lo, retorna a seguinte mensagem:

 

Run-time error '20599':

Cannot open SQL Server

 

 

'-----------------------------------------------------

ainda nao consegui fazer abrir o rel....

minha string é:

 

        Dim usr_id As String
        Dim pass As String
        Dim mySqlIP As String
        Dim opt As String
        Dim drv As String
        Dim db As String
       
        mySqlIP = Base_Dados.Recordset!ip
        usr_id = Base_Dados.Recordset!Nome
        pass = Base_Dados.Recordset!Senha
        opt = Base_Dados.Recordset!Option
        drv = Base_Dados.Recordset!Drive
        'db = Base_Dados.Recordset!Database
        db = "clientes"
       
       
        StrCliente.Text = "DRIVER=" & drv & ";user=" & usr_id & ";password=" & pass & ";server=" & mySqlIP & ";option=" & opt & ";database=" & db & ""

'=======================================================

e o comando q esta chamando o rel está assim:

 

    CrystalReport1.Connect = frmBase.StrCliente.Text
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.Destination = 0
    CrystalReport1.ReportFileName = "c:sistemacliente_total_alfabetica.rpt"
    CrystalReport1.SortFields(0) = "+{ado.nome}"
   
    CrystalReport1.Action = 1

'======================================================

 

como devo fazer neste comando para chamar este relatorio, para fazer ele abrir corretamente sem dar este erro...

por favor, se alguem puder me ajudar...

obrigado...

 

Pelo tempo, o problema já deve ter sido resolvido, mas para ajudar a outros, na seção de dicas em relação ao Crystal Report, tem uma tratando exatamente desse erro:

Run-time error '20599'.