我正在尝试将Access 2007后端数据库升级到Sql Server Express 2014,因为它现在在网络上速度太慢。
我能够升级数据库并使用内置的ODBC链接功能将表链接回我的Access前端。
以下是与访问后端配合良好的简单代码,但在SQl Server Express中失败:“运行时错误3021 - 无当前记录”
Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Database
Dim strHST As String
Dim recHST As DAO.Recordset
Set db = CurrentDb()
strHST = "SELECT * FROM tblHST WHERE hst_current = -1;"
Set recHST = db.OpenRecordset(strHST, dbOpenDynaset)
With recHST
.MoveFirst
Me!txtHST = !hst_rate
Me!txtHSTPK = !hst_auto
End With
recHST.close
set recHST = nothing
db.close
set db = nothing
End Sub
我也尝试过设置recHST = db.OpenRecordset(strHST,dbOpenDynaset,dbSeeChanges)而没有任何运气。
我做错了什么?
感谢。