connect to access

[makisbest]

hi

How I can connect to a table in my access database
with code

thank you

 

[jozino01]

do you mean like read data from table or something else?

 

[Sheco]

In your project, add a reference to Microsoft ActiveX Data Objects

Search this site and the web for help on using ADO

 

[Sheco]

Here is one example of a FAQ on this site: faq222-3735

 

[makisbest]

At this code I get this error why?

code
Sub Get_Accountno()
Dim Conn as ADODB.Connection 'Connection
Dim Rs as ADODB.Recordset 'Recordset
Dim strQuery As String 'Command

Set Conn = New ADODB.Connection
With Conn
.CursorLocation = adUseClient
.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\MyPath\myDatabase.mdb"
.Open
End With

strQuery = "SELECT Accountno FROM tblTable " & _
"WHERE Username = 'BillK'"

Set Rs = New ADODB.Recordset
With Rs
Set .ActiveConnection = Conn
.CursorType = adOpenStatic
.Source = strQuery
.Open <----------------
End With

Is something wrong with this line.

 

[JerryKlmns]

maki

Would you share the error number & description ?

Gerassimos - kai ego makis e?!?

 

[Andrzejek]

Try:

strQuery = "SELECT Accountno FROM tblTable " & _
"WHERE  Username = 'BillK'"

Set Rs = New ADODB.Recordset
    With Rs
        Set .ActiveConnection = Conn
        .CursorType = adOpenStatic
        [b].Open strQuery, Conn[/b]
    End With

HTH

---- Andy