如何通過LSXODBC從數據庫中刪除記錄

Question

我有一個代理正在運行，它將數據從Notes數據庫推送到Postgres數據庫。我現在需要構建一個從表中刪除記錄或截斷的函數。該文件不是很好，所以我覺得有點難以弄清楚。任何提示都表示讚賞。

感謝 克萊姆

Answer 1

假設有一個簡單的表「員工」有以下的列：

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 

而我們的表 「員工」 現在看起來像這樣：