ABRIR RELATORIO COM MDB COM SENHA
Pessoal,
Tenho um relatório no crystal reports 9.2 ja pronto e que funciona perfeitamente sem o mdb em acess 2003 protegido, o problema é que quando protejo o banco e vou abri o relatório pelo vb da erro.
Gostaria de sabe como abrir um relatório com
o crystal reports 9.22 com banco de dados protegido.
mas preciso de algo detalhado já que sou bem leigo no assunto.
uso o vb 6
grato,
Tenho um relatório no crystal reports 9.2 ja pronto e que funciona perfeitamente sem o mdb em acess 2003 protegido, o problema é que quando protejo o banco e vou abri o relatório pelo vb da erro.
Gostaria de sabe como abrir um relatório com
o crystal reports 9.22 com banco de dados protegido.
mas preciso de algo detalhado já que sou bem leigo no assunto.
uso o vb 6
grato,
Vê se isso funfa (achado no google)
nome do seucrystal.password=chr(10) & [Ô]suasenha[Ô]
. . .
Microsheme
Obrigado amigo pela contribuição a outra que vc me passou acertou na mosca.
ja havia tentado a função que vc me passou mas o CRViewers9 que utilizo para chamar o relatório que esta na pasta relatorios não tem este evento Password.
uso um fomulario e dentro dele acrescentei o CRViewrs9 para visualizar o relatorio que estar na pasta, acredito que devemos informar a senha do banco de outra maneira só que não tenho ideia de como fazer isso.
Obrigado amigo pela contribuição a outra que vc me passou acertou na mosca.
ja havia tentado a função que vc me passou mas o CRViewers9 que utilizo para chamar o relatório que esta na pasta relatorios não tem este evento Password.
uso um fomulario e dentro dele acrescentei o CRViewrs9 para visualizar o relatorio que estar na pasta, acredito que devemos informar a senha do banco de outra maneira só que não tenho ideia de como fazer isso.
Cara.
Acredito que vai precisar desse comando de qualquer jeito na chamada
Tenta fazer o seguinte: continua com a chamada passando a senha, mas passa a senha na chamada do form então.
Pode ser uma variável pública.
. . .
Cara, tá difÃcil, mas tenta isso:
nomedoseucrystal.ConnectionInfo.Password = [Ô]suasenha[Ô]
. . .
MicroSheme,
Também não deu certo, acredito que para informar o comando q passou devo adicionar um Crystal Report dentro do proprio vb, mas todas as vezes que tento isso dar erro e o vb é fechado, por isso fiz o relatório separado. mas não consigo passar a senha do mdb.
de qualquer forma agredeço a ajuda se descobrir alguma coisa ou alguém puder ajudar fico muito grato.
Também não deu certo, acredito que para informar o comando q passou devo adicionar um Crystal Report dentro do proprio vb, mas todas as vezes que tento isso dar erro e o vb é fechado, por isso fiz o relatório separado. mas não consigo passar a senha do mdb.
de qualquer forma agredeço a ajuda se descobrir alguma coisa ou alguém puder ajudar fico muito grato.
Tenta Atualizar seu cr9 o service pack atual dele é o 7.
http://resources.businessobjects.com/support/additional_downloads/service_packs/crystal_reports_en.asp#CR9
Pode ser erro do CR
e vc tbm pode preencher o relatorio com um recordset ai nem precisaria do relatorio conectar na db
http://resources.businessobjects.com/support/additional_downloads/service_packs/crystal_reports_en.asp#CR9
Pode ser erro do CR
e vc tbm pode preencher o relatorio com um recordset ai nem precisaria do relatorio conectar na db
Public Sub CarregarRelatorio()
On Error GoTo tratar
[ô]Unload Me
Dim rs As New ADODB.Recordset [ô]HOLDS ALL DATA RETURNED FROM QUERY
rs.CursorLocation = adUseClient
rs.Open sql, MyDatabase, adOpenForwardOnly, adLockReadOnly, adCmdText
Set rs.ActiveConnection = Nothing
If rs.EOF Then
MsgBox [Ô]Não há registros![Ô], vbInformation
Unload Me
Exit Sub
End If
Dim crystal As New CRAXDRT.Application [ô]LOADS REPORT FROM FILE
Dim report As CRAXDRT.report [ô]HOLDS REPORT
Set report = crystal.OpenReport(App.Path & [Ô]pt\[Ô] & relatorio) [ô]OPEN OUR REPORT
report.DiscardSavedData [ô]CLEARS REPORT SO WE WORK FROM RECORDSET
report.Database.SetDataSource rs [ô]LINK REPORT TO RECORDSET
Me.Show
[ô]CRViewer.DisplayBorder = False [ô]MAKES REPORT FILL ENTIRE FORM
[ô]CRViewer.DisplayTabs = False [ô]THIS REPORT DOES NOT DRILL DOWN, NOT NEEDED
[ô]CRViewer.EnableDrilldown = False [ô]REPORT DOES NOT SUPPORT DRILL-DOWN
[ô]CRViewer.EnableRefreshButton = False [ô]ADO RECORDSET WILL NOT CHANGE, NOT NEEDED
[ô]CRViewer.EnableExportButton = True [ô]EXPORTAR RELATORIO
CRViewer.ReportSource = report [ô]LINK VIEWER TO REPORT
CRViewer.ViewReport [ô]SHOW REPORT
Do While CRViewer.IsBusy [ô]ZOOM METHOD DOES NOT WORK WHILE
DoEvents [ô]REPORT IS LOADING, SO WE MUST PAUSE
Loop [ô]WHILE REPORT LOADS.
CRViewer.Top = 0 [ô]WHEN FORM IS RESIZED
CRViewer.Left = 0
CRViewer.Height = ScaleHeight
CRViewer.Width = ScaleWidth
rs.Close
Set rs = Nothing
Set crystal = Nothing
Set report = Nothing
limparVariaveis
Exit Sub
tratar:
MsgBox Err.Description
End Sub
Tópico encerrado , respostas não são mais permitidas