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.connection
cn.Provider = "Microsoft.jet.oledb.4.0"
cn.Open "C:\db1.mdb"
Set rs = New ADODB.Recordset
rs.Open "tbl", cn, adOpenDynamic, adLockOptimistic
Show
Call DisplayTheCurrentRecord
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=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\biblio.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.connection
cn.Provider = "Microsoft.jet.oledb.4.0"
cn.Open "C:\db1.mdb"
Set rs = New ADODB.Recordset
rs.Open "tbl", cn, adOpenDynamic, adLockOptimistic
Show
Call DisplayTheCurrentRecord
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, adLockOptimistic

[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.Connection

Private Sub Form_Load()

Set cn = New ADODB.Connection
cn.Provider = "Microsoft.jet.oledb.4.0;"
cn.ConnectionString = App.Path & "/db1.mdb"
cn.CursorLocation = 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, adLockOptimistic

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, adLockOptimistic

not necessary

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