dimConnasnewadodb.connection"asp中是setconn=createobject("adodb.connection")

dimrsasnewadodb.recordset"類似於你的setrs=createobject("adodb.recordset")

sql=sql語句

rs.opensql,conn"打開記錄集，後面可跟參數，指定參數不同游標類型也不相同

ifnotrs.eofthen"判斷SQL語句是否存在查詢到的記錄

ifisnull(rs(字段))=falsethen"確定指定字段不為空

變量=rs(字段)"獲得字段內容

endif

endif

rs.close"關閉記錄集

conn.close"關閉數據庫連接

你好，如果在安裝VB IDE 時沒有安裝 ADO，可以採取以下措施：
1.重新運行安裝程序，選擇修改安裝選項，然後在“可選組件”中選中“數據訪問”和“ADO控件”，按照安裝向導的指示完成安裝。
2.從微軟官網下載並安裝 Microsoft Data Access Components（MDAC）。它包含 ADO 和其他數據訪問組件，可以用於訪問數據存儲在多種後臺數據庫中。
請注意，在安裝 MDAC 時需要仔細檢查程序版本和操作系統的兼容性，以免出現不兼容或安全漏洞。
希望這些信息能對您有所幫助。

答解決方法如下

1、在“工程/部件”下找不到“microsoft

ado

data

control

2、6.0”這一項的話，說明你的系統中很可能不存在msadodc.ocx控件。如果你的系統盤是在c盤的話，你可在c:\windows\system32目錄下查找msadodc.ocx控件。如果沒有找到的話，很可能該控件由於某種原因被刪除了。但是如果能找到該控件，則說明該控件尚沒有註冊，你只需將該控件註冊後重新打開vb即可找到該控件。當然，前提是你使用的vb不能是盜版的。