先添加Data1,连接好access数据库,再添加text1控件,text1控件属性中找到data1连接好access数据库中所需的字段,再添加combo1
再按下述程序执行即可
Combo1.Clear '清空Comb1
Form1.Data1.Refresh
k1 = data1.Recordset.RecordCount, 统计数据库的总数
data1.Recordset.MoveFirst '从数据库的第个数据开始
For k = 1 To k1 '调入Data的数据
If k = 1 Then GoTo 10
Data1.Recordset.MoveNext ' 移动数据库数据
10
Combo1.AddItem text1.text '
Next k
End Sub
注意:
data设置中:
recordsettype:0-table
recordsorce: 数据库名
你试一下,看怎么样。