首先需要引用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
