ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / ошибка или что ???
10 сообщений из 10, страница 1 из 1
ошибка или что ???
    #33126317
Фотография OreL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OreL
Участник
Пытаюсь вытащить всю таблицу картинок в двоичном формате из SQL
Где поле таблицы GRD_ID должно быть названием файлов.
код такой:

sSQL = "SELECT GRD_ID,GRD_GRAPHIC FROM TOF_GRA_DATA_1 "
rs.Open sSQL, cn, 1, 2

objStream.Type = 1
objStream.Open
do while not rs.eof
objStream.Write rs.Fields("GRD_GRAPHIC").Value
objStream.SaveToFile Server.MapPath("./") & "\" & rs!GRD_ID & ".jp2", 2
rs.MoveNext
loop

Не понимаю, почему не работает ???
Где ошибка ???
Подскажите пожалуйста !
...
Рейтинг: 0 / 0
21.06.2005, 11:47
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33127689
Hratchia
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hratchia
Участник
OreLГде ошибка ???
Подскажите пожалуйста !

Мы тоже не видим ошибку!
Может для начала скажешь что за ошибка?

куда ведет это:

автор
rs.MoveNext
loop
...
Рейтинг: 0 / 0
21.06.2005, 19:42
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33127729
Фотография OreL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OreL
Участник
Hratchia OreLГде ошибка ???
Подскажите пожалуйста !

Мы тоже не видим ошибку!
Может для начала скажешь что за ошибка?

куда ведет это:

автор
rs.MoveNext
loop


Ошибка в том, что я жду на выходе файлы с именами из поля GRD_ID,
а этого не происходит !!!
...
Рейтинг: 0 / 0
21.06.2005, 20:27
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33127741
Фотография OreL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OreL
Участник
Вот весь код:

<%@ Language=VBScript %>
<%
option explicit
Response.Buffer = True
Response.Expires = 0
Server.ScriptTimeout = 6000

Dim cn, rs, objStream, sSQL

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Set objStream = Server.CreateObject("ADODB.Stream")

cn.Open "Provider=SQLOLEDB.1;Initial Catalog=IMAGE;Data Source=localhost;UID=sa;PWD=sa;"

sSQL = "SELECT GRD_ID,GRD_GRAPHIC FROM TOF_GRA_DATA_1"
rs.Open sSQL, cn, 1, 2

objStream.Type = 1
objStream.Open
do while not rs.eof
objStream.Write rs.Fields("GRD_GRAPHIC").Value
objStream.SaveToFile Server.MapPath("./") & "\" & rs!GRD_ID & ".jp2", 1
rs.MoveNext
loop


rs.Close
objStream.Close
cn.Close

Set rs = Nothing
Set objStream = Nothing
Set cn = Nothing

%>
<html>
<head>
<body>
<center>
<b>Ïðîöåññ ïîø¸ë</b>
</center>
</body>
</head>
</html>
...
Рейтинг: 0 / 0
21.06.2005, 20:39
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33128263
RFT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RFT
Участник
OreLВот весь код:

do while not rs.eof
objStream.Write rs.Fields("GRD_GRAPHIC").Value
objStream.SaveToFile Server.MapPath("./") & "\" & rs!GRD_ID & ".jp2", 1
rs.MoveNext
loop


Может надо rs("GRD_ID") ?
...
Рейтинг: 0 / 0
22.06.2005, 10:43
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33128320
Фотография OreL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OreL
Участник
RFT OreLВот весь код:

do while not rs.eof
objStream.Write rs.Fields("GRD_GRAPHIC").Value
objStream.SaveToFile Server.MapPath("./") & "\" & rs!GRD_ID & ".jp2", 1
rs.MoveNext
loop


Может надо rs("GRD_ID") ?

Так работает, но только один файл делает,
а цикл не хочет работать.!!!
...
Рейтинг: 0 / 0
22.06.2005, 11:04
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33128352
RFT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RFT
Участник
OreLВот весь код:

do while not rs.eof
objStream.Write rs.Fields("GRD_GRAPHIC").Value
objStream.SaveToFile Server.MapPath("./") & "\" & rs!GRD_ID & ".jp2", 1
rs.MoveNext
loop


Может надо WriteLine ?
...
Рейтинг: 0 / 0
22.06.2005, 11:11
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33128608
Фотография OreL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OreL
Участник
OreL RFT OreLВот весь код:

do while not rs.eof
objStream.Write rs.Fields("GRD_GRAPHIC").Value
objStream.SaveToFile Server.MapPath("./") & "\" & rs!GRD_ID & ".jp2", 1
rs.MoveNext
loop


Может надо rs("GRD_ID") ?

Так работает, но только один файл делает,
а цикл не хочет работать.!!!




Всё, спасибо огромное, первый вариант заработал,
просто были проблеммы с авторизацией на сервере !!!!
...
Рейтинг: 0 / 0
22.06.2005, 12:35
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33128615
Фотография OreL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OreL
Участник
RFT OreLВот весь код:

do while not rs.eof
objStream.Write rs.Fields("GRD_GRAPHIC").Value
objStream.SaveToFile Server.MapPath("./") & "\" & rs!GRD_ID & ".jp2", 1
rs.MoveNext
loop


Может надо WriteLine ?

С тобой можно связаться ???
Моя ICQ-5903142
...
Рейтинг: 0 / 0
22.06.2005, 12:37
| Ответить | Цитировать | Написать  
ошибка или что ???
    #33128941
RFT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RFT
Участник
А я и так на связи периодически:-)
...
Рейтинг: 0 / 0
22.06.2005, 14:09
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / ошибка или что ???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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