For Programmers: Free Programming Magazines  


Home > Archive > Visual Basic Crystal Reports > March 2006 > Accessing a passworded MS Access 2000 database in the CR 8.5 RDC









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Accessing a passworded MS Access 2000 database in the CR 8.5 RDC
Peter Tyler

2006-03-23, 7:08 pm

Can anybody give me some code that I can put in to my VB6 app to open a
passworded Access database in CR 8.5? I see so many examples - none of
which seem to work.

My current code is :

Dim Report As New crPrintPreview
Dim crTable As CRAXDRT.DatabaseTable

Private Sub Form_Load()
Set crTable = Report.Database.Tables.Item(1)
varpath = CurDir
crTable.Location = varpath & "\OrderManager.mdb"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
End Sub

All I receive is the message "Error opening file xxxxxxx etc" and then
"Open Database session failed"

Appreciate any help!

Peter Tyler

Peter Tyler

2006-03-24, 4:15 am

Hi, thanks for your response.

I am using a MS Access native connection in CR 8.5 (pdbdao.dll).

The ".Connect" property is not an available option in my case - as in
"crTable.Connect . . ."

Peter Tyler

ricardo01

2006-03-24, 4:15 am

Hey,

Everything depend how are you log on to the database?
in my case I use an odbc driver the only instruction that you have to
add is :
..Connect = "DSN =dsn name; UID= ; PWD= "if ypu have a trusted conection
send blank in iud and pwd other wise you have to send it .

see ya...
Peter Tyler wrote:
> Can anybody give me some code that I can put in to my VB6 app to open a
> passworded Access database in CR 8.5? I see so many examples - none of
> which seem to work.
>
> My current code is :
>
> Dim Report As New crPrintPreview
> Dim crTable As CRAXDRT.DatabaseTable
>
> Private Sub Form_Load()
> Set crTable = Report.Database.Tables.Item(1)
> varpath = CurDir
> crTable.Location = varpath & "\OrderManager.mdb"
> CRViewer1.ReportSource = Report
> CRViewer1.ViewReport
> End Sub
>
> All I receive is the message "Error opening file xxxxxxx etc" and then
> "Open Database session failed"
>
> Appreciate any help!
>
> Peter Tyler


Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com