conectar crviewer 9 com sql server 2008 no vb5

[kacioquin]

Boa tarde galera! Sou novo aqui no fórum e estou precisando da seguinte ajuda: tenho um relatório feito no crystal 9 usando craxdrt.dll e crviewer.dll. Na máquina em que eu desenvolvi o relatorio, funcionou perfeitamente, porem na maquina cliente eu estou tendo alguns erros referente a conexão com o sql(eu imagino q seja isso).

Detalhe: o tipo de provedor usado na empresa onde trabalho é o OLE DB ADO.

Vai ai parte do código q estou usando:

Dim crystal as Craxdrt.application

Dim relat as craxdrt.report

set crystal = new craxdrt.application

set relat = crystal.OpenReport(DirCorrente_SisExe_Contas & "\teste.rpt")

crystal.LogOnServer "pdssql.dll", NomeServidor, vNomeBdContas, VUID_rpt, vPWD_rpt

''Aqui preecho um record set chamado Temporario q vai alimentar meu relatorio

Seguindo:

relat.DiscardSavedData

relat.Database.SetDataSource Temporario

relat.Database.LonOnServer "pdssql.dll", NomeServidor, vNomeBDContas, vUID_rpt, vPWD_rpt

relat.Database.Tables(1).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

relat.Database.Tables(2).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

relat.Database.Tables(3).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

relat.Database.Tables(4).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

relat.Database.Tables(5).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

relat.Database.Tables(6).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

relat.Database.Tables(7).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

relat.Database.Tables(8).SetTableLocation NomeServidor & DirCorrente_SisBD_Contas & vNomeBDContas, "", ""

frmImpCorrespondencia.CRep.DisplayTabs = False CRep é o meu obejto do tipo CRViewer

frmImpCorrespondencia.CRep.ReportSource = relat

frmImpCorrespondencia.CRep.EnableExportButton = True

frmImpCorrespondencia.CRep.EnablePrintButton = False

frmImpCorrespondencia.CRep.ViewReport 'Nesse ponto acontece o seguinte erro

Logon failed

Details: ADO Error Code: 0x80004005

Source: Microsoft OLE DB Provider for ODBC Drivers

Description: [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

SQL State: IM002

Continuação do código:

frmImpCorrespondencia.CRep.Zoom 100

frmImpCorrespondencia.Show

Set crystal = Nothing

Set relat = Nothing

Temporario.Close