Query di SELECT con parametro proveniente da una casella di testo

[Robyn69]

ciao a tutti
sto cercando di costruire una ricerca per mezzo di una select e sto inserendo questi dati ma non funge...

Private Sub Text3_Change()
If Text3.Text = "" Then
Dim sql As String
If Text3.Text = True Then
sql = "SELECT Nomefile,Descrizione FROM elenco WHERE Nomefile= '" & Text3.Text & "';"
 RS.Sort = sql
 DB.Containers.Refresh
 End If
End If
End Sub

premessa il mio intento e quello di cercare lo stesso record che prende il nome del contenuto della text3.text,
una volta trovato il nome restituire il risultato nelle text1 (0),(1) dove
text1(0) = nomefile
text1(1) = descrizione
il codice scritto non mi da nulla nemmeno un errore
un altra cosa volevo aggiungere anche che se nella ricerca non trova nulla con quel nome di darmi un mess.nessun nome trovato.
:muro:

[oregon]

Che senso ha assegnare la frase SQL alla Sort? Con la SQL ci apri il recordset (con la Open) ...

E poi questa If

If Text3.Text = True Then

che senso ha?

[Robyn69]

stavo facendo un po di prove ma non riesco a far partire la select.

Private Sub Text3_Change()
Dim txt As String
txt = Text3.Text
If Text3.Text = "" Then
txt = "SELECT Nomefile,Descrizione FROM elenco WHERE Nomefile= '" & Text3.Text & "';"
   
    MsgBox "nomefile non trovato.", vbCritical, "Errore"
End If

End Sub

volevo solo sapere se sono sulla strada buona o sto sbagliando tutto
sicuramente mancano ancora dei codici

[oregon]

Se il codice viene eseguito solo se

If Text3.Text = "" Then

allora vuol dire che non hai scritto nulla in quella textbox ... Come fai la ricerca quindi se non hai scritto il dato ?

Semmai deve essere

If Len(Text3.Text) > 0 Then

E poi l'assegnazione di Text3.Text prima a txt non ha senso ...

Il problema non e' se sei lontano o meno dal corretto codice per la ricerca ... il problema e' piu' alla base ... sembra che tu non abbia idea di come scrivere un programma ...

Te lo dico perche', se non hai le basi, e' difficile darti una mano ... Del resto ti avevo detto di usare il metodo Open del recordset per la ricerca e tu non l'hai fatto ...

[Robyn69]

il programma e quasi terminato
sto soltanto aggiungendo delle perfezioni se vuoi ti posto tutto il codice
e ovvio che non so nulla di vb e tantomeno di sql
ma mi sto leggendo tutti i manuali, di errori ne faccio parecchi ma sto pian pianino realizzando quello che voglio
non ho usato il data1 perche lo sto realizzando tutto da codice (di proposito)
anke perke se dovessi prestare questo programmino (visto che poi lo monto su un cd)
magari gli altri non hanno vb ho qualche libreria, il prog potrebbe non funzionare..

lo so che non e questo il modo di lavorare con il vb ma sono testardo (anzi come si dice a roma de coccio)
se non reco danni continuero a disturbarvi grazie comunque..
davvero il prog e quasi terminato ed e molto elaborato, non e tutta farina del mio sacco,
se vuoi te lo posto... ciao garzie di nuovo.