BLOB Not Open |
尚未結案
|
Teamfaith
一般會員 發表:3 回覆:4 積分:1 註冊:2005-05-20 發送簡訊給我 |
大大們, 參考過各位的blod文章後,嘗試編寫程式如下,但執行後有bde提示"blod not open". 希望各位幫忙改正. 謝謝!!!. sfile := 'c:\fpf.bmp';
TBF := TBLOBField(table1.fieldbyname('FP_image'));
image1.Picture.LoadFromFile(sfile);
fs := TFileStream.Create(sfile,fmOpenRead);
query1.SQL.Clear;
query1.SQL.Add('select * from fps_info where seq_id = 2');
query1.ExecSQL;
table1.Edit;
bs := TBlobStream.create(TBF,bmWrite);
table1.post;
bs.Free;
fs.Free;
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
您好: query1.SQL.Clear;
query1.SQL.Add('select * from fps_info where seq_id = 2');
query1.Open;//這裡是open才對. table1.Edit;//這裡也可能導致問題
bs := TBlobStream.create(TBF,bmWrite);
table1.post; 能否貼出完整的一段程式出來,以利大家知道問題出在哪. 發表人 - supman 於 2005/05/31 18:10:00
|
Teamfaith
一般會員 發表:3 回覆:4 積分:1 註冊:2005-05-20 發送簡訊給我 |
|
Teamfaith
一般會員 發表:3 回覆:4 積分:1 註冊:2005-05-20 發送簡訊給我 |
該段程式如下:-
procedure TForm1.Button4Click(Sender: TObject);
var
TBF: TBlobfield;
BS : TBlobStream;
FS : TFileStream;
sfile : String;
begin
sfile := 'c:\fpf.bmp';
TBF := TBLOBField(table1.fieldbyname('FP_image'));
image1.Picture.LoadFromFile(sfile);
fs := TFileStream.Create(sfile,fmOpenRead);
query1.SQL.Clear;
query1.SQL.Add('select * from fps_info where seq_id = 2');
query1.open;
table1.Edit;
bs := TBlobStream.create(TBF,bmWrite);
table1.post;
bs.Free;
fs.Free;
{ form1.FPS_Database.StartTransaction;
begin
try
form1.Query1.SQL.Text := form1.UpdateSQL1.InsertSQL.Text;
form1.Query1.ExecSQL;
except
form1.FPS_Database.Rollback;
end;
form1.FPS_Database.Commit;
end;
form1.Memo1.Lines.Add(inttostr(table1.RecordCount));}
end;
|
supman
尊榮會員 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
|
Teamfaith
一般會員 發表:3 回覆:4 積分:1 註冊:2005-05-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |