Cerca (VB)

[xit]

Cosa c'è di sbagliato non funziona!
Io ho una MaskEditbox qui inserisco il codice fiscale
e nelle text mi va a mettere il nome e cognome estratto dal database
corrispondente a quel codice fiscale.

Private Sub cmdCerca_()
Dim dbConn As ADODB.Connection
Dim dbRec As ADODB.Recordset
Set dbConn = New ADODB.Connection
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
ICod = MaskCodice.Text
Set dbRec = dbConn.Execute("SELECT * FROM Pazienti WHERE CodFiscale = '" & ICod & "'")
dbRec.MoveFirst
While Not dbRec.EOF
txtNome.Text = dbRec.Fields(1).Value
txtCognome.Text = dbRec.Fields(2).Value
dbRec.MoveNext
Wend
End Sub

[darkblOOd]

che msg di errore ti da?

[Gigi84]

1)se non ci dici cosa fa di sbagliato però..

2)siccome ti aspetti che il record restituito sia 1 puoi evitare di fare un cilio While Wend..

[xit]

Non funziona proprio non mi da niente!

[Gigi84]

nel senso che nelle text non compare scritto niente??

[xit]

Io clicco il pulsante e le text rimangono vuote e non
mi dà alcun errore

[Gigi84]

perchè il recordset è vuoto.. prova a fare la query in access e dovrebbe venire vuota..

il codice fiscale che cerchi esiste nel DB?

[xit]

No il dato c'é nel database!

[Gigi84]

prova a farlo passo-passo e vedi se entra nel ciclo.. se non ci entra significa che il tuo rec è vuoto..

[c@##@ta]
non è che i campi nome e cognome sono vuoti?
p.s. (non ti sto dando del deficiente, è che magari la distrazione..)
[/c@##@ta]