Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / ошибка или что ??? / 10 сообщений из 10, страница 1 из 1
21.06.2005, 11:47
    #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, 19:42
    #33127689
Hratchia
Hratchia
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка или что ???
OreLГде ошибка ???
Подскажите пожалуйста !

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

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

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

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

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

автор
rs.MoveNext
loop


Ошибка в том, что я жду на выходе файлы с именами из поля GRD_ID,
а этого не происходит !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2005, 20:39
    #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
| Ответить | Цитировать | Написать  
22.06.2005, 10:43
    #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, 11:04
    #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:11
    #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, 12:35
    #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:37
    #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, 14:09
    #33128941
RFT
RFT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка или что ???
А я и так на связи периодически:-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / ошибка или что ??? / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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