vb连接access问题！！！！

Question

dim rs as data1.recordsetprivate sub form_load（）
  if rs.recordcoun>0 then
    rs.movefirst
  end if 
end sub 这样怎么老是报错呢？？？？？为什么？？？怎么解决！！！

Answer 1

你数据库在哪里打开的?在active里吗?
你首先要打开数据库,如你上面的情况，应该是在form_load()里建立和数据库的连接.

Answer 2

晕，rs 在哪儿？CONN在哪儿？你不是在玩玩吧？

Answer 3

大伙别奇怪楼主用的是DAO的Data控件。

Answer 4

'给你一个例子'工程->引用 Microsoft DAO3.x Object Library
Option Explicit
    Public mDbs As Database
    Public mWrk As WorkspacePrivate Sub Form_Load()
Dim mRst As Recordset
    Set mWrk = CreateWorkspace("", "admin", "", dbUseJet)
    Set mDbs = mWrk.OpenDatabase(App.Path & "\db1.mdb")
    Set mRst = mDbs.OpenRecordset("Select * From Table1", dbOpenDynaset, dbDenyWrite)
    Do While Not mRst.EOF
        MsgBox mRst.Field(0)
        mRst.MoveNext
    Loop
    mRst.Close
    Set mRst = Nothing
End Sub

Answer 5

'给你一个例子'工程->引用 Microsoft DAO3.x Object Library
Option Explicit
    Public mDbs As Database
    Public mWrk As WorkspacePrivate Sub Form_Load()
Dim mRst As Recordset
    Set mWrk = CreateWorkspace("", "admin", "", dbUseJet)
    Set mDbs = mWrk.OpenDatabase(App.Path & "\db1.mdb")
    Set mRst = mDbs.OpenRecordset("Select * From Table1", dbOpenDynaset, dbDenyWrite)
    Do While Not mRst.EOF
        MsgBox mRst.Field(0)
        mRst.MoveNext
    Loop
    mRst.Close
    Set mRst = Nothing
End SubPrivate Sub Command1_Click()
    MsgBox mRst.RecordCount     '也是RecordCount属性
End Sub

Answer 6

修改一下：'给你一个例子'工程->引用 Microsoft DAO3.x Object Library
Option Explicit
    Public mDbs As Database
    Public mWrk As Workspace
    Dim mRst As RecordsetPrivate Sub Form_Load()
    Set mWrk = CreateWorkspace("", "admin", "", dbUseJet)
    Set mDbs = mWrk.OpenDatabase(App.Path & "\db1.mdb")
    Set mRst = mDbs.OpenRecordset("Select * From Table1", dbOpenDynaset, dbDenyWrite)
    MsgBox mRst.RecordCount     '也是RecordCount属性
    Do While Not mRst.EOF
        MsgBox mRst.Field(0)
        mRst.MoveNext
    Loop
    mRst.Close
    Set mRst = Nothing
End Sub