Reading Access Database Values with VB 6.0

[FmX]

Hello everyone.

I am a VB newbie and I'm trying to write code so I can get specific information from a table in a MS Access database. After reading the columns from the database, the information read should be stored on a n x 2 matrix (the matrix is n x 2 because I only need to know the information of two columns but have a random number of events on those columns).

Any help will be greatly appreciated.

[Microchip]

Hello everyone.

I am a VB newbie and I'm trying to write code so I can get specific information from a table in a MS Access database. After reading the columns from the database, the information read should be stored on a n x 2 matrix (the matrix is n x 2 because I only need to know the information of two columns but have a random number of events on those columns).

Any help will be greatly appreciated.

Your question seems very broad. If you can be more specific, I will try to help you.

[nairda]

Hello everyone.

I am a VB newbie and I'm trying to write code so I can get specific information from a table in a MS Access database. After reading the columns from the database, the information read should be stored on a n x 2 matrix (the matrix is n x 2 because I only need to know the information of two columns but have a random number of events on those columns).

Any help will be greatly appreciated.

Hello FmX,
I hope these code can give you a hint how to get specific value from MS Access table.
I don't understand about "n x 2 matrix", so I have these two textbox to show the value.
You need 1 Command button as a trigger of these actions.
Example: You have a database table (STUDENTFILE) that contains 5 Columns (STUDENTCODE, NAME, ADDRESS, GENDER, GRADE). You want to show only data from 2 columns (NAME, ADDRESS)

Private Sub Command1_Click()
    Dim conec As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    conec.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ='" & App.Path & "\mydatabase.mdb'"
    conec.CursorLocation = adUseClient
    conec.Open
 
    ' If you want to retrieve and show Student NAME and Student ADDRESS from STUDENTFILE table in textbox1 and textbox2, based on a spesific STUDENTCODE you typed in Textbox3
    rs.Open "select NAME, ADDRESS from STUDENTFILE where STUDENTCODE = '" & Text3.Text & "'", conec, adOpenKeyset, adLockOptimistic
    If rs.EOF = False Then
        Text1.Text = rs!NAME
        Text2.Text = rs!ADDRESS
        Set MSHFlexGrid1.DataSource = rs
        rs.MoveNext
        rs.Close
        cmdbaru.Visible = False
    End If
End Sub

NAIRDA