我用c++ builder +oracle 写过一个图象的管理方面的功能,明天我上班去帮你看看
解决方案 »
- mysql 的Navicat for MySQL链接
- 简易的通用api wrapper: hisqlapi1.0.0.9发布
- mysql不保存数据?高手指教?
- VC+wxWidgets环境下数据库的读写操作!
- mysql查询
- MySql高手请进来.急!!!
- 这样的数据库操作如何优化?高人们HELP ME!!
- 我犯了一个错误,我把所有的用户都删了,包括root???
- MySQL-Front连接MySql时出现的问题,求解
- mysql 表行数据根据某个相同字段合并的的sql语句怎么写
- 求教:想用MYSQL建一张表,其中要含一项ID值是由系统自动增长(无符号整型),如何实现??急!!
- MYSQL里如何设置密码?
Tblobfield(query1.FieldByName('pic')).loadfromfile(str4);
query1.Post;
1、如果用BDE或ODBC提交数据库:
Create Table Back_txt
(
Back_txt_code int,
Back_txt_details image
)
Query.Close;
Query.SQl.Text:=Format('InSert into Back_txt values (%d,:BackTxtDetails)',[Back_txt_Code]);
Query.ParamByName('BackTxtDetails').DataType:=ftBlob;
Query.ParamByName('BackTxtDetails').ParamType:=ptInput;
Query.ParamByName('Backtxtdetails').LoadFromFile(File_Name,ftBlob);
Query.ExecSql
Query.Close;
Query.Sql.Txt:=Format('Select * from Back_txt where Back_Txt_code=%D',[Back_Txt_Code]);
Query.open;
TblobField(Query.FieldByName('Back_txt_details')).SavetoFile(Filename); 2、如果用ADO提交:
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('f:\page.doc');
str.Position:=0;
adoquery1.Append;
Tblobfield(adoquery1.FieldByName('tt')).loadfromstream(str);
try
adoquery1.Post;
finally
str.Free;
end;//存储文件var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(adoquery1.FieldByName('tt')).savetostream(str);
str.SaveToFile('F:\gg.doc');
str.Free;//导出文件我用的是delphi6和sql2000试验过,没问题
可以存储任何形式的文件,并可导出为其他后缀名。