Insert Blob in the table [D6, IB6.x]
Octav © (2002-03-23 16:05:00)
With IBQuery1 do
Begin
SQL.Add("insert into B01(ID01,Name,foto)
values(:p1,:p2,:p3)");
ParamByName("p1").AsString := "xxxxxx";
ParamByName("p2").AsString := "xxxxxx";
j:=TJpegImage.Create;
j.LoadFromFile("C:\1.jpg");
s:=TMemoryStream.Create;
j.SaveToStream(s);
Как поставить Blob в p3 ??????????????????
ExecSQL;
j.Free;
s.Free;
End;
Malder (2002-03-24 12:10:00) [1]
Кроме
AsStringу
ParamByNameесть еще и
asBlob, LoadStreamили как то так... посмотри, попробуй
Наверх 
ЧАТ |
Орешник |
|
