|
|
 |
专题栏目 |
 |
|
相关文章 |
|
|
|
|
|
 |
怎样向SQL Server插入带有Image字段的记录 |
热 |
|
| 怎样向SQL Server插入带有Image字段的记录 |
|
作者：oklemon 文章来源：不详 点击数： 更新时间：2007-11-14 11:01:41  |
|
怎样向SQL Server插入带有Image字段的记录
向SQL Server插入记录相信大家都会做,但是如果表中带有Image字段就不好弄了,这里有一个例子,非常安全,同时也向大家展示动态生成控件的技巧(对高手来说班门弄斧了)
procedure Button1Click(Sender:TObject);
var
Query : TQuery;
StringStream : TStringStream;
begin
StringStream := TStringStream.Create ('''''''');
Memo.Lines.SaveToStream (StringStream); //在这里创建一个字符流
StringStream.Position := 0;
Query := TQuery.Create(self); //在这里创建一个临时的Query
Query.DatabaseName := Database.DatabaseName;
with Query.SQL do
begin
Clear;
Append (''''INSERT INTO TEST'''');
Append (''''(ID,CONTENT)''''); //CONTENT是一个Image字段
Append (''''VALUES (:ID, :CONTENT)'''');
end;
with Query do
begin
ParamByName (''''ID'''').asInteger := StrToIntDef (edtID.Text,0);
ParamByName (''''CONTENT'''').asBlob := StringStream.DataString; //就在这里赋值
end;
StringStream.Free; //用完了马上Free掉
Database.StartTransaction; //开始事务控制
try
Query.ExecSQL; //开始插入记录
Database.Commit; //提交事务
except
Query.Free; //如果出错首先将Query Free掉
Database.RollBack; //回退事务
raise; //重新引发异常,以通知用户
end;
Query.free;
end;
|
|
| 文章录入：mintao 责任编辑：mintao |
|
|
上一篇文章： 在SQL*PLUS中应用AUTOTRACE REPORT
下一篇文章： 微软SQL Server 2000 Reporting Services介绍(五) |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
