Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение бинарного файла из MS SQL Server из поля varbinary(MAX) / 8 сообщений из 8, страница 1 из 1
31.03.2011, 17:36
    #37192949
andrey153
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
необходимо прочитать бинарный файл из SQL, и не получается :(

Connect = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=MyDB;Data Source=SVR"

Set Rs = CreateObject("ADODB.Recordset")
Set Rec = CreateObject("ADODB.Record")
set Stm = CreateObject("ADODB.Stream")

'rs.Open Source, ActiveConnection, CursorType, LockType, Options
Rs.Open "Select top 1 field2 from Table_2", Connect, 0, 3, 8
Rec.Open Rs 'Ошибка №800A0CB3 Объект или поставщик не может выполнить требуемую операцию

Rec.Open "Select top 1 field2 from Table_2", Connect, 1, 0 'Ошибка №800A0C93 Операция не допускается в данном контексте
'Stm.Open(Rec)
'Stm.SaveToFile("D:\FileFromSQL.txt")
...
Рейтинг: 0 / 0
31.03.2011, 17:41
    #37192962
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
Забыли про установление соединения с БД :)
...
Рейтинг: 0 / 0
31.03.2011, 17:41
    #37192964
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
Rec вообще не нужно, как впрочем и stream. Если только это не скрипт.
Код: plaintext
1.
2.
3.
4.
Stm.Type =  1 
Stm.Open
Stm.Write rs( 0 ).Value
Stm.Position =  0 
Stm.SaveToFile("D:\FileFromSQL.txt") 
...
Рейтинг: 0 / 0
31.03.2011, 17:42
    #37192970
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
Shocker.ProЗабыли про установление соединения с БД :)В качестве соединения можно указывать не только ADODB.Connection, но и строку подключения.
...
Рейтинг: 0 / 0
31.03.2011, 17:45
    #37192978
andrey153
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
1, соединение устанавливается, recordset нормально открывается
2, Это скрипт, вот целиком:


<job id="FileFromSQL">
<SCRIPT LANGUAGE="VBScript">

'Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)

Connect = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=MyDB;Data Source=SVR"

Set Rs = CreateObject("ADODB.Recordset")
Set Rec = CreateObject("ADODB.Record")
set Stm = CreateObject("ADODB.Stream")

'rs.Open Source, ActiveConnection, CursorType, LockType, Options
Rs.Open "Select top 1 field2 from Table_2", Connect, 0, 3, 8
Rec.Open Rs 'Ошибка №800A0CB3 Объект или поставщик не может выполнить требуемую операцию

Rec.Open "Select top 1 field2 from Table_2", Connect, 1, 0 'Ошибка №800A0C93 Операция не допускается в данном контексте
'Stm.Open(Rec)
'Stm.SaveToFile("D:\FileFromSQL.txt")

'Rec.Close()
'Rs.Close()

Wscript.Echo "Всё!"
</SCRIPT>
</job>
...
Рейтинг: 0 / 0
31.03.2011, 17:46
    #37192982
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
AntonariyShocker.ProЗабыли про установление соединения с БД :)
В качестве соединения можно указывать не только ADODB.Connection, но и строку подключения.
Гм
В децтве я слышал об этом, но мне это ри разу не удалось сделать
Что-то я сегодня плохой консультант, пойду отдохну
...
Рейтинг: 0 / 0
31.03.2011, 17:49
    #37192989
andrey153
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
Antonariy, огромное человеческое спасибо, все получилось!
...
Рейтинг: 0 / 0
31.03.2011, 17:53
    #37193004
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение бинарного файла из MS SQL Server из поля varbinary(MAX)
Да было б за что. )
Эх, мои бы задачи так же легко решались...
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение бинарного файла из MS SQL Server из поля varbinary(MAX) / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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