🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: be.comp.programming
15 messages
15 total messages Started by Passero Sun, 15 Feb 2004 17:11
databasevraagje in VB6
#3116
Author: Passero
Date: Sun, 15 Feb 2004 17:11
25 lines
1975 bytes
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
Re: databasevraagje in VB6
#3117
Author: Roland Wolters
Date: Sun, 15 Feb 2004 18:51
72 lines
3068 bytes
"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
Re: databasevraagje in VB6
#3118
Author: Passero
Date: Sun, 15 Feb 2004 19:49
26 lines
2597 bytes
"Roland Wolters" <Roland@wolters-ict.nl> schreef in bericht
news:Xns9490C9FB332Arolandwoltersictnl@216.168.3.44...

>
> 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:

Het stukje code is wel compleet en heb het probleem al gevonden. Mijn
combobox had data1 als datasource en had "naam" als datafield. Daarom
verwijdere hij op blijkbaar die waarden, wat ik eigenlijk raar vind. Als ik
die waarden beide had verwijderd werkte het wel goed.

Ik weet ook wel dat het de leesbaarheid ten goede komt maar ik ben het zo
gewoon in VB. IK ben ondertussen al enorm bezig met object geori�nteerd
programmeren in java en daar kan het wel niet anders en daar zorg ik voor
extreme leesbaarheid maar in VB heb ik die reflect nu eenmala niet....
Re: databasevraagje in VB6
#3120
Author: Rene
Date: Mon, 16 Feb 2004 09:50
19 lines
1837 bytes
"Passero" <bla@bla.bla> schreef in bericht
news:k3QXb.2700$Lr5.25626@phobos.telenet-ops.be...
>
> Het stukje code is wel compleet en heb het probleem al gevonden. Mijn

Heb je dit stukje code al eens geprobeerd op een lege recordset (dus een
tabel zonder records)?

> Ik weet ook wel dat het de leesbaarheid ten goede komt maar ik ben het zo
> gewoon in VB. IK ben ondertussen al enorm bezig met object geori�nteerd
> programmeren in java en daar kan het wel niet anders en daar zorg ik voor
> extreme leesbaarheid maar in VB heb ik die reflect nu eenmala niet....

De eerste stap naar leesbaarheid is om tenminste een logische naam te geven
aan je variabelen en controls dus i.p.v. Combo1, Combo2 -> cbKleuren (of
comboKleuren), cbNamen, txtNaam etc., dat geldt voor (bijna) iedere
programmeertaal.

Rene
Re: databasevraagje in VB6
#3121
Author: AHA
Date: Mon, 16 Feb 2004 11:04
12 lines
1484 bytes
"Passero" <bla@bla.bla> schreef in bericht
news:k3QXb.2700$Lr5.25626@phobos.telenet-ops.be...

<snip>

| gewoon in VB. IK ben ondertussen al enorm bezig met object geori�nteerd
| programmeren in java en daar kan het wel niet anders en daar zorg ik voor

Waarom zit ik nu in godsnaam te glimlachen ?

Alex
Re: databasevraagje in VB6
#3126
Author: Passero
Date: Mon, 16 Feb 2004 12:44
30 lines
2408 bytes
"Rene" <please@nonospam.com> schreef in bericht
news:10317h03156b6c6@corp.supernews.com...

>
> De eerste stap naar leesbaarheid is om tenminste een logische naam te
geven
> aan je variabelen en controls dus i.p.v. Combo1, Combo2 -> cbKleuren (of
> comboKleuren), cbNamen, txtNaam etc., dat geldt voor (bijna) iedere
> programmeertaal.
>

I know maar in VB doe ik dat nu eenmaal niet... IK ben in VB begonnen als ik
14 jaar was, nu ben ik 21 en ik gebruik nog altijd VB en toen ik begon heb
ik nooit gehoord van leesbaarheid door een naam te geven aan je controls. Je
denkt er dan ook niet aan en ik ben het gewoon geworden met text1, text2,
enzo te werken en een gewoonte leer je niet snel af.
Op de hogeschool ben ik dan begonnen met java te leren en daar zagen we dan
ook als ander vak object geori�ntieerd programmeren bij. Daar gaat het nu
wel om de leesbaarheid en dat pas ik dan ook toe van de eerste letter code
die ik ooit schreef in java dus dat is ook een gewoonte geworden... daarom
het verschil. Het zijn pure gewoontes

