To join Ms-Access to VB try to write my code please help me

[alem]

Hi all

i could not joine MS Access table to VB the code i write below

Private Sub Form_Load()
Set cn = New ADODB.connectio n
cn.Provider = "Microsoft.jet. oledb.4.0"
cn.Open "C:\db1.mdb "
Set rs = New ADODB.Recordset
rs.Open "tbl", cn, adOpenDynamic, adLockOptimisti c
Show
Call DisplayTheCurre ntRecord
End Sub


My Database name is db1 and table name tbl.

Please help me.

[debasisdas]

what is the error message ?

try to use this sapmle for referrence for connection string

cn.open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\Progr am Files\Microsoft Visual Studio\VB98\bib lio.mdb;Persist Security Info=False
"

[jimmylee]

Hi all

i could not joine MS Access table to VB the code i write below

Private Sub Form_Load()
Set cn = New ADODB.connectio n
cn.Provider = "Microsoft.jet. oledb.4.0"
cn.Open "C:\db1.mdb "
Set rs = New ADODB.Recordset
rs.Open "tbl", cn, adOpenDynamic, adLockOptimisti c
Show
Call DisplayTheCurre ntRecord
End Sub


My Database name is db1 and table name tbl.

Please help me.

you have to change
rs.Open "select * from tbl", cn, adOpenDynamic, adLockOptimisti c

[dnb]

First add 'Microsoft ActiveX Data objects library 2.0' from references
First Save your project and database in the same folder.


Public cn As ADODB.Connectio n

Private Sub Form_Load()

Set cn = New ADODB.Connectio n
cn.Provider = "Microsoft.jet. oledb.4.0;"
cn.ConnectionSt ring = App.Path & "/db1.mdb"
cn.CursorLocati on = adUseClient
cn.Open

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
If rs.State = 1 Then rs.Close
rs.Open "select * from tbl", cn, adOpenDynamic, adLockOptimisti c

End Sub

[alem]

Alem
I Thank U all I have got my answer
I appreciate your help.

Thanks again.

[debasisdas]

you have to change
rs.Open "select * from tbl", cn, adOpenDynamic, adLockOptimisti c

not necessary

it can be any sql query, table ,view or materialized view name also.