Funzione di ricerca?!?!

[stinger1]

ciao ho un'altro problema: sono riuscito a fare il mio benedetto database manager ma non riesco ad inserire una funzione di ricerca. X adesso ho inserito questa funzione ,ma da problemi e nn capisco x che... potete gentilmente controllare?

-------------------------- Funzione ------------------------------
Private Sub Command7_Click()
'Ricerca un nome all'interno dell database.
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data1.Recordset.Index = "Nome"
Data1.Recordset.Seek "=", NomeDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub
-------------------------- Fine Funzione ------------------------------ thx oppuere potete consigliarmene una migliore? tnx

[xegallo]

se il codice lo scrivi tra [*code] e [*/code] senza gli asterischi si capisce meglio

[stinger1]

:adhone: scusa ma nn ho capito bene quello che vuoi dire.

[xegallo]

Originariamente inviato da stinger1
:adhone: scusa ma nn ho capito bene quello che vuoi dire.

che c'è da capire quando scrivi il codice scrivi prima [*code]
e quando lo hai finito scrivi [*/code]

ma senza l'asterisco

[stinger1]

Vabbe Non ho capino cosa cambia xrò lo riscrivo.
qualcuno sa una formula x la ricerca in un database?

Private Sub Command7_Click() 
'Ricerca un nome all'interno dell database. 
Dim NomeDaCercare As String 
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda") 
If NomeDaCercare <> "" Then 
'Esegue la ricerca solo se è stato immesso un nome. 
Data1.Recordset.Index = "Nome" 
Data1.Recordset.Seek "=", NomeDaCercare 
If Data1.Recordset.NoMatch Then 
Data1.Recordset.MoveFirst 
Data1.Refresh 
'Il nome cercato non è stato trovato. 
MsgBox "Nome non trovato.", vbInformation, Me.Caption 
End If 
End If 
End Sub

[darkblOOd]

non dovrebbe esserci il metodo find nel recordset ADO?

cmq con il bind sull'oggetto data ti puoi attaccare, nel senso che devi usare i metodi. Altrimenti ti crei gli oggetti connection e recordset e usi le stringhe SQL con le clausole WHERE Campo = '...' oppure WHERE Campo LIKE '...'

[xegallo]

Originariamente inviato da stinger1
Vabbe Non ho capino cosa cambia xrò lo riscrivo.

che se fossi abituato a scrivere il codice educatamente sarebbe + leggibile

si la trovo una forma di educazione scrivere bene il codice aiuta a leggere chi ti deve aiutare

[stinger1]

non ho ben capito quello che intendi dark.infatti io intendo fare una specie di database menager con un profilo in visual basic.
sempre sullo sript di prima mi chiede il debug in questa righa:

Data1.Recordset.Index = "Nome"

x che?
grazie :master: :master:

[darkblOOd]

Originariamente inviato da stinger1
non ho ben capito quello che intendi dark.infatti io intendo fare una specie di database menager con un profilo in visual basic.
sempre sullo sript di prima mi chiede il debug in questa righa:

Data1.Recordset.Index = "Nome"

x che?
grazie :master: :master:

index accetta valori string? Scusami ma non ricordo Vb6, l'ho messo da parte da tempo.
in ogni caso cerca info nella documentazione riguardo i recordset ado: sia i metodi che le proprietà