[VB6] Cercare selezionando le tabelle di Access

[plasticity]

Sto creando un maledetto programma e il mio blocco è nel motore di ricerca proprio nel punto in cui c'è SELECT * FROM Tabella WHERE CmbCella = TxtCerca. solo che io vorrei fare in modo tale che funzioni, ma sbaglio a scriverlo sicuramente. Il motore di ricerca dovrebbe funzionare così: Io metto il termine da ricercare e poi scelgo la cella in cui cercarlo(Con una lista nella combobox), per esempio cerco il nome Francesco nella cella Nome...ma non va, potreste dirmi come poter fare per farlo funzionare? Sbaglio a non mettere le ""? dove? Perfavore!!

[motogpdesmo16]

suppongo che tu già sappia che devi creare gli oggetti per la connessione e il recordset...in tal caso ti rimando al thread in rilievo presente in questa sezione.
Tornando alla tua domanda: la query devi associarla ad una variabile ed è ovviamente parametrizzata ossia cambia il suo comportamento in base al contenuto della textbox TxtCerca.

Pertanto sarà:

sql="SELECT * FROM Tabella WHERE CmbCella = '" & TxtCerca.text &"';"

Nel caso in cui anche il nome della tabella e il nome del campo sono da parametrizzare devi usare gli stessi accorgimenti che ti ho appena mostrato con il codice di esempio.
Spero di esserti stato d'aiuto. Nel caso chiedi..ma non dimenticare di dare un'occhiata al thread in rilievo.

[plasticity]

ho fatto così

rs.Open "SELECT * FROM Utenti WHERE '" & cmbSearch.Text & "' = '" & txtSearch.Text & "';", cn, 1 ma non va! Cioè formalmente è corretto ma non mi trova nulla insomma è sballato!

[oregon]

Originariamente inviato da plasticity
ho fatto così

rs.Open "SELECT * FROM Utenti WHERE '" & cmbSearch.Text & "' = '" & txtSearch.Text & "';", cn, 1 ma non va! Cioè formalmente è corretto ma non mi trova nulla insomma è sballato!

Se ho capito, in cmbSearch c'è il nome del campo e in txtSearch il valore ... Quindi ci sono degli apici in più all'inizio ...

rs.Open "SELECT * FROM Utenti WHERE " & cmbSearch.Text & " = '" & txtSearch.Text & "';", cn, 1

[plasticity]

mi dice che non supporta le proprietà richieste!

[oregon]

Puoi essere piu' preciso ... ?

[plasticity]

no no scusami funziona avevo fatto io una cosa sballata!!!| grazsieee!!!!

[mgmg]

Puoi provare con:

Rs.CursorLocation = adUseClient

rs.Open "SELECT * FROM Utenti WHERE " & cmbSearch.Text & " = '" & txtSearch.Text & "'", cn, 1

[plasticity]

fin'ora tutto ok

Però se faccio la stampa libera di tutti i risultati (Cioè non metto nessun where)

txtRisultati.Text = (rs("Nome").Value)
rs.Movenext

mi fa vedere solamente il primo record!!!

[mgmg]

Non capisco perchè ti meravigli:
la select, senza condizioni (where),seleziona (mette a disposizione) appunto tutti i record presenti nella tabella. Ma questo non vuol dire che li "porta" tutti a video.
Nel txtRisultati.Text = rs("Nome") avrai il primo record risultante dalla selezione (o il record su cui ti posizioni dopo la select, rs.Movenext, rs.MoveLast)
A video, come hai strutturato il programma, ti visualizzerà sempre e solo un record.
Con rs.Movenext ti sposti su quello successivo eppoi?? Se non fai vedere nessun valore a video a cosa ti serve.

Se hai bisogno di vedere tutti i record selezionati devi usare un oggetto diverso dal textbox: Combobox, ListView, ListBox... e fare un loop di lettura sul recordset. Oppure utilizzi oggetti come Grid,Flexgrid..
Ciao