UC知道请帮忙看看VB ADO数据库连接问题
来源：百度知道 编辑：UC知道 时间：2024/05/13 06:00:59
Private Sub Form_Load()
Dim cn As New ADODB.Recordset
cn.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\进出计算系统表.mdb;Pecnist Security Info=False"
cn.LockType = adLockOptimistic
cn.CucnorLocation = adUseClient
cn.Source = "select 进出计算系统表 from 进货统计表"
cn.Open cn
Set DataGrid1.DataSource = cn
End Sub
command1_click
....
'关闭数据库
cn.Close
Set cn = Nothing
End Sub
连不上啊，请求帮助
Dim cn As New ADODB.Recordset
cn.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\进出计算系统表.mdb;Pecnist Security Info=False"
cn.LockType = adLockOptimistic
cn.CucnorLocation = adUseClient
cn.Source = "select 进出计算系统表 from 进货统计表"
cn.Open cn
Set DataGrid1.DataSource = cn
End Sub
command1_click
....
'关闭数据库
cn.Close
Set cn = Nothing
End Sub
连不上啊，请求帮助
首先cn定义为全局变量会好些，要不command1_click无意义。还有要引用Microsoft ActiveX Data Object控件，修改后代码如下：
Dim cn As New ADODB.Recordset
Private Sub Command1_Click()
'关闭数据库
cn.Close
Set cn = Nothing
End Sub
Private Sub Form_Load()
cn.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=D:\Stamp\China\Stamp.mdb;Uid=Admin"
cn.LockType = adLockOptimistic
cn.CursorLocation = adUseClient
cn.Source = "select * from 进货统计表"
cn.Open cn.Source
Set DataGrid1.DataSource = cn
End Sub
要先建立CONNECTION对象进行连接，然后使用OPEN方法打开连接；再建立RECORDSET对象进行查询，使用OPEN方法返回数据