[vb6] ricerca record in datagrid

[RaouL_BennetH]

Salve, il problema che ho è questo:

Popolo una datagrid mediante ADO.

Volevo scrivermi una funzione che mi permettesse di inserire un testo da ricercare, e fare in modo che la datagrid mi evidenzi la riga dove è presente quel nominativo.

Stavo procedendo così:

Private Sub cmdFind_Click()

cerca = InputBox("Inserisci il nominativo: ")

trova = ""
trova = trova & "SELECT Nominativo FROM tblRubrica" & vbcrlf
trova = trova & "WHERE Nominativo = '" & cerca & "' " & vbcrlf

set rs = cn.execute(trova)

    if rs.EOF Then
       msgbox "No records", vbokonly

    else

       adodc1.recordsource = "trova"
       adodc1.refresh
    end if

Ma non mi riesce di farlo funzionare.


Piccolo EDIT: ho dimenticato di dirvi cosa è che non mi funziona

Il fatto è che mi trova la riga con il nominativo, ma io vorrei solo che la evidenziasse senza farmi sparire le altre, thx

thx.

RaouL.

[RaouL_BennetH]

concedetemi un up

[ciro78]

scusami se te lo chiedo ma tu devi ricercare un campo dopo la select o prima della select?

da come hai postato il codice mi sembra che tu voglia fare un query di estrazione in cui ti estrae solo i record che contengono il valore che tu inserisci nella inputbox

il caso è diverso se mediante una query tu popoli la datagrid e poi vuoi cercare il valore nella data grid.

fammi sapere

[RaouL_BennetH]

Originariamente inviato da ciro78


il caso è diverso se mediante una query tu popoli la datagrid e poi vuoi cercare il valore nella data grid.

fammi sapere

Si, hai ragione, scusami per l'infelice esposizione

Il caso è proprio questo, cioè, popolo una datagrid e vorrei ricercare un valore in essa.

Thx.

RaouL.

[ciro78]

Private Sub cmdcerca_Click()
x$ = InputBox("Inserisci la chiave di ricerca")
If Not x$ = "" Then
    valore = x$
    For k = 1 To griglia1.Rows - 1
        valore2 = griglia1.TextMatrix(k, 0)
            If valore = valore2 Then
                griglia1.Row = k
            For s = 0 To griglia1.Cols - 1
                griglia1.Col = s
                griglia1.CellBackColor = RGB(99, 0, 0)
            Next s
            Else
            End If
    Next k
Else
MsgBox "hai annullato"
End If
End Sub

spero che il codice sia chiaro. in esso faccio riferimento al pulsnate cmdcerca e ella griglia1

tinei presente che epr correttezza sarebbe meglio inserire tutto in un modulo .

p.s ricordatevi di salvare tutti gli esperimenti su unb supporto se no poi faticate a ritrovarli!

edit:

dimenticavo di dirti che il codice non è completo
infatti se effettui un'ulteriore ricerca verrà selezionata una riga in aggiunta alle precedenti. devi ripulire la griglia

[RaouL_BennetH]

Grazie mille

Ottimo aiuto, ancora grazie.