PDA

Visualizza la versione completa : cercare dentro un database


Francesco_76
02-10-2002, 21:06
Ciao a tutti premetto che sono alle prime armi con visual basic

ho questo codice:

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Anagrafico.mdb"
End Sub
Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
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

che viene attivato quando premo un tasto sul menu a tendina cosi:

Case "Find"
Command1_Click

adesso vorrei che quando scrivo il nome da cercare se trova il record mi stampi a video tutti i campi del database di quel record

come posso fare??

:ciauz:

Francesco_76
03-10-2002, 17:11
up
:bh:

Loading