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控件，你运行上面的例子

程序就会在 *** 处的语句中出现实时错误 13 ，类型不匹配的错误

 

这就是ADO控件和DATA控件的冲突，如果你想共存的话，下面的对你就有用了。

 

1.如果你是新建一个程序

当你新建一个程序时，在FROM中要先添加DATA控件，再添加ADO控件，OK一切正常

2.如果你已有一个程序，还想添加一个FROM（其中包括DATA控件）

解决方法是：1.新建FORM，建一个DATA控件，输入你要输入的代码，保存文件

2.添加文件，把你原来的工程文件添加进来

3.改变工程属性，把启动对象设置为你原来的工程

 

注意事项：ADO控件在DATA控件前面加入=“错误”

ADO控件在DATA控件后面加入=“正确”