Help with Data object please!

[vm360]

How can I open an Access 2000 database using the Data object?
Thanks.

[vm360]

Please gimme some advice...

If this is not possible using the data object, please tell me another way to use an Access database. I have textbox in which I have to show the content of a field. Any demo or something?

Thanks.

[Lethal]

I would recommend using ActiveX data objects. This is Micrsofts
recommended data access solution for connecting to various datastores. Here's an example. Go into Projects --> References
-->Microsoft ActiveX Data Objects...Check it

Private Sub Form_Load()
    Dim objConn As New ADODB.Connection
    Dim strConnectionString As String
    
    strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
    objConn.Open strConnectionString
End Sub

This only establishes a connection to the database. If you need help retrieving a recordset, let me know. ADO objects are pretty easy to traverse once you get the hang of the object hiearchy.

[vm360]

Thanks. I just want to ask you the following:

I have a multiline textbox and I want to load the contents of the records I have in a field, how can I do it?
I want to use some buttons to move between the fields.
If you can please make a little demo for me, I'll appreciate it a lot. I'm learning, be patient with me

[Lethal]

Here's a quick run through on how to navigate thru a recordset. By no means is this complete, just a quick, dirty example.

Option Explicit
Dim objConn As New ADODB.Connection
Dim objRS As New ADODB.Recordset

Private Sub cmdMoveNext_Click()
    objRS.MoveNext
    If objRS.EOF Then objRS.MovePrevious
End Sub

Private Sub cmdMovePrevious_Click()
    objRS.MovePrevious
    If objRS.BOF Then objRS.MoveNext
End Sub

Private Sub Form_Load()
    Dim strConnectionString As String
    
    strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
    objConn.Open strConnectionString
    
    objRS.Open "Employees", objConn, adOpenStatic, adLockReadOnly, adCmdTable
    Set Text1.DataSource = objRS
    Text1.DataField = "EmployeeID"
End Sub

[vm360]

It's OK.

Thank you SO much!