[VB6] Ricerca avanzata in DataGrid

[Softec]

Buona sera a tutti,
E' possibile fare una ricerca avanzata partendo da i dati inseriti in un textbox?
Per essempio, se io nel textbox scrivo "S" che sposti tutti i record al primo che comincia con "S", se dopo scrivo "SE" che sposti tutti i record al primo che comincia con "SE" e cosi via...

Di questa maniera mi cercarebbe gli articoli in cui inserisco tutta la descrizione, no?

Private Sub Text1_Change()
strCerca = Me.Text1.Text
Rs.Open ("SELECT * FROM Articoli WHERE (Descizione='" & strCerca & "')")
Set DataGrid1.DataSource = Rs
End Sub

Grazie mille a tutti.
Saludos!

[alka]

A quale versione di VB fai riferimento?
Ripassa il Regolamento.

[Softec]

Scusatemi...
VB6 collegato con DB Access tramite ADO
Saludos!

[mgmg]

'questo ti estrae tutti i record che iniziano con il testo impostato
Private Sub Text1_Change() 
strCerca = Me.Text1.Text 
lung = len(trim(strCerca))
Rs.Open ("SELECT * FROM Articoli WHERE mid(Descizione, 1, len) ='" & strCerca & "'") 
Set DataGrid1.DataSource = Rs 
End Sub

'questo ti estrae tutti i record con condizione maggiore di/iniziano con 
Private Sub Text1_Change() 
strCerca = Me.Text1.Text 
lung = len(trim(strCerca))
Rs.Open ("SELECT * FROM Articoli WHERE (Descizione >='" & strCerca & "')") 
Set DataGrid1.DataSource = Rs 
End Sub

Non li ho provato spero di non aver sbagliato, fammi sapere.
Ciao

[Softec]

'questo ti estrae tutti i record con condizione maggiore di/iniziano con
Private Sub Text1_Change()
strCerca = Me.Text1.Text
lung = len(trim(strCerca))
Rs.Open ("SELECT * FROM Articoli WHERE (Descizione >='" & strCerca & "')")
Set DataGrid1.DataSource = Rs
End Sub

la variabile lung non la utilizi dopo, penso de rimpiazare strCerca nel commando SQL, ma così dice: Errore di sintasi(operatore mancante)nell'espressione della query (Descrizione =>'1')

poi un'altro problema è che devo chiudere e riaprire il recordset ogni volta che scrivo una lettera.
Grazie mille.
Saludos!

[mgmg]

Avevo copiato il codice e dimenticato il len che non serve :

Private Sub Text1_Change() 
strCerca = Me.Text1.Text 
'lung = len(trim(strCerca)) 
If Rs.State = 1 Then Rs.Close
Rs.Open ("SELECT * FROM Articoli WHERE (Descizione >='" & strCerca & "')") 
Set DataGrid1.DataSource = Rs 
End Sub

Per quanto riguarda la close, la devi fare ogni volta.

Ciao

[Softec]

Niente da fare...
dice: Nessun valore specificato per alcuni parametri necessari.
secondo me deve di essere qualche funzione che riesce a calcolare solo l'inizio della parola cercata, no?
Grazie Mille.
Saludos!

[Softec]

OK, ce l'ho quasi fatta...

Private Sub Text1_Change()
Dim datiSQL As String

If Rs.State = 0 Then
strCerca = Me.Text1.Text
datiSQL = "SELECT * FROM Articoli WHERE Left(descrizione," & Len(strCerca) & ")='" & strCerca & "';"
Rs.Open (datiSQL)
Set DataGrid1.DataSource = Rs
Else
Rs.Close
strCerca = Me.Text1.Text
Rs.Open (datiSQL)
Set DataGrid1.DataSource = Rs
End If
End Sub

con questo codice funziona "quasi" benissimo... ora il problema è che comincia a cercare quando digiti 2 lettere...