Access QueryDef不更新链接表

时间:2019-04-29 19:11:02

标签: sql-server access-vba

设置:

我正在使用链接到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

感谢您的帮助,

谢谢。

1 个答案:

答案 0 :(得分:1)

通过@Andre的评论,我能够找到问题的根源。

更新条目时,我使用了错误的数据类型。当我向其提供布尔值(SQL Server BIT)时,SQL Server期望使用INT(用于外键)。


有关解决方案的详细信息:

安德烈(Andre)提供的链接:Error Object - Data Access ObjectDetermine 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

一旦我运行它,它就会返回,让我找到根本原因:


错误#:547,

描述:[Microsoft] [ODBC SQL Server驱动程序] [SQL Server] UPDATE语句与FOREIGN KEY约束“ FK_people_isActive”冲突。在数据库“ continuousimprovment”,表“ dbo.con_isactive”,列“ isActive_id”中发生冲突。

来源:ODBC.QueryDef

再次,谢谢安德烈。