ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Результат SQL запроса показать в блокноте
15 сообщений из 15, страница 1 из 1
Результат SQL запроса показать в блокноте
    #39206050
ypmail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ypmail
Участник
Не подскажете как можно результат запроса
Код: sql
1.
Select А From T

показать в блокноте? Т.е. скриптом открыть блокнот а потом вставить туда результат запроса?
Код: vbnet
1.
2.
3.
4.
5.
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad "
WshShell.AppActivate "notepad"
...
Рейтинг: 0 / 0
01.04.2016, 14:08
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206056
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
наброски для размышления
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim rs as ADODB.RecordSet
Dim s as String
...
s = rs.GetRows()
...
file.Write s
...
ShellExecute "notepad mynewfile.txt"
...
...
Рейтинг: 0 / 0
01.04.2016, 14:10
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206061
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
А почему именно в блокноте? возвращаемый набор записей - всё-таки вполне себе структурированная штука, тут больше подошёл бы какой табличный вьювер, да хоть бы даже и тот же Excel...
...
Рейтинг: 0 / 0
01.04.2016, 14:14
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206063
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
А то и формочка какая с гридом. Ежели речь не об VBS.
...
Рейтинг: 0 / 0
01.04.2016, 14:15
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206079
ypmail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ypmail
Участник
Надо именно в блокноте.
Что-то пока не понимаю от чего оттолкнуться... Сложно для первого раза.
...
Рейтинг: 0 / 0
01.04.2016, 14:31
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206101
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Чего там сложного? рекордсет - в текстовый файл, потом сам файл - в блокнот.
...
Рейтинг: 0 / 0
01.04.2016, 14:52
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206146
ypmail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ypmail
Участник
Например в msgbox все более менее просто и понятно:
Код: vbnet
1.
2.
3.
Dim t
t = RecordsToString("SELECT DISTINCT TOP 100 F FROM T")
MsgBox "Вывод результатов: " & vbCrLf & vbCrLf & b &,vbOkOnly + vbInformation + vbMsgBoxRight,"&Результаты&"



Но там нет возможности выделить и скопировать текст из сообщения. Поэтому надо в блокнот. Как этот скрипт под вывод в блокноте переделать?
...
Рейтинг: 0 / 0
01.04.2016, 15:13
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206147
ypmail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ypmail
Участник
t пропустил в msgbox

Код: vbnet
1.
2.
3.
Dim t
t = RecordsToString("SELECT DISTINCT TOP 100 F FROM T")
MsgBox "Вывод результатов: " & vbCrLf & vbCrLf & t &,vbOkOnly + vbInformation + vbMsgBoxRight,"&Результаты&"
...
Рейтинг: 0 / 0
01.04.2016, 15:15
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206193
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
ypmailтам нет возможности выделить и скопировать текст из сообщения.
Ну выведи в Label или TextBox на форме.
ypmailКак этот скрипт под вывод в блокноте переделать? Схематично - так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
open "filename.txt" for output as #1
do until rs.eof
    print #1, tr.fields("fieldname1") & vbTab & tr.fields("fieldnameN")
    rs.movenext
loop
close
shell "start filename.txt"
...
Рейтинг: 0 / 0
01.04.2016, 16:05
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39206283
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
если слить в текстовый файл и передать его параметром командной строки нотепаду, он загрузит. это если непременно нотепад.
...
Рейтинг: 0 / 0
01.04.2016, 17:58
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39207305
ypmail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ypmail
Участник
Vladimir Baskakovесли слить в текстовый файл и передать его параметром командной строки нотепаду, он загрузит. это если непременно нотепад.
Можно пример?
...
Рейтинг: 0 / 0
04.04.2016, 11:36
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39207586
Vladimir Baskakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir Baskakov
Участник
пример чего?

сделайте в любой папочке любой текстовый файл, и выполните в ней команду notepad имя_этого_файла
нотепад его загрузит.

Как сбросить текст в текстовый файл в бейсике - вроде и так понятно. Как установить текущую директорию и выполнить команду запуска нотепада тоже понятно....

не то что бы мне жалко, но что пока не вышло из трех действий?
...
Рейтинг: 0 / 0
04.04.2016, 14:47
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39207636
ypmail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ypmail
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim Fso, Text, WshShell, b
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Text = Fso.CreateTextFile("d:\testfile3.txt", True)
Set WshShell = WScript.CreateObject("WScript.Shell")
b = RecordsToString("SELECT DISTINCT TOP 100 TPI FROM qdfDamage WHERE ServiceID IS NOT NULL AND ServiceID = <ServiceID> AND ID<><ID> AND TPI > '' ORDER BY TPI ", ",", ";")
Text.Write "Всем"
Text.WriteLine " привет"
Text.WriteBlankLines 1
Text.WriteLine "Привет"
Text.WriteLine b
Text.WriteLine b
Text.Close
WshShell.CurrentDirectory="d:\testfile3.txt"
WshShell.Run "d:\testfile3.txt"



Код пока с мусором, но работает, собрал из чего только мог, потом поправлю. Запускаю из оболочки программы. Есть небольшая проблемка: результат запроса выводится в блокнот единой строчкой, а нужно столбиком. Какие надо разделители использовать? ", ",", " - эти не работают.

В MsgBox правильно отрабатывается (значения столбиком), а в блокноте строкой.
...
Рейтинг: 0 / 0
04.04.2016, 15:29
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39207732
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
by-pass
Участник
ypmail,

https://www.google.ru/?gws_rd=ssl#newwindow=1&q=vb символ переноса строки
...
Рейтинг: 0 / 0
04.04.2016, 16:58
| Ответить | Цитировать | Написать  
Результат SQL запроса показать в блокноте
    #39207992
ypmail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ypmail
Участник
vbCrLf - оказалось решением.
...
Рейтинг: 0 / 0
05.04.2016, 08:06
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Результат SQL запроса показать в блокноте
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2155580]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 9ms
get first new msg:
 7ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 410ms
total:  666ms
созд. / загр.: 666ms
x
x
Закрыть


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