[VB6 - DAO] nominativi identici non caricati

[md76]

Carico i dati nel combo con questo pezzo di codice.

Set dbsDati = OpenDatabase("c:\miadir\database\dati.mdb")
sql = "SELECT * FROM Anagrafica where Cognome & space(1) & Nome='" & cboClienti.Text & "'"
Set rstAnagrafica = dbsDati.OpenRecordset(sql)

Se pero' io inserisco un nominativo uguale anche se inserisco i campi data nascita, indirizzo ecc. diversi, ma comunque nome e cognome uguali, nel combo del programma visualizza tutti e due i nominativi, ma quando seleziono uno dei due nominativi mi visualizza tutti i dati uguali come se in realta prendesse solamente un nominativo.

[md76]

forse il problema, nasce dal fatto che quando io seleziono un cliente dal mio combo lo ricerco e riempi i campi successivi tramite il Cognome ed il Nome, ma forse devo fare un riferimetno anche all'ID di quel determinato cliente ?

Come devo fare, potete darmi una mano ?

grazie

[Mychy]

Si devi fare riferimento anche all'ID altrimenti recuperi sempre il primo record tra quelli che hanno cognome e nome uguali

[GudFella]

se carichi il combobox ciclando il recordset nel modo:

Do While Not rstAnagrafica.EOF
  combo.AddItem rstAnagrafica("nome") + " " + rstAnagrafica("cognome")
Loop

carica anche una listbox che terrai nascosta (visible=false):

Do While Not rstAnagrafica.EOF
  listbox.AddItem rstAnagrafica("ID")
  combo.AddItem rstAnagrafica("nome") + " " + rstAnagrafica("cognome")
Loop

ed al click del combobox:

Private Sub combo_Click()
  ID = listbox.List(combo.ListIndex)
Exit Sub

[md76]

grazie comunque a tutti.