vb and database

[horoscope]

Dim db As Database
Dim rec As Recordset
Set db = OpenDatabase(App.Path & "\Database\UsersDB.mdb" _
, False, False, ";pwd=AdmiN")
Set rec = db.OpenRecordset("Users", dbOpenTable)
why before codes make error?
anyone can tell me?

 

[Swi]

Can you please specify the error you are getting? Are you sure you have all the right references selected?

Swi

 

[bmdb]

You need to be a little more specific. What error are you getting? You might also want to take a look at the following site as it is a great resource for connection strings.

http://www.able-consulting.com/ADO_Conn.htm

 

[horoscope]

Set rec = db.OpenRecordset("Users", dbOpenTable)
from the test is the before syntax has error.
the error information is
realtime error '13'
can anyone know why.

 

[Dimandja]

db.OpenRecordset expects an SQL statement - 1 parameter only - as in db.OpenRecordset("Select * From Table").

 

[Swi]

I created a database and a table within it just like your example and the code worked fine.

Dim db As DAO.Database
Dim rec As DAO.Recordset
Set db = OpenDatabase("C:\UsersDB.mdb" _
, False, False, ";pwd=AdmiN")
Set rec = db.OpenRecordset("Users", dbOpenTable)

Make sure you add a reference to Microsoft DAO X.X Object Library. Also make sure that your database exists and that the table that you are referencing exists as well.


Swi

 

[Swi]

db.OpenRecordset expects an SQL statement"

Actually, horoscope's code will work as is.

Swi

 

[Dimandja]

Hmm... Yes.

 

[horoscope]

i use
Dim db As DAO.Database
Dim rec As DAO.Recordset
instead of
Dim db As Database
Dim rec As Recordset
the code works well.
why?
what's the difference between DAo.database and database
?

 

[benimana]

hi man
i have a problem of connecting my db how to make a Database server and a DB client , give me just an example in acees or VB if possible

 

[Swi]

horoscope, the following code will work for me as well. You just need to make sure you have a reference set for Microsoft DAO X.X Object Library.

Dim db As Database
Dim rec As Recordset
Set db = OpenDatabase("C:\UsersDB.mdb" _
, False, False, ";pwd=AdmiN")
Set rec = db.OpenRecordset("Users", dbOpenTable)
MsgBox rec.Fields(0).Value

Swi