codice:
Private Sub Form_Load()
Dim ID(1000) as String 'o long se è numerico, primo campo
Dim NOME(1000) as String 'secondo campo della tabella
'Inserisci un array per ogni campo della tua tabella
Dim i as long
Dim idText As String
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset
i=0
If idText <> "0" Then
sqlstring = "SELECT * FROM [Anagrafico Incarico] WHERE ID like '*" & Replace(idText, "'", "''") & "*'"
Set Db = OpenDatabase("C:\Progetto Immobiliare\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)
Set Data1.Recordset = Rs
Data1.Recordset.MoveFirst
If Not Data1.Recordset.EOF Then
Do While Not Data1.Recordset.EOF
ID(i) = (Data1.Recordset.Fields("ID"))
NOME(i) = (Data1.Recordset.Fields("NOME"))
Data1.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
End If
End Sub
ora se per esempio vuoi visualizzare tutti i record estratti dalla
query
scrivi:
codice:
for(i=0 to uBound(ID)
lisBOX1.AddItem ID(i) '<-- inserisci 2 listBOX
listBOX2.AddItem NOME(i)
Next i
...ID(0) conterrà il valore del campo ID del primo record ESTRATTO dalla query, ID(1) il secondo ecc...