solve the error

[muddasirmunir]

i am using vb6 and crystal report ten ms access 2003

i had made a password in my access .now when i uses the following code its give me error that invalid password
i am filtering the crystal report with the following code

 
invoicerep.SQLQueryString = "select * from salessummary where [invoice no]=" & invnotxt & ""
 

so how to correct the code to open query in password protected access

[lotus18]

i am using vb6 and crystal report ten ms access 2003

i had made a password in my access .now when i uses the following code its give me error that invalid password
i am filtering the crystal report with the following code

 
invoicerep.SQLQueryString = "select * from salessummary where [invoice no]=" & invnotxt & ""
 

so how to correct the code to open query in password protected access

Hi

As much as possible, avoid spaces with your fieldname and I removed the extra & "".

 invoicerep.SQLQueryString = "select * from salessummary where [invoice_no]=" & invnotxt 

May I see your codes for setting your access connection.

Rey Sean

[QVeen72]

Hi,

If you have newly created the Password to Access Db, then you need to pass password in to the crystal report(Thru connect property)..
Which version of CR..?

Regards
Veena

[muddasirmunir]

i am using crystal report 10

now if i removed the password the code works fine and show no error

but if i made password to access then this code show error.
the error is

 Run time error 
 
Logno failed
Details DAO Error code: 0xbd7
Source DAO Workspace
Description Not a valid password
 

the code for connecting to acces (i made a connection in module as
public)

Set con = New Connection
Dim datapath As String
datapath = App.path & "\Orders.mdb"
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & datapath & ";Persist Security Info=False; Jet OLEDB:Database Password=mypasword"

and code for filtering crystal report query is

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
invoicerep.SQLQueryString = "select * from salessummary where [invoice no]=" & invoicefil.invnotxt & ""
CRViewer1.ReportSource = invoicerep
CRViewer1.ViewReport
CRViewer1.DisplayTabs = False
Screen.MousePointer = vbDefault
End Sub
 

when i click on dubug the code i was pointed to the following field

invoicerep.SQLQueryString = "select * from salessummary where [invoice no]=" & invoicefil.invnotxt & ""

remember in crystal report desingner using database expert
when i made a connection to acces i give password to it
can you solve what is the error now or what thing i am missing

Hi,

If you have newly created the Password to Access Db, then you need to pass password in to the crystal report(Thru connect property)..
Which version of CR..?

Regards
Veena

[QVeen72]

Hi,

You need to set password info to CR.
This works for CR 9, any way you can try it..

dim MyCr As CRAXDRT.ConnectionProperties
Screen.MousePointer = vbHourglass
Set MyCr =invoicerep.Database.Tables.Item(1).ConnectionProperties
MyCr("Password") = "MyPassWord"
invoicerep.SQLQueryString = "select * from salessummary where [invoice no]=" & invoicefil.invnotxt & ""
CRViewer1.ReportSource = invoicerep
CRViewer1.ViewReport
CRViewer1.DisplayTabs = False
Screen.MousePointer = vbDefault
 

Regards
Veena