Adodc 连接数据库的问题

Question

在VB中想使用Adodc 和DataGrid控件联合
使用显示数据库中的数据，先把Access中做好的
数据库配成ODBC,然后在Adodc 的属性页中配置好，
但在DataGrid中DataSouce 中先择Adodc，结果连接
总是不成功，但同样的方法，数据库，VB安装程序在
别的机器上去是成功的，如果在程序中调用以下方法：
Adodc1.RecordSource = "select * from User"
Adodc1.Refresh
运行时会提示：实时错误：'-2147024770(8007007e)'
           对象'Refresh'的方法'IAodc'失败第二次用数据库，高手指教呀！！！

Answer 1

//按我下面这个代码去写如何用Adodc动态的进行绑定。Adodc控件可以在属性叶面对数据库进行连接，但是这样的连接数据库很死，而且弄不好，连接字符就没有了，所以在程序中用代码进行连接的话，方便得多。在增加与删除其实Adodc控件与Recordset的区别只是把 Recordset更换成Adodc1.Recordset
RecordSet的增加：Rs.AddNew，Adodc的增加：Adodc1.Recordset.AddNew示范：
'--如何用Adodc控件代码去连接Access
Private Sub Command1_Click()
 Dim strConn As String
 
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' adodc的连接字符串
 Adodc1.ConnectionString = strConn
 
 ' 指定Command对象的形态
 Adodc1.CommandType = adCmdText
 
 ' 设置传回一个资料录集。
 Adodc1.RecordSource = "Select * from People"
 
 ' 将记录集合绑定DataGrid1
 Set DataGrid2.DataSource = Adodc1
End Sub

Answer 2

如何用Adodc动态的进行绑定。Adodc控件可以在属性叶面对数据库进行连接，但是这样的连接数据库很死，而且弄不好，连接字符就没有了，所以在程序中用代码进行连接的话，方便得多。在增加与删除其实Adodc控件与Recordset的区别只是把 Recordset更换成Adodc1.Recordset
RecordSet的增加：Rs.AddNew，Adodc的增加：Adodc1.Recordset.AddNew示范：
'--如何用Adodc控件代码去连接Access
Private Sub Command1_Click()
 Dim strConn As String
 
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' adodc的连接字符串
 Adodc1.ConnectionString = strConn
 
 ' 指定Command对象的形态
 Adodc1.CommandType = adCmdText
 
 ' 设置传回一个资料录集。
 Adodc1.RecordSource = "Select * from People"
 
 ' 将记录集合绑定DataGrid1
 Set DataGrid2.DataSource = Adodc1============================================
Adodc1.Refresh
 Adodc1.RecordSource = "Select * from People"
Adodc1.Refresh
 
 ' 将记录集合绑定DataGrid1
 Set DataGrid2.DataSource = Adodc1

Answer 3

如果是代码连接的话，要注意之前对数据库的连接设置。如果是控件连接你就要把ADODC里面的连接设置好，我个人建议使用控件连接适合刚入门。