Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / файл со скульным запросом, отправить на сервер КАК? / 6 сообщений из 6, страница 1 из 1
21.02.2014, 10:57
    #38568519
bombaztik
bombaztik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
файл со скульным запросом, отправить на сервер КАК?
Всем привет, тема такая, есть file.sql лежит локально на машине, в нем запрос к MS SQL, как его прочитать\перенаправить к северу? Дело в том что сам запрос не к конкретной таблице, а к нескольким и после него формируется нужное.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Workbook_Open()

Set ObjRecordset = CreateObject("ADODB.Recordset")
ServerName = "(local)"
DSN = "sql_TEST"
UID = "user"
PWD = "12345"
ConnectString = "Provider=SQLOLEDB;" & _
                "Data Source=" & ServerName & _
                ";Initial Catalog=" & DSN & _
                ";UID=" & UID & ";PWD=" & PWD
                
ObjRecordset.ActiveConnection = ConnectString
ObjRecordset.Source = "select * from cp_ControlPoints"
ObjRecordset.Open

MsgBox ObjRecordset.GetString

End Sub



Модератор: Учимся использовать тэги оформления кода - FAQ

Что прописать вместо "select * from cp_ControlPoints" чтобы читал из file.sql ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2014, 10:59
    #38568521
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
файл со скульным запросом, отправить на сервер КАК?
Нужно считать содержимое файла в переменную и вместо "select * from" подставить ее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2014, 11:09
    #38568537
bombaztik
bombaztik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
файл со скульным запросом, отправить на сервер КАК?
Я извиняюсь, а как считать в VB я НОЛЬ(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2014, 11:13
    #38568543
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
файл со скульным запросом, отправить на сервер КАК?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Public Function ReadFile(path As String) As String
Dim r() As Byte
    Open path For Binary As #1
    ReDim r(LOF(1) - 1)
    Get #1, , r
    Close #1
    ReadFile = StrConv(r, vbUnicode)
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2014, 11:25
    #38568561
bombaztik
bombaztik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
файл со скульным запросом, отправить на сервер КАК?
Вместо path путь до файла указывать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2014, 13:10
    #38568717
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
файл со скульным запросом, отправить на сервер КАК?
Код: vbnet
1.
ObjRecordset.Source = ReadFile("c:\sql.txt")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / файл со скульным запросом, отправить на сервер КАК? / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 154ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156499]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 16ms
total:  154ms
x
x
Закрыть


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