bestlong 怕失憶論壇

標題: 向 MSSQL 插入 Impage 欄位型態的紀錄 [打印本頁]
作者: bestlong    時間: 2006-6-21 11:46     標題: 向 MSSQL 插入 Impage 欄位型態的紀錄

範例：
  1. procedure Button1Click(Sender:TObject);
  2. var
  3.   Query : TQuery;
  4.   StringStream : TStringStream;
  5. begin
  6.   StringStream := TStringStream.Create ('');
  7.   Memo.Lines.SaveToStream (StringStream);
  8.   StringStream.Position := 0;
  9.   Query := TQuery.Create(self);
  10.   Query.DatabaseName := Database.DatabaseName;
  11.   with Query.SQL do
  12.     begin
  13.       Clear;
  14.       Append ('INSERT INTO TEST');
  15.       Append ('(ID,CONTENT)'); //CONTENT是一個 Image 欄位
  16.       Append ('VALUES (:ID, :CONTENT)');
  17.     end;
  18.   with Query do
  19.     begin
  20.       ParamByName ('ID').asInteger := StrToIntDef (edtID.Text,0);
  21.       ParamByName ('CONTENT').asBlob := StringStream.DataString; //就在這裡指定
  22.     end;
  23.   StringStream.Free; //用完了馬上 Free 掉
  24.   Database.StartTransaction; //開始交易控制
  25.   try
  26.     Query.ExecSQL; //開始插入紀錄
  27.     Database.Commit;
  28.   except
  29.     Query.Free; //如果出錯首先將 Query Free 掉
  30.     Database.RollBack;
  31.     raise; //重新引發例外, 以通知使用者
  32.   end;
  33.   Query.free;
  34. end;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5