问题描述
我最近尝试在运行 Windows Server 2019 的基于虚拟云的机器上运行正常运行的 MSAccess 数据库。编辑记录时,我的所有保存功能都无法在 PC 上运行。它们可以很好地在关联的 sql 表中创建新记录。下面是我的保存功能之一的示例。加载和创建新记录工作正常,只是编辑当前的 sql 记录会导致错误
[Microsoft][ODBC Driver 17 for sql Server] COUNT 字段不正确或语法错误
Private Function fSave() As Boolean 'True if Saved properly False on Error
Dim sqlConnectionString As String
Dim sqlConnectionUserName As String
Dim sqlConnectionPassword As String
sqlConnectionString = Forms!frm00SystemSettings!txtsqlConnectionString
sqlConnectionUserName = Forms!frm00SystemSettings!txtsqlConnectionUserName
sqlConnectionPassword = Forms!frm00SystemSettings!txtsqlConnectionPassword
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strsql As String
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open sqlConnectionString,sqlConnectionUserName,sqlConnectionPassword
If Isnothing(Me.txtIdentifier.Value) Then
strsql = "SELECT * " & _
"FROM vwM01commodity " & _
"WHERE commodityID = Null"
Else
strsql = "SELECT * " & _
"FROM vwM01commodity " & _
"WHERE commodityID = " & Me.txtIdentifier.Value
End If
rst.LockType = adLockOptimistic
rst.Open strsql,cnn
If rst.EOF Then
rst.AddNew
End If
rst.Fields("commodity") = Me.txtcommodity.Value
rst.Update
End Function
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)