Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Результат SQL запроса показать в блокноте / 15 сообщений из 15, страница 1 из 1
01.04.2016, 14:08
    #39206050
ypmail
ypmail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
Не подскажете как можно результат запроса
Код: 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:10
    #39206056
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
наброски для размышления
Код: 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:14
    #39206061
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
А почему именно в блокноте? возвращаемый набор записей - всё-таки вполне себе структурированная штука, тут больше подошёл бы какой табличный вьювер, да хоть бы даже и тот же Excel...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2016, 14:15
    #39206063
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
А то и формочка какая с гридом. Ежели речь не об VBS.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2016, 14:31
    #39206079
ypmail
ypmail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
Надо именно в блокноте.
Что-то пока не понимаю от чего оттолкнуться... Сложно для первого раза.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2016, 14:52
    #39206101
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
Чего там сложного? рекордсет - в текстовый файл, потом сам файл - в блокнот.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2016, 15:13
    #39206146
ypmail
ypmail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
Например в 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:15
    #39206147
ypmail
ypmail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
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, 16:05
    #39206193
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
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, 17:58
    #39206283
Vladimir Baskakov
Vladimir Baskakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
если слить в текстовый файл и передать его параметром командной строки нотепаду, он загрузит. это если непременно нотепад.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2016, 11:36
    #39207305
ypmail
ypmail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
Vladimir Baskakovесли слить в текстовый файл и передать его параметром командной строки нотепаду, он загрузит. это если непременно нотепад.
Можно пример?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2016, 14:47
    #39207586
Vladimir Baskakov
Vladimir Baskakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
пример чего?

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

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

не то что бы мне жалко, но что пока не вышло из трех действий?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2016, 15:29
    #39207636
ypmail
ypmail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
Код: 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, 16:58
    #39207732
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Результат SQL запроса показать в блокноте
ypmail,

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


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