Læs fra en Access database i vB

2 sek.. skal lige skrive det...!

Du skal først ind og lave en referece på Microsoft ActiveX Objects 2.5

og så skal du bare kopiere følgende kode ind:

    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL As String
   
Function Connection()
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & App.Path & \"\\database.mdb\"
End Function

Private Sub Command1_Click()
    Connection
    strSQL = \"SELECT * FROM tabel\"
    Set rs = Conn.Execute(strSQL)
   
    MsgBox \"\" & rs(\"kollone\") & \"\"
End Sub

Private Sub Command2_Click()
    Connection
    strSQL = \"INSERT INTO tabel (kollone1, kollone2) Values(\'\" & Text1.Text & \"\', \'\" & Text2.Text & \"\')\"
    Conn.Execute (strSQL)
End Sub

Private Sub Form_Load()

End Sub

the easiest way to get your Access data into a VB application is use the form wizard. Then if neceesary you can put a combo box onto the form.

You can add/delete and change your Access data through this form