var
Memb: TMemoryStream;
begin
try
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Text:='select TestText from Test where id=1 ';
adoquery1.Prepared;
adoquery1.Open;
adoquery1.Edit; Memb:=TmemoryStream.Create; //创建内存数据流
OleContainer1.SaveToStream(Memb); //把Ole文件数据保存到流
Memb.Position:=0;
TBlobField(adoquery1.FieldByName('TestText')).LoadFromStream(Memb); //将数据流存入到字段中
adoquery1.Post;finally
Memb.Free;
end;
end;数据库采用Access字段是字节型的,程序运行到
adoquery1.Post;
出错!!!
Memb: TMemoryStream;
begin
try
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Text:='select TestText from Test where id=1 ';
adoquery1.Prepared;
adoquery1.Open;
adoquery1.Edit; Memb:=TmemoryStream.Create; //创建内存数据流
OleContainer1.SaveToStream(Memb); //把Ole文件数据保存到流
Memb.Position:=0;
TBlobField(adoquery1.FieldByName('TestText')).LoadFromStream(Memb); //将数据流存入到字段中
adoquery1.Post;finally
Memb.Free;
end;
end;数据库采用Access字段是字节型的,程序运行到
adoquery1.Post;
出错!!!
解决方案 »
- win 7 下的 D7 是不是很悲剧
- ClientDataSet1调存储过程遇到的问题!请各位大侠解决下哦
- 在delphi 中如何将路径写入到写入到系统的path里?
- dbgridEh过滤问题
- Service 和 注册表
- SQL语句优化
- 急等 单击DBGrid某一行如何获取该行某一字段值
- 我想做个15选5的彩票软件,差排列组合算法,请各位多多帮忙,到时候给你们每人发一个
- 实现一个程序的主窗体和子窗体都能分别显示在任务栏上后,却出现了问题....
- 怎样用TADOQuery实现两个表的主从关联更新刷新和浏览?
- 关闭程序的时候,TDataSet的BookMark需不需要FreeBookMark 200411
- ASP+ActiveX
执行完操作后,Ole控件就不能用了,整个程序死掉了,是什么原因啊?
我把AutoActivate属性设置为aaGetFous