Lotus notes 如何通过LSXODBC从数据库中删除记录

我有一个代理正在运行，它将数据从Notes数据库推送到Postgres数据库。我现在需要构建一个从表中删除记录或执行截断的函数。医生不是很好，所以我觉得有点难以理解。如有任何提示，我们将不胜感激

谢谢

---

clem

假设有一个简单的表“Employees”，其中包含以下列：

Code (longint)
FullName (text)
Title (text)
Position (text)
Retired (boolean)

让我们执行代理脚本，删除包含退休员工的行

Option Public
Option Declare
UseLSX "*LSXODBC"

Sub Initialize
    Const DSN = "TestODBCConnection"

    Dim con As New ODBCConnection
    Dim qry As New ODBCQuery
    Dim result As New ODBCResultSet
    Dim msg As String

    Call con.ConnectTo(DSN)

    If Not con.IsConnected Then
        MessageBox "Could not connect to " + DSN,,"No connection"
        Exit Sub
    End If

    Set qry.Connection = con
    Set result.Query = qry

    qry.SQL = "Delete From Employees WHERE Retired = TRUE;"
    result.Execute

    If Not result.Execute Then
          MessageBox result.GetExtendedErrorMessage,, result.GetErrorMessage
     Else
          MsgBox "Ok"
     End If

    result.Close(DB_CLOSE)
    con.Disconnect
End Sub

我们的“员工”表现在看起来是这样的：

---

谢谢。我意识到我做得不错，但是我的sql中有一个bug。我添加的错误捕获代码显示了错误所在。谢谢