0
我有一個代理正在運行,它將數據從Notes數據庫推送到Postgres數據庫。我現在需要構建一個從表中刪除記錄或截斷的函數。該文件不是很好,所以我覺得有點難以弄清楚。任何提示都表示讚賞。如何通過LSXODBC從數據庫中刪除記錄
感謝 克萊姆
我有一個代理正在運行,它將數據從Notes數據庫推送到Postgres數據庫。我現在需要構建一個從表中刪除記錄或截斷的函數。該文件不是很好,所以我覺得有點難以弄清楚。任何提示都表示讚賞。如何通過LSXODBC從數據庫中刪除記錄
感謝 克萊姆
假設有一個簡單的表「員工」有以下的列:
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中有一個錯誤。我添加的錯誤捕獲代碼向我顯示了錯誤的位置。謝謝! – user3718738 2014-09-18 20:37:20
@ user3718738歡迎您:) – 2014-09-19 00:43:45