[VB6] Visualizzare i risultati di una ricerca

[poppuzz]

Buongiorno a tutti...
mi servirebbe una mano.. ho bisogno di fare una form che mi ricerchi in un database un cognome e mi restituisca tutta la riga corrispondente a quel cognome... ho inserito tutte le text e il button... ora il mio problema nasce nel scrivere in risultato della ricerca nelle text...
ho scritto questo:

Private Sub Command1_Click() 
If cerca.Text '(la text dove faccio inserire il cognome da cercare)' <> "" Then 
Data1.RecordSource = " SELECT * FROM Coppie WHERE Cognomemarito LIKE '" & cerca.Text & "*'" 
 End If 
End Sub

poi come faccio a scrivere il risultato??? (ho vb 6.0)
grazie mille x l'aiuto

[gibra]

Devi valorizzare ciascuno dei controlli che hai predisposto nel form, leggendo i valori dal recordset.

Esempio:

TextBox1.Text = Data1.Recordset.Field(nomecampo).Value

Ma, c'è un ma....!
La condizione che stai usando:
WHERE Cognomemarito LIKE '" & cerca.Text & "*'"
non garantisce che venga restituito un solo record, ma possono esservi più record che corrispondano alla stessa condizione, quindi potrai leggere solo il primo record.


Però, dato che si è capito che sei all'inizio, se permetti qualche consiglio:

1) usare DAO è davvero preistorico.
2) usare per di più il controllo Data è ancor peggio.
3) Dovresti usare ADO e senza usare il controllo Data (ADODC)
4) personalmente, visto che stai imparando, lascerei perdere VB6 ed userei VB.NET (VS2010) almeno investi tempo, con VB6 è solo tempo buttato via.

Quanto sopra vale ovviamente solo se tu non sei uno studente che debba fare questo per la tua scuola.
In caso contrario non c'è ragione alcuna valida per continuare ad usare VB6.
Ma, se proprio vuoi usare VB6, almeno usa ADO!!!

Nel mio sito (vedi la mia firma) ci sono un sacco di progetti sorgenti di esempio su ADO (VB6). Ti consiglio di scaricarti il progetto
Prova Login
http://nuke.vbcorner.net/Progetti/VB...3/Default.aspx

che è in pratica una template di un applicazione completa che include le problematiche più comuni (ma raramente trattate nei progetti di esempio) iniziando dalle tecniche sul come gestire gli accessi, Login con Password, multi-utenza, e così via.
Puoi partire da quella, oppure prendere solo gli spunti che ti servono, e poi espandere la tua applicazione in base alle tue esigenze.

In ogni caso, lascia perdere DAO.

P.S. I linguaggi del VS2010 Express (VB.NET, C#, ...) sono tutti gratuiti,
quindi in ogni caso ti consiglio di scaricarlo.

[poppuzz]

Scusami gibra grazie mille x i consigli ma il tuo progetto nn me lo fa scaricare e la soluzione che mi dici non mi funziona... contina a dirmi che la variabile oggetto non è impostata... che ho combinato?

[gibra]

Originariamente inviato da poppuzz
Scusami gibra grazie mille x i consigli ma il tuo progetto nn me lo fa scaricare e la soluzione che mi dici non mi funziona... contina a dirmi che la variabile oggetto non è impostata... che ho combinato?

Purtroppo ho riscontrato che c'è un problema di accesso al mio sito, spero che il maintener risolva in fretta.


Riguardo all'errore: se non so indichi in quale riga si verifica è un po' dura indovinarlo, non trovi?

[poppuzz]

hai ragione scusa!!
io ho scritto questo codice:

Private Sub Form_Load() 
Load Form2 
Form2.Show vbModal 
Data1.DatabaseName = App.Path & "spai.mdb" 
End Sub  
Private Sub Command1_Click() 
If cerca.Text <> "" Then Data1.RecordSource = " SELECT * FROM Coppie WHERE Cognomemarito LIKE '" & cerca.Text & "*'" 
cognomelui.Text = Data1.Recordset.Field(Cognomemarito).Value  
End If 
End Sub

e sulla riga
cognomelui.Text = Data1.Recordset.Field(Cognomemarito).Value
mi da l'errore

[gibra]

Ovvio che ti da errore.

La proprietà Databasename non è valorizzata correttamente.
Dopo l'assegnazione metti uno Debug.Print e poi Stop così:

[CODE
Data1.DatabaseName = App.Path & "spai.mdb"

Debug.Print Data1.DatabaseName
Stop
[/CODE]

il progetto entra in pausa, poi leggi cosa ti dice la finestra Immediata di VB6.

[poppuzz]

l'ho corretto ho messo:
Data1.DatabaseName = App.Path & "\spai.mdb"
e ora il percorso è giusto ma continua a non leggermi il campo cognomemarito
scusami...