Dim ws As Workspace, dbs As Database, rs As Recordset
Private Sub Form_Load()
Set ws = DBEngine.Workspaces(0)
Set dbs = ws.OpenDatabase("c:\fms2\data\fms2.mdb", False, False)
SQL1 = "select * from class_code"
Set rs = dbs.OpenRecordset(SQL1)
End Sub
上面的程式在Set rs = dbs.OpenRecordset(SQL1)出現錯誤.
"執行階段錯誤424,此處需要物件"
請問是什麼意思?謝謝.
Private Sub Form_Load()
Set ws = DBEngine.Workspaces(0)
Set dbs = ws.OpenDatabase("c:\fms2\data\fms2.mdb", False, False)
SQL1 = "select * from class_code"
Set rs = dbs.OpenRecordset(SQL1)
End Sub
上面的程式在Set rs = dbs.OpenRecordset(SQL1)出現錯誤.
"執行階段錯誤424,此處需要物件"
請問是什麼意思?謝謝.
文章標籤
全站熱搜
