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