inserimento in visual basic 6

[Bios1988]

ciao a tutti
ho creato un programma che funzione come le pagine bianche e quindi come un elenco telefonico
in un textbox si inserisce il cognome e si trovano indirizzo e numero di telefono
vorrei sapere come faccio AD INSERIRE UN COMANDO CHE DICA CHE QUANDO UN COGNOME DIGITATO NON è IN MEMORIA DICA CHE NN è STATO RILEVATO ALCUN COGNOME
grazie
attendo risp

[Joe Taras]

Originariamente inviato da Bios1988
ciao a tutti
ho creato un programma che funzione come le pagine bianche e quindi come un elenco telefonico
in un textbox si inserisce il cognome e si trovano indirizzo e numero di telefono
vorrei sapere come faccio AD INSERIRE UN COMANDO CHE DICA CHE QUANDO UN COGNOME DIGITATO NON è IN MEMORIA DICA CHE NN è STATO RILEVATO ALCUN COGNOME
grazie
attendo risp

Dipende se usi i dataset, se interroghi direttamente il DB.
Se interroghi il DB nell'evento Leave della text box fai una query e poi metti un messagebox che dice non c'è nulla.
Se usi i dataset fai una query sulla datatable che contiene l'elenco dei cognomi.

[Joe Taras]

Originariamente inviato da Joe Taras
Dipende se usi i dataset, se interroghi direttamente il DB.
Se interroghi il DB nell'evento Leave della text box fai una query e poi metti un messagebox che dice non c'è nulla.
Se usi i dataset fai una query sulla datatable che contiene l'elenco dei cognomi.

Ehm scusa non avvo visto che usavi VB6 ero convinto VB.NET quindi non credo puoi usare i dataset resta solo la query su DB allora.

Ciao di nuovo

[jakula]

A secondo il metodo che usi .... ad esempio se se il recordset è tipo data1:

   
Private Sub Command1_Click()
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca Indirizzo")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data1.Recordset.Index = "iltuocampodacercare"
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

Oppure con una query SQL