Access2000 的访问问题:)

Question

dim gCon As New ADODB.Connection
gCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\零件数据库.mdb;Persist Security Info=False"dim mRec as New ADODB.RecordSet
set mRec="Select * from 表"

Answer 1

不好意思，写错了，应该是
dim gCon As New ADODB.Connection
gCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\零件数据库.mdb;Persist Security Info=False"dim mRec as New ADODB.RecordSet
set mRec=gcon.Execute ("Select * from 表")

Answer 2

Public con As New ADODB.Connection
Public ret As New ADODB.Recordset
Dim sql As String
sql = App.Path
If Right(sql, 1) <> "/" Then
  sql = sql + "/"
End If
sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sql & "\数据库文件名;Persist Security Info=False"
con.Open sql
sql = "select * from [数据库中的表名]"
ret.Open sql, con, adOpenStatic, adLockOptimistic

Answer 3

不加new可以吗？
dim gCon As ADODB.Connection
gCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\零件数据库.mdb;Persist Security Info=False"dim mRec as  ADODB.RecordSet
set mRec="Select * from 表"
Persist Security Info=False是设么意思。有何作用！

Answer 4

可以。
但是要在后面添加
set gCon=new ADODB.Connection
之后再释放
set gCon=nothing
这也是标准写法。
所以你的程序应该修改为
dim gCon As ADODB.Connection
set gCon=new ADODB.ConnectiongCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\零件数据库.mdb;Persist Security Info=False"dim mRec as  ADODB.RecordSet
set mRec=new ADODB.RecordSet
set mRec="Select * from 表"
set gCon=nothing
色set mRec=nothing