Здравствуйте! Подскажите как в таблицу MS SQL помещать и считывать doc.* файлы. Использутся Delphi7, ADOТable.

Вот посмотри

Код

procedure TForm1.Button1Click(Sender: TObject); var MSWord: Variant; begin MSWord := CreateOleObject('Word.Application'); MSWord.Visible:=True; MSWord.Documents.Open(ExtractFilePath (Application.ExeName)+'\1.doc'); MSWord.ActiveDocument.Range.Select;//Выделяем весь документ MSWord.Selection.Copy;//Копируем кусок в буфер RichEdit1.PasteFromClipboard();//Вставляем куда нужно, папример в RichEdit end;

Цитата(kirilllius @ 13.10.2005, 09:48)

Вот посмотри Код procedure TForm1.Button1Click(Sender: TObject); var MSWord: Variant; begin MSWord := CreateOleObject('Word.Application'); MSWord.Visible:=True; MSWord.Documents.Open(ExtractFilePath (Application.ExeName)+'\1.doc'); MSWord.ActiveDocument.Range.Select;//Выделяем весь документ MSWord.Selection.Copy;//Копируем кусок в буфер RichEdit1.PasteFromClipboard();//Вставляем куда нужно, папример в RichEdit end;

Это конечно интересно, спасибо, но мне бы хотелось посмотреть как именно работать с полем БД, как записать туда файл Word и как этот файл открыть снова в Word

т.е. ты хочешь хранить сам файл в базе?

Зачем дуть базу, можно хранить в ней только ссылки на файл, а затем запускать файлы по ссылкам. Но это не удобно тем, что придется таскать файлы за собой.
Другой способ, это считать содержимое файла через поток в Blob поле. А при открытии файла сохранять обратно содержимое Blob поля на винт и открывать его с винта.

Здравствуйте!
У меня к ВАМ такой вопрос:
на дельфи использую компонент ADOQuery. хотел сделать update. Не подскажете как правильно использовать этот компонент.

adoQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(' update и тд ');
А потом что ? ADOQuery1.ExecSQL или ADOQuery1.Open ?

ADOQuery1.ExecSQL


ADOQuery1.Open используется тогда, когда ADOQuery1 возвращает результат, а update или delete результатов не возврацают ;)

Тогда он мне ошибку выдает.
У меня есть таблица состоящий из двух полей id, count. На форме я ввожу в edit1 число(id).
Он должен отнимать из count значение 2 соответствующий числу(id). Как это делать?

Наверно так

Код

UPDATE Tab SET count = count - 2 WHERE ID=4

;

sql код правильный.
Но на Дельфи через adoquery

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update db2inst1.tmc set count=count-2 where id='+J+'');
ADOQuery1.ExecSQL;

Здесь J я ввожу с клавиатуры
Этот код выдает ошибку

Acces violation at address 1f453E7E in modul "msado15" . Write of address 02465010
Это че за ошибка?

А что это J+''

попробуй так

J := Edit1.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update db2inst1.tmc set count=count-2 where id='+ QuotedStr(J));
ADOQuery1.ExecSQL;

Это сообщение отредактировал(а) kirilllius - 19.10.2005, 21:53

Здравствуйте!!
Как можно через dbComboBox посмотреть данные одного поля таблицы (ADOTable)?

while not ADOTable1.Eof do
begin
DBComboBox1.Items.Add(ADOTable1.FieldByName('last_name').AsString);
ADOTable1.Next;
end;
А этот код не корректно работает.
Кто нибудь подскажите пожалуйста.
S O S.

Скажи, по-русски, что ты хочешь посмотреть?

Как в Delphi c помощью Word-а (WordDocument или WordApplication) просмотреть doc-файлы, которые хранятся в блоб-полях. Заранее спасибо.

kirilllius: Как в Delphi c помощью Word-а (WordDocument или WordApplication) просмотреть doc-файлы, которые хранятся в блоб-полях. Заранее спасибо.

Попробуй считать Ворд файлы обратно из блоб полей через поток и сохранить его на винт, а затем открыть этот файл с винта.

Цитата

MSWord.Selection.Copy;//Копируем кусок в буфер RichEdit1.PasteFromClipboard();//Вставляем куда нужно, папример в RichEdit

Крайне не советую использовать буфер обмена т.к. у пользователя там могло что-нибудь лежать.

Цитата

Зачем дуть базу, можно хранить в ней только ссылки на файл, а затем запускать файлы по ссылкам. Но это не удобно тем, что придется таскать файлы за собой.

Это часто нужно для создания единой системы разграничения прав в базе данных.

Автору: Работа с документами ворд в смысле помещения их в БД ничем не отличается от помещения других двоичных данных в БД. Теперь по поводу открытия документов ворда из базы или записи их в БД, наиболее корректный вариант ИМХО - работа через файлы (уже упомянутая kirilllius). Сначала сохранем из базы на винт, потом открываем во ворде или сначала сохраняем на винт из ворда а потом записываем в базу.

Цитата

kirilllius: Как в Delphi c помощью Word-а (WordDocument или WordApplication) просмотреть doc-файлы, которые хранятся в блоб-полях. Заранее спасибо.

Если файл записан в блоб поле через TMemoryStream, то вот как его прочитать

Код

procedure TForm1.Button1Click(Sender: TObject); var  Potok : TMemoryStream; begin  try   Potok := TMemoryStream.Create;   TBLOBField(ADOTable1.FieldByName('Blob_поле')).SaveToStream(Potok);   Potok.Position := 0;   Potok.SaveToFile('C:\Temp.doc');   ShellExecute(Handle, 'open','C:\Temp.doc',nil,nil,SW_SHOWNORMAL);  finally   Potok.Free;  end; end;

Цитата

но когда я редактирую и закрываю документ, запрашивает о сохранении. Нажимаю Ок, но изменение нигде не сохраняется, ни в базе, ни в оригинале (в самом документе).

Итак
1 мы считываем и сохраняем данные в файл C:\Temp.doc Поэтому когда ты после редактирования нажимаешь кнопку принять изменения, то они вносятся именно в файл C:\Temp.doc а ни в какой другой. Чтобы эти изменения сохранились в базу, то тебе нужно этот файл C:\Temp.doc опять через поток сохранить в Блоб поле. Сам фай туда не сохранится.
2 чтобы сохранить файл в блоб поле есть два варианта легкий и тяжелый.
легкий - это кинуть кнопочку на форму по нажатию на которой будет выбранный или определенный файл записываться в блоб поле.
тяжеллый - это создание процесса. т.е. создаешь прощесс, запускаешь ворд, редактируешь файл, закрываешь Ворд, процесс конотолирует Водд и как только процесс завершается, то файл C:\Temp.doc записывается а блоб поле.