Перейти из форума на сайт.


Система IP-видеонаблюдения "Линия". Скачать бесплатную демо-версию для 16 камер. НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : 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

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопросы, задачи и их решения по VBScript.

 
Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1
 
Смежные темы:
Задачи на bat-файлах 11
Командная строка, батники\сценарии (bat, cmd)
PowerShell
Скрипты KiXtart

Всего записей: 3908 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Engaged_Clown, 16:12 01-01-2017
a929151

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
txt="Главный инженер отдела по консолидации и распределению особо важных производственных задач"
Msgbox Replace(txt," ",Chr(13) & Chr(10))
 

коряво. посмотри RegExp может поможет.

Всего записей: 519 | Зарегистр. 30-03-2016 | Отправлено: 18:29 22-01-2018 | Исправлено: a929151, 18:29 22-01-2018
UltraAcid

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
 Привет ребята. Помогите пожалуйста решить задачку. Имеется 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. Помогите пожалуйста. Спасибо!  

Всего записей: 173 | Зарегистр. 03-10-2005 | Отправлено: 11:24 23-02-2018 | Исправлено: UltraAcid, 11:28 23-02-2018
Открыть новую тему     Написать ответ в эту тему

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Имя:
Пароль:
Сообщение

Для вставки имени, кликните на нем.

Опции сообщенияДобавить свою подпись
Подписаться на получение ответов по e-mail
Добавить тему в личные закладки
Разрешить смайлики?
Запретить коды


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2018

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru