[VB] Listbox importeren in database

[.GoO]

Ik ben met een programmatje bezig die gebruik maakt van een database met artikelen erin.. Deze producten kunnen geselecteerd worden in een form, waarna ze in een nieuw form in een listbox gezet worden in deze volgorde:

ArtikelNr A_Naam Aantal Totaalprijs

Nu wil ik al deze listbox gegevens in een database zetten, in een tabel genaamd BesteldeGoederen oid.. Er kunnen ook meerdere producten in de listbox staan, en hij moet alle producten toevoegen.. dus 4 lijnen wanneer er 4 producten in staan, 5 wanneer er 5 producten in staan, etc..

Wat is de simpelste manier om dit voorelkaar te krijgen?? Heb zelf al het eea geprobeerd, kreeg het alleen niet werkend voor elkaar..

Hoop dat het zo duidelijk genoeg is..

[.GoO]

Update:

Ik had zelf al zoiets gedacht

Private Sub cmdImport_Click()

daBesteld.Recordset.AddNew

Dim J as integer

For J = 0 To lstArt.ListCount - 4 Step 4
daBesteld.Recordset.AddNew
daBesteld.Recordset!ArtikelNr = lstArt.List(J)
daBesteld.Recordset!Aantal = lstArt.List(J + 1)
daBesteld.Recordset!TotPrijs = lstArt.List(J + 2)
daBesteld.Recordset!Ontvangen = "Nee"
daBesteld.Recordset.Update
Next

End sub

komt dat een beetje in de buurt of helemaal fout
werkt in iedergeval niet (goed).....

[NiMu83]

we zijn nog steeds bezig om het op te lossen maar tevergeefs...iemand die ons kan helpen???

[Verwijderd]

Waarom -4 step 4?

[.GoO]

ik dacht omdat het die 4 waarden betreft.. niet goed kan best hoor..

[.GoO]

Update: Ik krijg nu een Run-time error '3421': Data type conversion error.

weet betekend dit precies?

[Crazy D]

Op maandag 10 december 2001 10:33 schreef devv05 het volgende:
Update: Ik krijg nu een Run-time error '3421': Data type conversion error.

weet betekend dit precies?

Precies wat de melding zegt: een error tijdens het converteren van de ene datatype naar de andere.
"Hallo" in een integer veld plaatsen bijvoorbeeld gaat niet zo lekker werken...

[.GoO]

Hm ok.. maar hoe doe je dat dan met autonummering?? als ik dus wil dat ie elk product een apart nr geef.. van 0001 tm 9999

[Crazy D]

Autonummering? Zoals de naam al zegt, auto, automatisch dus. Zodra je een nieuw record toevoegt, wordt dat nummer automatisch toegevoegd.

[.GoO]

Op maandag 10 december 2001 16:41 schreef CrazyD_at_work het volgende:
Autonummering? Zoals de naam al zegt, auto, automatisch dus. Zodra je een nieuw record toevoegt, wordt dat nummer automatisch toegevoegd.

Nee, want als ik dan het eerste veld wil updaten en ik heb dat veld met autonummering niks toegewezen, geeft ie een error..

-edit- Hm lijkt nu te werken mét autonummering.. nu nog de goede waarden in de juiste velden zien te krijgen..

[mulder]

code:

Private Sub cmdImport_Click()
  daBesteld.Recordset.AddNew <- waar dient die voor?

  Dim J as integer

  For J = 0 To lstArt.ListCount - 4 Step 4 <- Bizar
    daBesteld.Recordset.AddNew
    daBesteld.Recordset!ArtikelNr = StrToInt(lstArt.List(J)) (Mits artikelnr een Number is)
    daBesteld.Recordset!Aantal = lstArt.List(J + 1)
    daBesteld.Recordset!TotPrijs = lstArt.List(J + 2)
    daBesteld.Recordset!Ontvangen = "Nee"
    daBesteld.Recordset.Update
  Next

End sub

Maar probeer eens een ListView, dat lijkt me een stuk mooier en beter, en druk eens op F1 of ga eens naae www.google.com, want volgens mij kun je wel wat tutorials gebruiken.

[.GoO]

Op maandag 10 december 2001 17:02 schreef El_Mundo het volgende:

code:

Private Sub cmdImport_Click()
  daBesteld.Recordset.AddNew <- waar dient die voor?

  Dim J as integer

  For J = 0 To lstArt.ListCount - 4 Step 4 <- Bizar
    daBesteld.Recordset.AddNew
    daBesteld.Recordset!ArtikelNr = StrToInt(lstArt.List(J)) (Mits artikelnr een Number is)
    daBesteld.Recordset!Aantal = lstArt.List(J + 1)
    daBesteld.Recordset!TotPrijs = lstArt.List(J + 2)
    daBesteld.Recordset!Ontvangen = "Nee"
    daBesteld.Recordset.Update
  Next

End sub

Maar probeer eens een ListView, dat lijkt me een stuk mooier en beter, en druk eens op F1 of ga eens naae www.google.com, want volgens mij kun je wel wat tutorials gebruiken.

Dit heb ik nu en dat maakt in iedergeval een nieuw record aan met de gegevens die ik hieronder ingevoerd heb en een autonummering

code:

Private Sub cmdImport_Click()

Dim J As Integer
Dim ArtNr As Single

J = 1

For J = 1 To lstArt.ListCount

daBesteld.Recordset.AddNew

daBesteld.Recordset!ArtikelNr = "1111"
daBesteld.Recordset!Aantal = "5"
daBesteld.Recordset!TotPrijs = "1100"
daBesteld.Recordset!BestelDat = Date
daBesteld.Recordset!Ontvangen = "Nee"

daBesteld.Recordset.Update

Next

Ja ben nog vrij nieuw met VB.. ben er nu sinds een paar maanden druk mee bezig.. vaak lukt het wel aardig alleen soms heb ik ff van die dingen waar ik moeilijk uit kan komen, zoals dit.. Die listview kende ik al ja, maar das toch weer een stuk lastiger, en dan moet ik het hele prog weer aan gaan passen.. dus als ik het zo voor elkaar kan krijgen heb ik dat voorlopig eventjes liever..

[.GoO]

code:

frmLijst.lstArt.AddItem (txtArtNr.Text & vbTab & txtNaam.Text
& vbTab & txtAantal.Text & vbTab & TotPrijs)

dat gebruik ik om een artikel in de listbox toe te voegen.. is het dan ook mogelijk om deze waarden er weer uit te halen en vervolgens in een database te stoppen?

[.GoO]

ok ook dat laatste is me inmiddels gelukt.. nu nog weer een vraagje, hoe kan ik een variabele de waarde van een uitkomst van een query geven?