怎样向SQLServer插入带有Image字段的记录

概述 向SQL Server插入记录相信大家都会做,但是如果表中带有Image字段就不好弄了,这里有一个例子,非常安全,同时也向大家展示动态生成控件的技巧(对高手来说班门弄斧了) procedure Button1Click(Sender:TObject); var Query : TQuery; StringStream : TStringStream; begin StringStream :=

 向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;

转自：http://www.newasp.net/tech/program/19634.html 

总结

以上是内存溢出为你收集整理的怎样向SQLServer插入带有Image字段的记录全部内容，希望文章能够帮你解决怎样向SQLServer插入带有Image字段的记录所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。