ADO控件和DATA控件的沖突（不能共存）的解決方法

ADO控件和DATA控件的沖突（不能共存）的解決方法

你知道ADO控件和DATA控件有沖突嗎？試一試下面的例子：
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("d:stockyline.mdb")
Set rs = db.OpenRecordset("select count(*) as totalcount from yline where 條件") ***
MsgBox (rs(0))
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

‘注明，這個例子在一般情況下運行正常
只有當一個FROM中已有ADO控件，你運行上面的例子
程序就會在 *** 處的語句中出現(xiàn)實時錯誤 '13' ，類型不匹配的錯誤

這就是ADO控件和DATA控件的沖突，如果你想共存的話，下面的對你就有用了。

1.如果你是新建一個程序
當你新建一個程序時，在FROM中要先添加DATA控件，再添加ADO控件，OK一切正常
2.如果你已有一個程序，還想添加一個FROM（其中包括DATA控件）
解決方法是：1.新建FORM，建一個DATA控件，輸入你要輸入的代碼，保存文件
2.添加文件，把你原來的工程文件添加進來
3.改變工程屬性，把啟動對象設置為你原來的工程

注意事項：ADO控件在DATA控件前面加入=“錯誤”
ADO控件在DATA控件后面加入=“正確”