| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Рисунки в Access с помощью ADO [D6, MS Access]

dito ©   (2003-08-10 17:43:00) 

Привет,

Как добавить рисунок в базу MS Access с помощью ADO?
Как я думаю, в базе Access должен быть поле OLE (или MEMO), а в Delphi:
AdoDataSet1.FieldByName("Picture").asBCD:= … а дальше?

Может я что-то не так делаю?

Заранее благодарю.

---

sniknik   (2003-08-10 18:21:00) [1]

var st: string;
begin
if ADODataSet1.Active then begin
st:= ADODataSet1.FieldByName("AUTOID").AsString;
ADOCommand1.CommandText:= "UPDATE MyTable SET ImField=:ImField WHERE AUTOID="+St;
ADOCommand1.Parameters.ParamByName("ImField").LoadFromFile(Edit1.Text, ftGraphic);
ADOCommand1.Execute;
end;
end;

---

sniknik   (2003-08-10 18:20:00) [2]

BCD это цифра, а не рисунок

попробуй так

TBLOBField(ADODataSet1.FieldByName("Picture")).LoadFromFile("Image.Bmp ");

или так (это точно работает)

---

Наверх