adodc 在winows7里的应用,提示错误430!急!!!!!

Question

提示错误
run - time error 430 class does not support Automation or does not suppot 
expected interface
代码
'数据库
Private mConn As New ADODB.Connection
Private mRst As New ADODB.Recordset
Private Sub Form_Load()
Dim sSQL As String
mConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\db.mdb;"
mConn.Open
End Sub

Answer 1

ado data control 6.0 (sp6)Windows7里面的软件不能用access数据库吗?是不是需要安装office之后才能有啊

Answer 2

http://download.csdn.net/detail/veron_04/1498324

Answer 3

没积分了,你的这个在Windows7里能用吗? ,你在这里回答,我把这里的分给你,没有下载的那个积分了

Answer 4

'需要安装OFFICE，在：工程－》引用中，添加：Microsoft Activex Data Object 2.x Library 
'OFFICE的版本可以是2003，也可以是2007，建议2003
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％ 
'函数功能：连接指定的数据库 
'参数说明：cnnP：数据库连接对象； 
'        ：adoP：数据集存储对象； 
'        ：strPath：数据库路径； 
'        ：strPassword：数据库密码； 
'返回说明：True：连接成功  False：连接失败 
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％ 
Public Function funConnectDataBase(cnnP As ADODB.Connection, adoP As ADODB.Recordset, ByVal strPath As _ 
    String, ByVal strPassword As String) As Boolean 
On Error GoTo errFunction 
    Set cnnP = New ADODB.Connection 
    Set adoP = New ADODB.Recordset 
    cnnP.Provider = "Microsoft.Jet.OLEDB.4.0" 
    cnnP.Open "Data Source = " & strPath & ";jet oledb:database password=" & strPassword 
    funConnectDataBase = True 
    Exit Function 
errFunction: 
    funConnectDataBase = False 
End Function 
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％ 
'函数功能：关闭数据库连接对象和数据文件的关联 
'参数说明：cnnP：数据库连接对象； 
'        ：adoP：数据库存储对象； 
'返回说明：True：关闭连接成功  False：关闭连接失败 
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％ 
Public Function funCloseDataBase(cnnP As ADODB.Connection, adoP As ADODB.Recordset) As Boolean 
On Error GoTo errFunction 
    Set adoP = Nothing 
    Set cnnP = Nothing 
    funCloseDataBase = True 
    Exit Function 
errFunction: 
    funCloseDataBase = False 
End Function 
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％ 
'过程功能：对指定的对象执行指定的SQL语句 
'参数说明：cnnP：ADO连接对象 
'        ：adoP：ADO记录集对象 
'        ：strSql：SQL语句 
'        ：bolQueryRecord：是否是查询记录集 
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％Public Sub subExcuteSQL(cnnP As ADODB.Connection, adoP As ADODB.Recordset, strSql As String, bolQueryRecord _ 
    As Boolean) 
    If bolQueryRecord Then  '如果是查询记录集 
        adoP.Open strSql, cnnP, adOpenStatic, adLockBatchOptimistic 
    Else 
        cnnP.Execute strSql 
    End If 
End Sub 

Answer 5

在Win7中，以管理员身份登录情况下可用。

Answer 6

依照我给你的代码可以解决，步骤如下：
1、funConnectdatabase：连接数据库
2、subExcuteSql：执行sql查询
3、funClosedatabase：查询完毕，断开数据库连接

Answer 7

不知道你这具体得怎么用
如果:
数据库路径 为 " & App.Path & "\db.mdb;"
没有密码
SQL = " Select * from aaa where id=1"
*.Fields("shu")
那么:
具体得怎么用,放在Form_Load中,text1.text中显示*.Fields("shu")
Private Sub Form_Load()
End Sub

Answer 8

http://download.csdn.net/detail/veron_04/3827200