工程--》引用--MICROSOFT ACTIVEX DATA CONTROL加入ADO控件后,单击右键选择属性
用datacombo控间也不错,可以用绑定的 用combobox也可以, 在form_activate事件里: rs.movefirst do while not rs.eof combobox.additem rs("filedname") rs.movenext loop
rs是一个变量,一般是 RecordSet的变量名。
在链接ACCESS数据库之前,先引用DAO对象:选择“工程”菜单的“引用”命令,然后“引用”对话框中添加“Microsoft DAO 3.6 Object Library” dim db as database dim rs as recordset private sub form_load() set db=opendatabase(app.path+"\民族表.mdb") set rs=db.openrecordset("民族") do while not rs.eof combo1.additem rs("民族") rs.movenext loop end sub
还是ADO来的快。先引用一个ADO控件,然后选择好它的datasource等属性,再在其属性里选择数据库(要记得是ole db 4.0). 建好后,再把combobox和ado连接起来就好了
用combobox也可以,
在form_activate事件里:
rs.movefirst
do while not rs.eof
combobox.additem rs("filedname")
rs.movenext
loop
dim db as database
dim rs as recordset
private sub form_load()
set db=opendatabase(app.path+"\民族表.mdb")
set rs=db.openrecordset("民族")
do while not rs.eof
combo1.additem rs("民族")
rs.movenext
loop
end sub
建好后,再把combobox和ado连接起来就好了