🚀 go-pugleaf

form_load() :
dim tempset as adodb.recordset
set tempset=new adodb.recordset
tempset.open "select tabelnaam from system",dbcon
while not tempset.eof
    listbox.additem tempset![tabelnaam]
    tempset.movenext
wend
end sub


listbox_click() :
dim tempset as adodb.recordset
set tempset=new adodb.recordset
tempset.open "desc " & listbox.list(listbox.listindex),dbcon
while not tempset.eof
    msgbox tempset![kolomnaam]
    tempset.movenext
wend
end sub

Die SQL-statements kloppen uiteraard niet... maar ik weet niet met welke
database je werkt, dus...






HDC wrote:

> Hoi,
>
> Ik heb een user control ontworpen die op ��n ding na klaar is. Hoe maak je
> een property bestaande uit een lijst die je run-time opvult? IK kan werken
> met enumerations maar het is echt wel de bedoeling runtime te kunnen werken.
> Bedoeling is dat ik, aande hand van een ODBC, ophaal welke tabellen er
> beschikbaar zijn. Na een selectie van een tabel zou ik dan de beschikbare
> kolommen willen tonen.
>
> Ik heb eerst op het net gezocht maar geen enkel bruikbaar antwoord gevonden.
> Blijkbaar zou het op te lossen zijn door het gebruik van een collection van
> classes maar ik heb daar geen voorbeelden van.
>
> Is er iemand die hierop een antwoord weet? Misschien een voorbeeldje?
> Overschakelen naar VB.NET is geen optie.
>
> Met dank.
>
> HDC

--
------
Colocation/housing kosten te hoog --> http://www.housingcenter.be
--
Adverteren.be - 100% Nederlandstalig adverteren op kwalitatief hoogstaande sites
!