🚀 go-pugleaf

"Passero" <bla@bla.bla> wrote in
news:hLNXb.2434$gg7.259177@phobos.telenet-ops.be: 

> Wanneer ik volgende code uitvoer in VB6 dan verwijdert hij zomaar mijn
> records. Sommige velden laat hij gewoon staan, sommige verwijdert hij.
> Het veld naam verwijdert hij altijd bij elke record en dl,da,db
> verwijdert hij niet bij het eerste record, de rest wel... Zeer raar.
> Ik maak wel gebruik van een ADO datacontrol. Wanneer ik een DAO
> gebruikte had ik dat probleem niet. Iemand enig idee?
> 
> Private Sub Form_activate()
> Data1.RecordSource = "select * from kleuren"
> Data1.Refresh
> Do
>     Combo1.AddItem Text1
>     Data1.Recordset.MoveNext
> Loop Until Data1.Recordset.EOF = True
> Data1.Recordset.MoveFirst
> With Data1.Recordset
>   txtdl2 = .Fields("dl1")
>   txtda2 = .Fields("da1")
>   txtdb2 = .Fields("db1")
>   txtdl3 = .Fields("dl2")
>   txtda3 = .Fields("da2")
>   txtdb3 = .Fields("db2")
> End With
> Combo1.ListIndex = 0
> End Sub
> 
> 
> 
> 

Huh? Is het stukje code wel compleet?

Je vult eerst data1 met "select * from kleuren" om vervolgens door de 
recordset heen te lopen en Text1 aan de combo toe te voegen. Waar komt 
text1 vandaan? Je doet daar -in het gegeven voorbeeld-  niets mee!

Vervolgens ga je weer naar het begin an schrijf je (altans dat vermoed 
ik) de waarden van een aantal velden in ee textbox. Nou weet ik wel dat 
"text" en "value" default properties zijn maar in deze sitatie zou ik ze 
voor de zekerheid toch uitschrijven. Het gebruik van default properties 
komt de leesbaarheid niet ten goede. Dus:

With Data1.Recordset
   txtdl2.Text = .Fields("dl1").Value
   txtda2.Text = .Fields("da1").Value
   txtdb2.Text = .Fields("db1").Value
   txtdl3.Text = .Fields("dl2").Value
   txtda3.Text = .Fields("da2").Value
   txtdb3.Text = .Fields("db2").Value
End With

Enfin nu heb ik je nog niet geholpen maar zoals ik al aangaf lijkt me de 
code niet compleet. Of wat je nou wilt.


Mazzzel,

Roland


-- 
Roland Wolters
Homepage: http://www.wolters-ict.nl
WebLog  : http://www.habbiebabbie.net
Please reply to newsgroups only. Thanks.

"I have not failed. I've just found 10,000 ways that won't work."
- Thomas Alva Edison (1847-1931)
http://www.famousquotes.com/Show.php?_id=1000054