Erro ao Abrir o CRYSTAL no WIN 7


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Erro ao Abrir o CRYSTAL no WIN 7

CarlinhosBrown

ALTO PARAÍSO DE GOIAS
GO - BRASIL

Postada em 21/03/2011 17:41 hs

Boa tarde amigos...

tenho um sistema em VB6, crystal reports 8.5 e ACCESS 2003...

Em alguns micros esta ocorrendo um erro, q ainda nao descobri o motivo, talvez alguem ja passou por isso... o erro é o seguinte:

-----------------------------------------------------------
SEAGATE CRYSTAL REPORTS: DATA BASE ERROR

Error opening file.

File could not be opened: "nome da tabela", at file location: "

C:Program FilesInfo_AdmCadControle.mdb"

-------------------------------------------------------------

nesse micro tem o WINDOWS SEVEM PREMIUM...

o meu sistema ta em: C:Arquivos de ProgramasInfo_Adm

Alguem sabe o motivo desse erro

grato

Juan Carlos R.A

MACEIO
AL - BRASIL

Postada em 22/03/2011 17:48 hs

Clasico erro no crystal quando no vb não é chamado pelo setlocation.

Acontece que o relatorio no crystal foi feito no caminho onde esta o banco e se for alterado o caminho do relatorio referente ao banco se perde. vc no vb indica o caminho do banco que faz referencia ao relatorio.

veja isso. deve resolver, independente de onde estiver o relatorio ele va indicar onde esta o banco.

FrmMenu.CryRep.DataFiles(0) = "caminho do banco dados.MDB"

CarlinhosBrown

ALTO PARAÍSO DE GOIAS
GO - BRASIL

Postada em 22/03/2011 19:16 hs

entao, para chamar o relatorio eu uso o seguinte codigo...

-----------------------------------------------------------------------

        Dim CamBanco As Variant
        CamBanco= App.Path & "CadContInter.mdb"

            With CrystalReport1
            Dim CodContInt As String
            CodContInt = ComboBox1.Text

                .Connect = "MS Access;pwd=82621932"
                .ReportFileName = App.Path & "RelContInterControleLic.rpt"
                .SelectionFormula = "{CadContLicitacao.ano} =" & CodContInt & ""
                .DataFiles(0) = CamBanco
                .Formulas(0) = "razao ='" & SISAD.Label15.Caption & "'"
                .CopiesToPrinter = 1
                .DiscardSavedData = True
                .Destination = crptToWindow
                .WindowState = crptMaximized
                .WindowTitle = "Sist. de Controle Interno - CONTROLE DE LICITAÇÕES"
                .Action = 1
                CamBanco= ""
                End With

---------------------------------------------------------------------------

esse codigo no windows XP funciona perfeitamente, mas no WINDOWS PREMIUM, no qual estou tentando usar o sistema, dá o erro acima....

alguma outra dica?

Juan Carlos R.A

MACEIO
AL - BRASIL

Postada em 23/03/2011 11:20 hs

Uso o crystal report para winxp, vindows vista, windows 7 ultimate, professional e não da erro. seria vou verificar se no windows 7 esteja fantando alguma dll ou ocx

CarlinhosBrown
não registrado

Postada em 23/03/2011 14:22 hs

vc ja usou no windows premium? em outros windows 7 nao dá erro, em alguns sim...

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 23/03/2011 15:02 hs

no premium não tive oportunidade de testar.
muito estranho isso não funcionar nessa versão do windows. vc ja usou com office 2007. ?

Página(s): 1/2 PRÓXIMA »