darknice86 (Normal User)
Newbie
Messaggi: 9
Iscritto: 06/04/2008
|
 ciao a tutti recentemente ho voluto far un programmino collegato al data base usando i componenti aggiuntivi adodc e datagrid inserendo il codice sui pulsantini aggiungi elimina e cerca per nome.
sul pulsante cerca per nome ho voluto immettere il seguente codice :
x = InputBox(" inserisci il Cognome da cercare ", "ricerca")
With Adodc1.Recordset
bkmTemporaneo = .Bookmark
.MoveFirst
.Find " cognome like '" & x & "%'"
If .EOF Then
MsgBox " Cognome inesistente! ", vbExclamation, "errore ricerca"
.Bookmark = bkmTemporaneo
End If
End With
il codice è perfettamente funzionante il mio problemino è che i dati cercati con successo vengano selezionati in blu e non so come fare.
posso avere un suggerimento x favore ???? vi ringrazio anticipatamente .
|
