PDA

Visualizza la versione completa : VB: problema con un recordset


Tallino
19-06-2002, 10:11
Ciao a tutti, ho qualke problema con un recordset.
Utilizzando il seguente codice
----------------------------------
Private Sub DBListArticoli_Click()
Dim var As String
var = DBListArticoli.Text
dataDettagli.Refresh
dataDettagli.RecordSource = "Select * from Articoli where descrizione = '" & var & "'"
lblDescrizione.DataField = "descrizione"
End Sub
----------------------------------
visualizzo in un'etiketta la descrizione relativa ad un determinato articolo presente nella DBList (DBListArticoli).
Solamente ke le descrizioni vengono visualizzate, x così dire, "in differita"... ex: quando clikko su un articolo x la prima volta come descrizione nn mi visualizza nulla, quando clikko la seconda volta mi visualizza la descrizione del primo articolo , quando clikko il terzo articolo mi visualizza la descrizione relativa allo secondo e così via.
E' come se il primo campo del recordset fosse vuoto, ma nn capisco xkè!
Come faccio a risolvere questo problema?
Graze 1000 a tutti!

Tallino
19-06-2002, 11:26
nessuno riesce ad aiutarmi?
Magari è una stupidata ma sto andando nel pallone....

amodio
19-06-2002, 16:19
strano!! veramente strano

prova a vedere se quella variabile "var"
cambia di valore

io in genere non faccio refresh prima di eseguire una query
mah non so che dirti
prova a targli tu un valore e fammi sapere

darkblOOd
19-06-2002, 16:49
il problema è relativo all'evento click della combo: quando clikki su una voce, l'evento non ti tira fuori la voce sulla quale hai cliccato ma quella che ha il fuoco. Siccome l'evento scatta prima che la nuova voce prenda il fuoco, nella proprietà text ti trovi il valore della voce sulla quale hai cliccato precedentemente.

Metti un break-point nell'assegnazione della var e vedi con F8 andando avanti passo-passo come procede il codice.


:ciauz:

ale81
04-07-2002, 12:50
prova a mettere il refresh dopo!
fammi sapere ciao ale

:ciauz:

Tallino
04-07-2002, 13:10
così a me funziona!:
---------------------------------------------
var = DBListArticoli.Text
dataDettagli.Refresh
dataDettagli.RecordSource = "Select * from Articoli where descrizione like '" & var & "'"
dataDettagli.Recordset.FindNext "descrizione = '" & var & "'"
dataDettagli.Refresh
-----------------------------------------------

ale81
04-07-2002, 13:22
Prego!:metallica

Loading