ADO控件和DATA控件的冲突（不能共存）的解决方法
2016-02-19 12:52
有一种朋友不在生活里，却在生命力；有一种陪伴不在身边，却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗？话不多说下面就和大家分享ADO控件和DATA控件的冲突（不能共存）的解决方法吧。
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase("d:stockyline.mdb")
Setrs=db.OpenRecordset("selectcount(*)astotalcountfromylinewhere条件")***
MsgBox(rs(0))
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
‘注明，这个例子在一般情况下运行正常
只有当一个FROM中已有ADO控件，你运行上面的例子
程序就会在***处的语句中出现实时错误'13'，类型不匹配的错误
这就是ADO控件和DATA控件的冲突，如果你想共存的话，下面的对你就有用了。
1.如果你是新建一个程序
当你新建一个程序时，在FROM中要先添加DATA控件，再添加ADO控件，OK一切正常
2.如果你已有一个程序，还想添加一个FROM（其中包括DATA控件）
解决方法是：1.新建FORM，建一个DATA控件，输入你要输入的代码，保存文件
2.添加文件，把你原来的工程文件添加进来
3.改变工程属性，把启动对象设置为你原来的工程
注意事项：ADO控件在DATA控件前面加入=“错误”
ADO控件在DATA控件后面加入=“正确”->
