[VB/Access] Combobox list items uit access database

[Verwijderd]

Heren,

Misschien een echt domme vraag maar heb overal gezocht maar ik kon nergens een goed antwoord vinden.

Ik ben bezig met het maken van een database waar een tabel in staat "Discipline"
Daar in zitten de attibuten:
DisciplineID
DisciplineDesc
SuperiourDisiplineID

de SupiriorDisciplineID zit er in omdat ik als ik wat in de combobox aan klik
een andere combobox komt met opties die voor dat item mogelijk waren.

Mijn vraag is hoe kan ik door midden van een do...until loop items uit een database halen en in een combobox zetten ik zelf dacht aan deze:

Do
Combo1.AddItem rs!disciplineDesc
Loop until rs.EOF

maar die pakt die niet. Weet iemand misschien hoe het wel moet? (ik gebruik trouwens ADODC)

En daarna is mijn vraag welke code moet ik gebruiken om te zorgen dat hij een andere combobox opent als ik iets geselecteerd hebt met de opties die gefiltert word door de superiourDiciplineID.

Alvast bedankt,

Jordy

[party42]

do while not rs.eof
<actie>

rs.movenext
loop

toch?

[Verwijderd]

Misschien beter voor de hele code

Private Sub Form_Load()
Dim db_file As String
Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset


db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & _
"\"
db_file = db_file & "de naam van de database"


Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open


statement = "SELECT DisciplineDesc FROM Discipline ORDER BY DisciplineDesc"


Do Until rs.EOF
Combo1.AddItem rs!Discipline

rs.MoveNext
Loop

rs.Close
conn.Close

Combo1.ListIndex = 0
End Sub

Als ik dit dee dan zegt vb:

run-time error 91

object variable or With block variable not set

[ Voor 10% gewijzigd door Verwijderd op 25-11-2003 11:26 ]

[nescafe]

Kun je de code niet debuggen door hem met F8 (step) uit te voeren? Zie je vanzelf waar ie moeilijk gaat doen

[party42]

ik heb alleen geen flauw idee welke regel de foutmelding zich voordoet...? Kun je daar nog iets over roepen?

Maargoed, ik zie dat je een connectie maakt, vervolgens maak je een statement, vervolgens zeg je dat de connectie door de database heen moet lopen...

Misschien moet je het statement daadwerkelijk nog naar de database sturen?

m.a.w Set rs = Conn.Execute(statement)

* party42 is ASP kennis aan het toepassen op vb, dus het hoeft niet allemaal te kloppen...

[whoami]

Misschien kan je zelf je code eerst eens gaan debuggen ipv je hele lap code hier te plakken en het aan ons over te laten.

Lees misschien ook eens de P&W Quickstart en de rest van de FAQ, je zult dan zien dat je code-tags kan gebruiken om je code duidelijker te posten.

[ Voor 51% gewijzigd door whoami op 25-11-2003 11:52 ]