powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение файлов на сервере
7 сообщений из 7, страница 1 из 1
Сохранение файлов на сервере
    #32184495
uchastik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ поможите чем могете :-)

Есть таблица CustomerEngName,
поле Files тип image

Загрузка файла на сервер

Private Sub Command2_Click()

Dim mstream As New ADODB.Stream
Dim rs As New ADODB.Recordset
rs.Open "SELECT Files FROM CustomerEngName WHERE ID=1", "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=UnionDB;Data Source=SRVAPP1", adOpenKeyset, adLockOptimistic

mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:\test.jpeg"
rs.Fields("Files").Value = mstream.Read
rs.Update

End Sub

Проверка

Private Sub Command1_Click()

Dim mstream As New ADODB.Stream
Dim rs As New ADODB.Recordset
rs.Open "SELECT Files FROM CustomerEngName WHERE ID=1", "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=UnionDB;Data Source=SRVAPP1", adOpenKeyset, adLockOptimistic

mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("Files").Value
mstream.SaveToFile "c:\test1.jpeg", adSaveCreateOverWrite

End Sub

Пытаюсь посмотреть
"http://SRVAPP1/unionDB?sql=SELECT FILES FROM CustomerEngName where ID=1"
Нифига не получается!!!!!!!!!!!!!!!
В чём грабли?
...
Рейтинг: 0 / 0
Сохранение файлов на сервере
    #32184609
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а откуда у этой строки ноги растут ????
http://SRVAPP1/unionDB

SRVAPP1 - это наверное имя твоего компа
unionDB - это наверное имя asp - скрипта на IIS `е запущенном на этой машинке

и какую ошибку выдает скрипт?
...
Рейтинг: 0 / 0
Сохранение файлов на сервере
    #32184647
uchastik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прошу прощения запрос бредовый

"http://SRVAPP1/unionDB?sql=SELECT FILES FROM CustomerEngName where ID=1"
Наверное вопрос состоит в том как лучше отображать файлы которые храняться на сервере, в браузере.
Может у кого есть какие наработки?
...
Рейтинг: 0 / 0
Сохранение файлов на сервере
    #32184661
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. должен быть установлен веб -сервер, поддерживающий серверные скрипты
это может быть MS IIS
2. может быть написан серверный скрипт ASP или ASPX
можно конечно и на перле или PHP , но для VB шников ближе именно эти технологии

3. в скрипт передается параметр методом GET- после знака ? myvar =

все что угодно в том числе и запрос

скрипт должен обработать параметр и выдать результат - веб страницу с содержимым в необходимом тебе виде

вот тебе и обзор трехзвенной технологии
...
Рейтинг: 0 / 0
Сохранение файлов на сервере
    #32184989
uchastik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, интересно а другой технологии ( кроме IIS) взаимодействия броузера и SQL сервера нет? Напрямую нельзя обратиться?
...
Рейтинг: 0 / 0
Сохранение файлов на сервере
    #32184995
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
почему же ?
можно и напрямую , только теряются преимущества трехзвенки.

можно использовать клиентские скрипты, только это неудобно

придется устанавливать драйвера доступа к базе данных каждому клиенту
...
Рейтинг: 0 / 0
Сохранение файлов на сервере
    #32185021
uchastik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хорошо спрошу по другому, как распечатать на клиенте файл хранимый в базе данных, причем он может быть либо картинка(.jpg, .tif), или офисный документ.
Я подумал ето сделать через браузер, оп сам найдет сопоставленное приложение и выполнит метод print.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение файлов на сервере
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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