eseguire query e recuperare risultati su access

[kuarl]

Originariamente inviato da axsw
Provo a risponderti ma la tua domanda non molto chiara

option explicit
Dim mydata As Database
Dim myrecord As Recordset
Dim SQL As String
Private Sub command1_Click()
    Set mydata = OpenDatabase(App.Path + "\" + "DBacc1nomi.mdb")
    SQL = "SELECT * FROM nometabella"
    Set myrecord = mydata.OpenRecordset(SQL)

aggiungo anche questo nel caso volessi recuperare i dati in una lisbox e stamparli in una textbox

Private Sub listbox_Click()
    On Error Resume Next
        Set mydata = OpenDatabase(App.Path + "\" + "database.mdb")
        Set myrecord = mydata.OpenRecordset("tabella")
        myrecord.MoveFirst
        Do Until myrecord.EOF
            If lstvetri.Text = myrecord!nome Then
                txtnome.Text = myrecord!nome
                txtfor.Text = myrecord!fornitore
                txtdesc.Text = myrecord!descrizione
                txtID.Text = myrecord!identif
                txtprezzo.Text = myrecord!prezzo
                txtdata.Text = myrecord!Data
                End If
            myrecord.MoveNext
        Loop
    End Sub

proprio quello che cercavo :metallica

grazie mille!

mi spieghi solo a che serve la prima riga? (option explicit)