> Rene
>
>
>
>
>
>
Re: databasevraagje in VB6
#3127
Author: Passero
Date: Mon, 16 Feb 2004 12:45
22 lines
1819 bytes
"AHA" <alexWANTSNOSPAMhaerens@hotmail.com> schreef in bericht
news:c0q875$gm1$1@reader11.wxs.nl...
>
> "Passero" <bla@bla.bla> schreef in bericht
> news:k3QXb.2700$Lr5.25626@phobos.telenet-ops.be...
>
> <snip>
>
> | gewoon in VB. IK ben ondertussen al enorm bezig met object geori�nteerd
> | programmeren in java en daar kan het wel niet anders en daar zorg ik
voor
>
> Waarom zit ik nu in godsnaam te glimlachen ?
>

Ja waarom?

> Alex
>
>
>
Re: databasevraagje in VB6
#3131
Author: Rene
Date: Mon, 16 Feb 2004 13:14
20 lines
1925 bytes
"Passero" <bla@bla.bla> schreef in bericht
news:4X2Yb.3274$dt5.97376@phobos.telenet-ops.be...

> ik nooit gehoord van leesbaarheid door een naam te geven aan je controls.
Je

Volgens mij les 1 van alle opleidingen/cursussen/boeken die er maar zijn, of
je gebruikt formulieren met maar ��n of twee controls (maar dan nog!).

> ook als ander vak object geori�ntieerd programmeren bij. Daar gaat het nu
> wel om de leesbaarheid en dat pas ik dan ook toe van de eerste letter code

In VB gaat het net zo zeer om de leesbaarheid als in iedere andere taal en
zolang je voor jezelf en je hobby programmeert maakt het niets uit.

Trouwens, als je zulke code schrijft na 7 jaar VB dan gaan er inderdaad
mensen glimlachen (of ROTFL) ;-)

Hint: kijk  nog eens goed naar de do loop until constructie (met name op een
lege tabel).
Re: databasevraagje in VB6
#2984
Author: Suzan Foster
Date: Mon, 16 Feb 2004 13:22
21 lines
1734 bytes
Passero wrote:

> AHA:
 >
> news:c0q875$gm1$1@reader11.wxs.nl...
> 
>> Passero:
 >>
>> <snip>
>>
>>| gewoon in VB. IK ben ondertussen al enorm bezig met object geori�nteerd
>>| programmeren in java en daar kan het wel niet anders en daar zorg ik voor
> 
>>Waarom zit ik nu in godsnaam te glimlachen ?
> 
> Ja waarom?

ik vind in ieder geval de notie dat goed coden pas nodig is bij oop-en 
hilarisch.

groetjes, su.
Re: databasevraagje in VB6
#2987
Author: AHA
Date: Mon, 16 Feb 2004 13:39
21 lines
1834 bytes
"Passero" <bla@bla.bla> schreef in bericht
news:RX2Yb.3276$Lr5.25626@phobos.telenet-ops.be...
| >
| > <snip>
| >
| > | gewoon in VB. IK ben ondertussen al enorm bezig met object geori�nteerd
| > | programmeren in java en daar kan het wel niet anders en daar zorg ik
| voor
| >
| > Waarom zit ik nu in godsnaam te glimlachen ?
| >
|
| Ja waarom?

'k Denk dat het vooral die "enorm" moet geweest zijn.

Alex

PS
En het is niet omdat je variabelen moet declareren en typeren voor je ze
gebruikt dat je OO bezig bent.
Re: databasevraagje in VB6
#2992
Author: Passero
Date: Mon, 16 Feb 2004 14:27
25 lines
2461 bytes
"Rene" <please@nonospam.com> schreef in bericht
news:1031ghtfslh4af2@corp.supernews.com...

>
> Trouwens, als je zulke code schrijft na 7 jaar VB dan gaan er inderdaad
> mensen glimlachen (of ROTFL) ;-)
>

