ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите оформить SQL запрос в VBS
9 сообщений из 9, страница 1 из 1
Помогите оформить SQL запрос в VBS
    #35955924
lancer5610
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lancer5610
Гость
Подскажите пожалуйста как этот запрос оформить в VBS, чтоб результат выводился в третью таблицу на сервере SQL...
SELECT * FROM del_prog WHERE NOT EXISTS (SELECT * FROM programm WHERE del_prog.prg = programm.program)
...
Рейтинг: 0 / 0
27.04.2009, 13:26
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35955935
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гавриленко Сергей Алексеевич
Участник
Что в третью таблицу, это надо еще insert спереди приписать. А про vbs - это, наверное, в другой форум.

Модератор: Тема перенесена из форума "Microsoft SQL Server".
...
Рейтинг: 0 / 0
27.04.2009, 13:28
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35955983
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim cnnMain
Dim strSQL
Set cnnMain = CreateObject("ADODB.Connection")
cnnMain.Open "Provider=SQLOLEDB;Data Source=<SERVER>;Password=<sa password>;User ID=<user id>;Initial Catalog=<IC>"
strSQL=<ваша инструкция>
cnnMain.Execute strSQL
cnnMain.Close
Set cnnMain = Nothing
Настройте строку подключения в зависимости от настроек вашего сервера и пропишите обработку на ошибки и всё, в принципе
...
Рейтинг: 0 / 0
27.04.2009, 13:45
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35955998
lancer5610
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lancer5610
Гость
orunbek, Подскажите еще тогда куда запишеться результат?
...
Рейтинг: 0 / 0
27.04.2009, 13:48
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35956041
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гавриленко Сергей Алексеевич
Участник
Куда запишите, туда и запишется.
...
Рейтинг: 0 / 0
27.04.2009, 13:59
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35956113
lancer5610
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lancer5610
Гость
Гавриленко Сергей Алексеевич,

Не могли бы Вы навести мне пример строки записи...
...
Рейтинг: 0 / 0
27.04.2009, 14:26
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35956130
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
lancer5610orunbek, Подскажите еще тогда куда запишеться результат?
вам какой результат нужен? то что он выполнился или нет?
Или же сколько записей перенесли?
...
Рейтинг: 0 / 0
27.04.2009, 14:34
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35956228
lancer5610
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lancer5610
Гость
orunbek,

Мне нужно именно те записи которые выбрались сохранить в таблицу...
...
Рейтинг: 0 / 0
27.04.2009, 15:03
| Ответить | Цитировать | Написать  
Помогите оформить SQL запрос в VBS
    #35956312
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
ну тогда сначала создать временную таблицу со структурой подходящей для
запроса:
Код: plaintext
SELECT * FROM del_prog WHERE NOT EXISTS (SELECT * FROM programm WHERE del_prog.prg = programm.program)

которая будет называться TempTable

затем, примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim cnnMain
Dim strSQL
Set cnnMain = CreateObject("ADODB.Connection")
cnnMain.Open "Provider=SQLOLEDB;Data Source=<SERVER>;Password=<sa password>;User ID=<user id>;Initial Catalog=<IC>"
strSQL=<ваша инструкция>
cnnMain.BeginTrans
cnnMain.Execute "DELETE TempTable"
cnnMain.Execute "INSERT INTO TempTable SELECT * FROM del_prog WHERE NOT EXISTS (SELECT * FROM programm WHERE del_prog.prg = programm.program)"
cnnMain.Execute "SELECT * FROM del_prog WHERE NOT EXISTS (SELECT * FROM programm WHERE del_prog.prg = programm.program)"
cnnMain.CommitTrans
cnnMain.Close
Set cnnMain = Nothing
соотвественно в таблице TempTable будут ваши данные, но это один из таких способов, надо шлифовать опять же, в зависимости от специфики решаемой задачи
...
Рейтинг: 0 / 0
27.04.2009, 15:35
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите оформить SQL запрос в VBS
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2161094]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 243ms
total:  377ms
созд. / загр.: 377ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]