Jump to content
Fórum Script Brasil
  • 0

conectar crviewer 9 com sql server 2008 no vb5


kacioquin

Question

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

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      652k
×
×
  • Create New...