In vb schrijf ik totaal anders qua leesbaarheid dan in java. IK zou een
voorbeeld kunnen geven maar de code is altijd zo lang om dat te tonen. Met
kleine stukjes code kan ik niet aan tonen dat ik wel degelijk deftige code
kan schrijven. Hoe kan ik anders 76/100 halen voor mijn examen en 14/20 voor
ons eindproject vorig jaar?

> Hint: kijk  nog eens goed naar de do loop until constructie (met name op
een
> lege tabel).
>

De tabel is nooit leeg. Daar ben ik 100% zeker van en indien de gebruik naar
access gaat en ze zo handmatig verwijdert, ok, dan wel maar die kans is wel
beetje te klein en trouwens, het programma is nog lang niet af. Ik werk
altijd eerst aan de functionaliteit en dan pas tijdens de afwerking werk ik
aan de betrouwbaarheid. IK werk namelijk niet volgens het XP princiepe.
Re: databasevraagje in VB6
#2993
Author: Suzan Foster
Date: Mon, 16 Feb 2004 14:36
15 lines
2308 bytes
Passero wrote:

> De tabel is nooit leeg. Daar ben ik 100% zeker van en indien de gebruik naar
> access gaat en ze zo handmatig verwijdert, ok, dan wel maar die kans is wel
> beetje te klein en trouwens, het programma is nog lang niet af. Ik werk
> altijd eerst aan de functionaliteit en dan pas tijdens de afwerking werk ik
> aan de betrouwbaarheid. IK werk namelijk niet volgens het XP princiepe.

betrouwbaarheid zou tot je functionaliteit moeten behoren. het is een 
kleine moeite om het vanaf het begin in te bouwen, en achteraf zo 
makkelijk over het hoofd te zien. wat heb je het liefst: tikkeltje 
langer aan je code werken of dagenlang debuggen door aannames die 
onderuit gaan? heeft trouwens niks met xp te maken.

groetjes, su.
Re: databasevraagje in VB6
#2996
Author: Rene
Date: Mon, 16 Feb 2004 15:08
22 lines
2020 bytes
"Passero" <bla@bla.bla> schreef in bericht
news:yr4Yb.3376$Ct5.123001@phobos.telenet-ops.be...
> kleine stukjes code kan ik niet aan tonen dat ik wel degelijk deftige code
> kan schrijven. Hoe kan ik anders 76/100 halen voor mijn examen en 14/20
voor
> ons eindproject vorig jaar?

Dat weet ik niet, het stukje code dat je geplaatst hebt komt in ieder geval
niet proffesioneel over.

> De tabel is nooit leeg. Daar ben ik 100% zeker van en indien de gebruik
naar

100% zeker is dat het een keer fout gaat (weleens van Murphy gehoord?)
terwijl je gewoon op een EOF kunt testen en je bent veilig.

> altijd eerst aan de functionaliteit en dan pas tijdens de afwerking werk
ik
> aan de betrouwbaarheid. IK werk namelijk niet volgens het XP princiepe.

Dit kost achteraf veel meer tijd dan gelijk goede degelijke code te
schrijven.
Re: databasevraagje in VB6
#2997
Author: Stefan Arentz
Date: Mon, 16 Feb 2004 16:08
10 lines
1542 bytes
"Rene" <please@nonospam.com> writes:

...

> Dat weet ik niet, het stukje code dat je geplaatst hebt komt in ieder geval
> niet proffesioneel over.

<zeikmode>basisschool spelfouten nog minder</zeikmode>

 S.
Re: databasevraagje in VB6
#2998
Author: Rene
Date: Mon, 16 Feb 2004 16:28
12 lines
1612 bytes
"Stefan Arentz" <stefan@tiSateh.local> schreef in bericht
news:m21xovnh1m.fsf@tiSateh.local...
>
> > Dat weet ik niet, het stukje code dat je geplaatst hebt komt in ieder
geval
> > niet proffesioneel over.
>
> <zeikmode>basisschool spelfouten nog minder</zeikmode>

Kan je ook niets aan doen maar het is zo...

*ploink*
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads