设置:
我正在使用链接到MS Access文件的SQL Server数据库,因此可以使用Access表单。
由于我要处理多个表,因此我在自定义查询中使用了未绑定的表单(如果有更有效的方法,我会全力以赴。)
在SQL Server中,我设置了具有对该表权限的数据库角色,我再次检查是否已允许该角色更新表。
问题:
每当我使用QueryDef在Access中使用更新查询时(如下所示),它都会成功运行,但实际上并不会更新表。
详细信息:
我的插入查询也有问题,但这仅是因为我没有使用数据库中添加的新列更新查询。我还确保对更新查询执行相同的操作。
另外,我知道更新查询有效,因为我能够直接从SSMS更新条目。
由于这似乎与我遇到的另一个访问/ SQL服务器问题Found Here类似。我确保尝试使用该解决方案,刷新表格链接。但是,没什么区别。
代码:
查询:
UPDATE con_people
SET people_first_name = @firstName,
people_last_name = @lastName,
people_title = @title,
people_group = @group,
people_email = @email,
people_shift = @shift,
people_hiredate = @hireDate,
people_location = @location,
people_reportsTo = @reportsTo,
people_versionCount = people_versionCount + 1,
people_datelastupdated = @dateUpdated,
people_isActive = @isActive
WHERE people_employeeID = @empID;
QueryDef:
Public Function UpdatePeople(firstName As String, _
lastName As String, _
title As Integer, _
group As Integer, _
Email As Variant, _
isActive As Boolean, _
Shift As Integer, _
Location As Integer, _
HireDate As Variant, _
ReportsTo As Variant, _
employeeID As Integer)
OtherFunctions.Initialize
Dim QDF As DAO.QueryDef
If FindQuery("UpdatePeople") = True Then OtherFunctions.dbs.QueryDefs.Delete "UpdatePeople"
Set QDF = OtherFunctions.dbs.CreateQueryDef("UpdatePeople", SQLUpdatePeople)
QDF.Parameters("@firstName").Value = firstName
QDF.Parameters("@lastName").Value = lastName
QDF.Parameters("@title").Value = title
QDF.Parameters("@group").Value = group
QDF.Parameters("@email").Value = Email
QDF.Parameters("@isActive").Value = isActive
QDF.Parameters("@empID").Value = employeeID
QDF.Parameters("@shift").Value = Shift
QDF.Parameters("@hireDate").Value = HireDate
QDF.Parameters("@location").Value = Location
QDF.Parameters("@reportsTo").Value = ReportsTo
QDF.Parameters("@dateUpdated").Value = ConvertTimeUnix.ConvertDateToUnix(Now())
QDF.Execute
If FindQuery("UpdatePeople") = True Then OtherFunctions.dbs.QueryDefs.Delete "UpdatePeople"
End Function
感谢您的帮助,
谢谢。
答案 0 :(得分:1)
通过@Andre的评论,我能够找到问题的根源。
更新条目时,我使用了错误的数据类型。当我向其提供布尔值(SQL Server BIT)时,SQL Server期望使用INT(用于外键)。
有关解决方案的详细信息:
安德烈(Andre)提供的链接:Error Object - Data Access Object和Determine real cause of ODBC failure (error 3146) with ms-access?。 有关DAO.Error对象的更多信息,请参考那些。
以下是使用方式的示例:
Dim myerror As DAO.Error
For Each myerror In DBEngine.Errors
With myerror
If .Number <> 3146 Then 'prevents the system from returning the basic error.
MsgBox "Error #:" & .Number & ", Description: " & .Description & ", Source: " & .Source
End If
End With
Next
一旦我运行它,它就会返回,让我找到根本原因:
再次,谢谢安德烈。