[VB] 2 data stromen in 1 tabel

[Verwijderd]

Ik heb een erg lange lijst met Departments en bijbehorende managers.
Ik heb deze lijst in een tabel gepropt in mijn database.

Ik kan deze lijst wel te zien krijgen door de datafield en datasource in te vullen.

Maar ik wil die gegevens wel opslaan in een andere tabel. Namelijk in DATA.
Hier in staat het projectnummer/Dept Head/.../TAO.

Ik gebruik de standaard data component (onderin).

Kan iemand mij hier mee helpen?

[Verwijderd]

eh...ik gebruik het zelf niet maar een vriend van mij wel...

/me kijkt weleens achter de schouder van zijn vriend mee

en ik dacht zo van...is dat eigenlijk wel mogelijk? ik heb het nl. nog nooit gezien...

[Verwijderd]

maar anders moet ik 500 afdelingen in een list zetten!
dus overtypen

[ParaNoiMia]

Koop een goed VB boek of zoek voorbeelden over werken met databases en ADO op internet. Denk dat je daar veel verder mee komt dan met dat standaard data control...

[Verwijderd]

Ja, ik probeer zo veel mogelijk op internet te lezen.
Tot op heden ging alles wel ok. Behalve dan nu die dikke lijst.

Hoe kan ik eigenlijk data vanuit een tabel in een listbox krijgen?

Welke commando heb je daarvoor?

[Gerco]

Op donderdag 18 april 2002 18:52 schreef bjanssen het volgende:
maar anders moet ik 500 afdelingen in een list zetten!
dus overtypen

Overtikken? Ik dacht het niet. Gooi die Data controls overboord en ga met ADO of DAO zelf de boel proggen. Dan weet je tenminste PRECIES wat er wanneer en waarom gebeurt en dat kun je van de datacontrols niet zeggen.

Bovendien zit je niet aan dit soort achterlijke beperkingen vast en kun je ook nog een listview control oid gebruiken om je data te presenteren (en da's wel mooi).

Op donderdag 18 april 2002 20:04 schreef bjanssen het volgende:
Hoe kan ik eigenlijk data vanuit een tabel in een listbox krijgen?

zo (even met DAO)

code:

  Dim db as Database
  Dim rs as Recordset

  Set db = Opendatabase("c:\blaat.db")
  Set rs = db.OpenRecordset("select * from departments")

  rs.movefirst
  do while not rs.eof
    List1.additem(rs!name)
    List1.Itemdata(list1.newindex) = rs!id
  loop

Die itemdata is zodat je weet welke departmentid bij welke entry in de listbox hoort.