你知道ADO控件和DATA控件有冲突吗?试一试下面的例子:
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("d:\stock\yline.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控件后面加入=“正确"
【注:本文由控件中国网转载】