mi spiego meglio...vorrei realizzare una ricerca in vb6 su database access che in una casella input box mi fa scrivere la parola da ricercare...e ad ogni lettere che scrivo mi appare sotto una comboboc con tutti i rierimenti trovati intempo reale
ad esempio
se scrivo RO mi deve visualizzare
ROSSI Paolo
ROMOALDO giacomo
e mi deve dare la possibilità di selezionare uno dei due per poi effettuare la ricerca su di loro
per adesso ho qualcosa del genere che in una combobox mi visualizza tutti i cognomi del database
Private Sub Form_Load()
Set cn3 = New ADODB.Connection
Set rs3 = New ADODB.Recordset
' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE I DATI
cn3.Open "driver={Microsoft Access Driver (*.mdb)};dbq=clienti.mdb"
rs3.Open "SELECT id,cognomevend, nomevend FROM tabella ORDER BY cognomevend ASC", cn3, 1
' INSERISCO UN ITEM VUOTO NELLA COMBO BOX
cmbseleziona.AddItem ("")
' ESTRAGGO I DATI CHE MI INTERESSANO DALLA TABELLA E LI INSERISCO NELLA COMBO BOX
While rs3.EOF = False
cmbseleziona.AddItem (rs3("id").Value & " - " & rs3("cognomevend").Value & " " & rs3("nomevend").Value)
rs3.MoveNext
Wend
rs3.Close
cn3.Close
End Sub
Rispondi quotando
