Hoe waarden in Combobox via DAO ( VB)

[be062603]

Beste

Ik zit met een klein vraagje . Ik zou enkele waarden vanuit een access database moeten kunnen in mijn combobox krijgen en wil dit doen met behulp van DAO . Hoe kan ik dit het makkelijkst ? Het liefst had ik dit gedaan m.b.v een query ( SQL ) . Dus gewoon eerst query maken en dan de rowsource van de combobox in die query kunnen zetten .

Groetjes

[iamcj]

In Access of Visual basic?

[be062603]

iamcj schreef op 01-12-2003 @ 19:41:
In Access of Visual basic?

tja maakt dat veel verschil uit

Momenteel is het access,maar ik wil het in de toekomst over brengen naar Visual Basic

[iamcj]

Ja, want DAO is specifiek access/VBA

ADO is een algemen taal ontwikkeld om te communiceren tussen en met vele verschillende dbvormen.

Het lijkt me dus verstandig om met ADO te gaan werken.

Maar voor je probleem heb je geen ADO nodig, ADO gebruik je voor het manipuleren van recordsets.

Public Function test()
  Dim strSql As String
  
  With Form_fUrenbrief
    strSql = "TRANSFORM First([tUren].[Manuren]) AS EersteVanManuren " & _
              "SELECT [tUren].[Werknummer], [tUren].[Werknaam], [tUren].[Opdrachtnummer], [tUren].[Mannummer], [tUren].[Week], Sum(tUren.Manuren) AS SomVanManuren " & _
              "FROM tUren " & _
              "WHERE ((([tUren].[Mannummer]) = " & .txtMannummer & ") And (([tUren].[Week]) = " & .cmbWeek & ") And ((Year([Datum])) = " & .cmbJaar & "))" & _
              "GROUP BY [tUren].[Werknummer], [tUren].[Werknaam], [tUren].[Opdrachtnummer], [tUren].[Mannummer], [tUren].[Week] " & _
              "PIVOT Weekday([Datum]);"
  End With
  Form_frmMain.cboJouwComboBox.RecordSource = strSql
End Function