0

我一直在尝试使用其中包含几个组合框的表单来更新一些记录，这些组合框是从包含城市和部门的辅助表中填充的（需要更新的表仅包含两个“侧”表中的 ID .

由于我很难直接插入数据，因此我决定使用 ADO 进行直接 SQL 插入。

到目前为止，我的 VBA 代码如下所示：

Private Sub btnClose_Click()
    Dim Msg, Style, Title, Ctxt, Help, Response, MyString

    Msg = "Want to save changes?"
    Style = vbYesNo + vbQuestion
    Tytle = "Confirm changes"
    Ctxt = 1000

    Response = MsgBox(Msg, Style, Tytle, Help, Ctxt)

    If Response = vbNo Then
        Cancel = True
    Else
        Call ManualUpdate
    End If
End Sub

和 ManualUpdate 子：

Private Sub ManualUpdate()
    Dim ccnDb As ADODB.Connection
    Set ccnDb = CurrentProject.Connection
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command

    Dim strSQL As String
    strSQL = "UPDATE personal SET personaApPaterno = " & "'" & Trim(Me.personaApPaterno.Value) & "'"
    strSQL = strSQL & ", personaApMaterno = " & "'" & Trim(Me.personaApMaterno.Value) & "'"
    strSQL = strSQL & ", personaNombre = " & "'" & Trim(Me.personaNombre.Value) & "'"
    strSQL = strSQL & ", personaCargo = " & "'" & Trim(Me.personaCargo.Value) & "'"
    strSQL = strSQL & ", departamentoId = " & Me.cmbDepto.Value
    strSQL = strSQL & ", ciudadId = " & Me.cmbCiudad.Value
    strSQL = strSQL & ", personaProfesion = " & "'" & Trim(Me.personaProfesion.Value) & "'"
    strSQL = strSQL & ", personaGerente = " & Me.personaGerente.Value
    strSQL = strSQL & ", personaExterno = " & Me.personaExterno.Value
    strSQL = strSQL & ", personaSexo = " & Me.ogSexo.Value
    strSQL = strSQL & " WHERE personaRUT = " & Me.personaRUT.Value

    If Me.Dirty Then
        Me.Dirty = False
    End If

    With cmd
        .CommandText = strSQL
        .ActiveConnection = ccnDb
        .Execute
    End With

    Set cmd = Nothing
    DoCmd.Close
End Sub

到目前为止，一切都很好...

如您所见，SQL 对名为“个人”的表进行了直接升级，并且工作正常，唯一让我抓狂的是，出于某种奇怪的原因，Access 2007 正在更新辅助表并替换文本在“ciudadName”和“departamentoName”字段中使用各自的 ID。只是为了一些额外的信息，我在 ADO 之前使用 DAO。

这是DAO代码也是......

Private Sub ManualUpdate()
    Dim dbDao As DAO.Database
    Dim rsDao As DAO.Recordset

    If Me.Dirty Then
        Me.Dirty = False
    End If

    Set dbDao = CurrentDb
    Set rsDao = dbDao.OpenRecordset("personal", dbOpenTable)

    rsDao.FindFirst ("personaRUT = " & Me.personaRUT.Value)
    rsDao.Edit

    rsDao![personaApPaterno] = Trim(Me.personaApPaterno.Value)
    rsDao![personaApMaterno] = Trim(Me.personaApMaterno.Value)
    rsDao![personaNombre] = Trim(Me.personaNombre.Value)
    rsDao![personaCargo] = Me.personaCargo.Value
    rsDao![departamentoId] = Me.cmbDepto.Value
    rsDao![comunaId] = Me.cmbComuna.Value
    rsDao![personaProfesion] = Me.personaProfesion.Value
    rsDao![personaGerente] = Me.personaGerente.Value
    rsDao![personaExterno] = Me.personaExterno.Value
    rsDao![personaSexo] = Me.ogSexo.Value

    rsDao.Update

    rsDao.Close
    dbDao.Close

    Set dbDao = Nothing
    Set rsDao = Nothing
    DoCmd.Close
End Sub

顺便说一句：DAO 正在执行不应该发生的相同“更新”，这就是我选择 ADO 方式的原因，但完全没有运气。

编辑：

决定添加一些我认为相关的额外信息，以便为我的问题获得正确的帮助。这个想法是为了展示不同的表是如何相互关联的。

这是我遇到问题的数据库架构的相关部分......

如果需要，我还可以上传它自己的表单捕获。

4

1 回答 1

0

检查组合框数据。ControlSource 属性为空。

于 2013-07-23T13:47:45.087 回答