Форум: "Базы";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Вниз

Сохранение файлов в BLOB поле   Найти похожие ветки 

← →
DimonNew   (2005-01-24 17:42) [0]

Привет! Подскажите пожалуста! Сохраняю файл в BLOB-поле:
TBLOBField(dmMain.cldsBlock.FieldByName("DocBlock")).LoadFromFile(OpenDialog.FileName);
И через UpdateSQL пытаюсь вставить в БД:
insert into AutoTour(IDCountry,IDTour,IDTextBlock,
TypeTextBlock, NameTextBlock,PathUser,DocBlock)
values (:IDCountry,:IDTour,:IDTextBlock,
:TypeTextBlock, :NameTextBlock,:PathUser,:DocBlock)
DocBlock - BLOB-поле.
В результате выводится ошибка:
Operand type clash:text is incompatible with image
Может в MS SQL Server хранение файлов не в image? Или я не правильно обновляю поле BLOB?

---

← →
Соловьев ©   (2005-01-24 18:03) [1]

...
UpdateSQL.Parameters.ParamByName("DocBlock").LoadFromFile(OpenDialog.FileName, ftVarBytes);
...

---

← →
DimonNew   (2005-01-24 18:28) [2]

LoadFromFile - только один параметр имеет - иимя файла.

---

← →
DimonNew   (2005-01-24 18:35) [3]

procedure TdmMain.dsprBlockBeforeUpdateRecord(Sender: TObject;
 SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
 UpdateKind: TUpdateKind; var Applied: Boolean);
begin
 usqlBlock.DataSet:=DeltaDS;
 usqlBlock.SetParams(UpdateKind);
 adocBlock.CommandText:=usqlBlock.SQL[UpdateKind].Text;
 adocBlock.Parameters.Assign(usqlBlock.Query[UpdateKind].Params);
 adocBlock.Execute;
 Applied := true;
end;

В этой процедуре возникает ошибка, в adocBlock.Execute

---

← →
DimonNew   (2005-01-24 18:43) [4]

Я сделал вот так
adocBlock.Parameters.ParamByName("DocBlock").LoadFromFile(adocBlock.Parameters.ParamByName("PathUser").Value,ftVar Bytes);
И все заработало, спасибо за помощь Соловьев ©!

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.033 c