都不是这个意思 代码一: 其中db1.mdb是access2000数据库 Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Form_Load() conn.Provider = "Microsoft.jet.oledb.4.0" conn.Open App.Path & "\db1.mdb" With rst .ActiveConnection = conn .LockType = adLockBatchOptimistic .CursorType = adOpenKeyset .Open "select * from T_unit" End With Set DataGrid1.DataSource = rst DataGrid1.Refresh End Sub 不能显示内容代码二: 其中db2.mdb是用vb带的可视化数据库管理器做的7.0版本的access 数据库 Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Form_Load() conn.Provider = "Microsoft.jet.oledb.3.51" conn.Open App.Path & "\db2.mdb" With rst .ActiveConnection = conn .LockType = adLockBatchOptimistic .CursorType = adOpenKeyset .Open "select * from T_unit" End With Set DataGrid1.DataSource = rst DataGrid1.Refresh End Sub能正常显示内容 db1.mdb与db2.mdb在表结构完全一样,就是一个是新版的一个是旧版的。 这是怎么回事
adoddc1.refresh
代码一:
其中db1.mdb是access2000数据库
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Private Sub Form_Load()
conn.Provider = "Microsoft.jet.oledb.4.0"
conn.Open App.Path & "\db1.mdb"
With rst
.ActiveConnection = conn
.LockType = adLockBatchOptimistic
.CursorType = adOpenKeyset
.Open "select * from T_unit"
End With
Set DataGrid1.DataSource = rst
DataGrid1.Refresh
End Sub
不能显示内容代码二:
其中db2.mdb是用vb带的可视化数据库管理器做的7.0版本的access 数据库
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Private Sub Form_Load()
conn.Provider = "Microsoft.jet.oledb.3.51"
conn.Open App.Path & "\db2.mdb"
With rst
.ActiveConnection = conn
.LockType = adLockBatchOptimistic
.CursorType = adOpenKeyset
.Open "select * from T_unit"
End With
Set DataGrid1.DataSource = rst
DataGrid1.Refresh
End Sub能正常显示内容
db1.mdb与db2.mdb在表结构完全一样,就是一个是新版的一个是旧版的。
这是怎么回事