Программирование "удобняшек" на VBScript (Часть 2) - [47] :: Прикладное программирование

Привет ребята. Помогите пожалуйста решить задачку. Имеется MS Access форма с скриптом для удаления записей с PostgreSQL базы данных. Таблицы в Access базе просто связанные с PostgreSQL и всё работает.
Я хочу сделать VBScript по этому коду чтобы он запускался через планировщик в нужное время, сделал работу и не задавал вопросов.

Мучаюсь уже несколько дней, срок поджимает а результата нету. Дело в том что в базе PostgreSQL таблицы связаны между собой и удалять записи надо в определённом порядке.
Короче вот скрипт. Наверное не идеален и можно его оптимизировать но он работает:

----------------------------------------------------------------------------------------------

Код:

Option Compare Database

Private Sub Command0_Click()
On Error GoTo Command0_Click_Err
Dim wks As DAO.Workspace
Set wks = DBEngine.Workspaces(0)
Dim SQL As String
Dim SQL2 As String
Dim SQL3 As String
Dim SQL4 As String
Dim SQL5 As String
Dim CurrDate As Date

wks.BeginTrans
CurrDate = Date
SQL = "DELETE Catalog_Code.*, Catalog_User.rRole " & _
"FROM Catalog_User INNER JOIN Catalog_Code " & _
"ON Catalog_User.id = Catalog_Code.rUser " & _
"WHERE Catalog_User.rRole=5 AND (Format(Catalog_User.Modified, 'yyyy-mm-dd')) <> '" & CurrDate & "' ;"
SQL2 = "DELETE Catalog_UserGroup.*, Catalog_User.rRole " & _
"FROM Catalog_User INNER JOIN Catalog_UserGroup " & _
"ON Catalog_User.id = Catalog_UserGroup.rUser " & _
"WHERE Catalog_User.rRole=5 AND (Format(Catalog_User.Modified, 'yyyy-mm-dd')) <> '" & CurrDate & "' ;"
SQL3 = "DELETE Catalog_UserSetting.*, Catalog_User.rRole " & _
"FROM Catalog_User INNER JOIN Catalog_UserSetting " & _
"ON Catalog_User.id = Catalog_UserSetting.rUser " & _
"WHERE Catalog_User.rRole=5 AND (Format(Catalog_User.Modified, 'yyyy-mm-dd')) <> '" & CurrDate & "' ;"
SQL4 = "DELETE Security_UserRight.*, Catalog_User.rRole " & _
"FROM Catalog_User INNER JOIN Security_UserRight " & _
"ON Catalog_User.id = Security_UserRight.rUser " & _
"WHERE Catalog_User.rRole=5 AND (Format(Catalog_User.Modified, 'yyyy-mm-dd')) <> '" & CurrDate & "' ;"
SQL5 = "DELETE Catalog_User.*, Catalog_User.rRole " & _
"FROM Catalog_User " & _
"WHERE Catalog_User.rRole=5 AND (Format(Catalog_User.Modified, 'yyyy-mm-dd')) <> '" & CurrDate & "' ;"

CurrentDb.Execute SQL, dbFailOnError
CurrentDb.Execute SQL2, dbFailOnError
CurrentDb.Execute SQL3, dbFailOnError
CurrentDb.Execute SQL4, dbFailOnError
CurrentDb.Execute SQL5, dbFailOnError

If IsNull(DLookup("Id", "Common_Queue")) Then
CurrentDb.Execute "INSERT INTO Common_Queue (Data) SELECT (Data) FROM SyncCode;", dbFailOnError
End If

wks.CommitTrans

Command0_Click_Exit:
wks.Close
Set wks = Nothing
Exit Sub

Command0_Click_Err:
MsgBox Error$
wks.Rollback
Resume Command0_Click_Exit

End Sub

-----------------------------------------------------------------------------------------------

А здесь начало VBScript`а который работает но он просто удаляет все записи с указанной таблицы (это только для теста подключения):

-----------------------------------------------------------------------------------------------

Код:

Set conn = CreateObject("ADODB.Connection")
strCnx = "DSN=PostgreSQL35W;"
conn.Open strCnx

conn.Execute("Delete FROM ""Catalog"".""Code""")
msgbox "Done"
conn.close

-----------------------------------------------------------------------------------------------

Подключение к базе PostgreSQL происходит через ODBC драйвер.
Мне не удаётся написать sql запрос с JOIN. Помогите пожалуйста. Спасибо!

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68