[RESOLVED] ENUM values into combo

[veledrom]

Hi,

How do i populate ENUM values into a combobox from structure below. Thanks

Create table myTable(
title ENUM ('Mr', 'Mrs', 'Miss') NOT NULL DEFAULT 'Mr'
);

[nubie]

i'm not sure why you wanna populate your combobox from the database with this kind of data. i.e. 'Mr', 'Mrs', 'Miss'

a simple way to do that is:

right click on combobox
select Properties
on Properties look for
List
click the arrow button
then enter 'Mr', 'Mrs', 'Miss' on the list

if it really is necessary that you use database then hope this will help. It would give you a start.

Dim strSql As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
    conn.Provider = "Microsoft.Jet.OLEDB.4.0 "
    conn.Open ("C:\yourAppLocation\yourDB.mdb")
Set rs = New ADODB.Recordset

strSql = "SELECT title FROM myTable"

rs.Open strSql, conn, adOpenStatic, adLockOptimistic

If rs.BOF And rs.EOF Then Exit Sub

rs.MoveFirst

Do While Not rs.EOF
    Me.Combo1.AddItem rs.Fields(0)
    rs.MoveNext
Loop

Set conn = Nothing
Set rs = Nothing