首先需要引用sqldmo。方法：在“工具”-“引用”中引用 microsoft sqldmo object library。 代码： private sub combo1_dropdown() dim svr as new sqldmo.sqlserver dim i as integer if combo1.listcount > 0 then dim dn as string dn = trim(combo2.text) 'combo1是列数据库名的combo控件 combo1.clear combo1.text = dn sendkeys "{end}" '以上代码实现下拉时原来内容不被清空 else end if svr.connect "servername", "uerid", "pwd" '3个引号内分别为服务器名，用户名，密码 for i = 1 to svr.databases.count combo1.additem svr.databases(i).name next end sub
