eseguire query e recuperare risultati su access

[kuarl]

Salve,
vi pongo una domanda semplice semplice, non conosco molto bene visual basic ma adesso devo lavorarci con un database access.
Potete postarmi un po' di codice (o documentazione o articoli correlati) che mi spieghino come connettermi ad un database access, effettuare una query (select) e recuperare i risultati??

grazie mille

[tomhead]

Qui trovi un esempio per la creazione di una rubrica

ciao

[kuarl]

letto grazie!
ma li trovo solo esempi che utilizzano le funzioni di manipolazione dei dati messe a disposizione da visual basic, a me invece interessa proprio l'esecuzione di una query SQL nella maniera più classica. Voglio inviare una query al database e recuperarne i risultati (Result set)

[kuarl]

forse l'ho posta in maniera complessa... non credo che nessuno qui non sappia stabilire una connessione ed eseguire delle query su access, aiutatemi please

[axsw]

Provo a risponderti ma la tua domanda non molto chiara

-->code:
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)
code:<--
''''aggiungo anche questo nel caso volessi recuperare i dati in una lisbox e stamparli in una textbox
-->code:
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
-->code:

[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)

[kuarl]

Originariamente inviato da kuarl
proprio quello che cercavo :metallica

grazie mille!

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

uhm... mi da un'errore, me lo da su:
Dim mydata As Database
dice
"tipo definito dall'utente non definito"
credo ci sia da importare qualche libreria ma non so quale

[edit] risolto
devo sbatterci di più prima di postare mi sa'

[axsw]

In visual basic si può scegliere la dichiarazione obbligatoria delle variabili a parer mio fortemente consigliata, in questo modo tutte le varibili non riconosciute vengono intercettate e segnalate.

se metti appunto "Option explicit" vuol dire che la dichiarazione delle variabili è obbligatoria e nelle righe sottostanti dichiari
tutte le variabili

esempio:
Code:
Option explicit
Dim Numero As integer 'numero intero
Dim Denaro As Currency 'No comment
Dim Immagine As Object 'No comment
'eccetera ci sono molti tipi di variabili che non stò ad elencarti
Code\

[Meldon]

Originariamente inviato da kuarl
uhm... mi da un'errore, me lo da su:
Dim mydata As Database
dice
"tipo definito dall'utente non definito"
credo ci sia da importare qualche libreria ma non so quale

[edit] risolto
devo sbatterci di più prima di postare mi sa'

Scusa puoi dirmi come hai fatto a risolvero da a me lo stesso errore. Grazie mille