为什么在建立数据库连接是出现“未找到提供程序 该程序可能未正确安装”？

Question

为什么在建立数据库连接是出现“未找到提供程序 该程序可能未正确安装”？

Answer 1

没有添加DAO.ADO引用或引用不对或没有ODBC数据源

Answer 2

db.Open "PROVIDER=MSDASQL;dsn=OO;uid=shuiwu;pwd=shuiwu;database=oo;"PROVIDER指定的驱动在你的机器上安装好了吗？

Answer 3

装了，当我用ado控件时，是可以连接的
可是一用activex数据对象，运行时就会显示那个消息
代码如下：
Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub MDIForm_Activate()
Set cn = New ADODB.Connection
Dim str As String
 str = "provider=microsoft jet 4.0 oledb " & _
                       "data source=g:\vb\article.mdb"
cn.Open str
Set rs = New ADODB.Recordset
rs.Open "g:\vb\article.mdb", cn, adOpenDynamic, adLockOptimistic
End Sub

Answer 4

article.mdh是一个数据库，而rs应该打开其中的一个表。
先前的数据连接已经指向了数据库，所以在rs就可以直接打开表了
rs.Open "select * from table", cn, adOpenDynamic, adLockOptimistic