[VB6] Ricerca nel database

[danz67]

In un form ho creato una datagrid, un controllo adodc e un pulsante e ho critto queso codice.

Private Sub Command1_Click()
Dim ricerca As String
ricerca = "SELECT * FROM Clienti"
ricerca = ricerca & " FROM Clienti"
Data1.RecordSource = ricerca
Data1.Refresh
End Sub

Cosi mi trova tutti i record e fin qui ci siamo ma io vorrei creare una textbox e far si che scrivendo all'interno (ad es. nome) mi trovi i record richiesti, grazie per l'aiuto.

[danz67]

Nessun aiuto?!?

[yyzyyz]

ciao nn ho modo di provare il sorgente ma dovrebbe essere una cosa del genere.

Private Sub Command1_Click() 
Dim ricerca As String 
ricerca = inputbox(nome?)
sql = "SELECT * FROM Clienti where nome='" & ricerca & "'" 
Data1.RecordSource = sql
Data1.Refresh 
End Sub

[danz67]

Mi da errore di sintassi su questa stringa
ricerca = inputbox(nome?)

[yyzyyz]

hai provato mettendo le virgolette?

ricerca = InputBox("nome?")

buon anno a tutti i forumisti ....moderatori compresi

[danz67]

Adesso funziona pero' gradirei fare un tipo di ricerca piuì estesa, ad esempio...nome, cognome codice cliente, ecc., a questo punto posso modificare il codice e inserire piu criteri di ricerca oppure devo creare un controllo dove poter scieglere il tipo di ricerca da effettuare?
Grazie.

[yyzyyz]

puoi mettere un combobox e modificare il tuo sorgente in questo modo:

Dim ricerca As String
Dim campo_ricerca As String
Private Sub Combo1_Click()
campo_ricerca = Combo1.Text
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem ("nome")
Combo1.AddItem ("cognome")
Combo1.AddItem ("ditta")
Combo1.ListIndex = 0
End Sub
Private Sub Command1_Click()
ricerca = InputBox("nome?")
sql = "SELECT * FROM Clienti where " & campo_ricerca & "='" & ricerca & "'"
Data1.RecordSource = sql
Data1.Refresh
End Sub

ciao

[danz67]

Ti ringrazio per la disponibiltà pero' c'è ancora qualcosa che non va.

Ho creato la combobox peronalizzata con i campi che mi interessano.

Quando avvio il prgramma e seleziono nella combobox il campo che mi interessa, successivamente premo sul command1 e mi si apre il form di ricerca con la voce "nome?" poi esce un'eerore che dice " errore di runtime 3075; Errore di sintassi (operatore mancante) nell'espresisone della query 'codice cliente='25"

Dove ho sbagliato?
Grazie e ciao.

[danz67]

Dopo diverse prove ho capito che l'eerore me lo genera quando inserisco una ricerca di tipo numerico.
Qualcuno puo' aiutarmi perfavore? Grazie infinite.

[yyzyyz]

ciao forse l'errore è nelle vigolette, prova in questi modi e fammi sapere , ciao

'" & ricerca & "'"

" & ricerca

%" & ricerca & "%"