|
Public Function search(recordset As ADODB.recordset, field As String, lookfor As String, fieldtosave As String, listobject As Object)
Dim found As Variant X = 1 found = Array(X) recordset.MoveFirst While (recordset.EOF = False) If (recordset.Fields(field).Value = lookfor) Then found(X) = recordset.Fields(fieldtosave).Value listobject.AddItem (recordset.Fields(fieldtosave) & " | " & recordset.Fields(field)) X = X + 1 recordset.MoveNext End If Wend End Function recordset, e' il nome della tabella dove effettuare la ricerca Field e' in nome del campo da cercare field is the name if the field to search, must be in "" lookfor e' la stringa da trovare fieldtosave, e' il campo dove salvare listobject, e' il nome dell'oggetto dove visualizzare il risultato Nota: l'oggetto deve supportare la proprieta AddItem Il risultato verra visualizzato su una ListBox nel formato: FieldtoSave | Field |