用TBlobStream,TStream类试试把
解决方案 »
- delphi 调用ole 导出数据到 Exel 时为什么不能操作其他的Excel 文档 急急...........
- 请问在局域网中使用QQ视频时,QQ是怎么通过代理服务器发送到局域网中的机器上的呢?
- 安完SUIpack4.0 之后运行出错。救命!!
- 寻找适合BDE,for Delphi5 的查询控件?
- Access中时间字符串怎样写?帮我看一下这段代码有什么问题?很简单的
- 帮忙看看这句SQL语句有什么错
- delphi中如何调运外部可执行程序(不出显执行程序的多余画面)
- 请问用finddialog如何实现向上查找?
- 若记录数达到数千条,用顺序逐条查找的方法查找记录,速度是不是会很不理想(Paradox格式)?
- 用Query查询时查询条件用string类型和Tdate类型用什么区别???
- SendMessage(?,?,?,?) 有吗?
- 我不知道修改了什么的属性了,现在凡是添加到form中的任何控制的color都是红的,应该怎么改?
谢谢大家参与,期待更好的解决方案!
procedure TForm1.ImageIntoDBBitBtnClick(Sender: TObject);
begin
try
with Query1 do
begin
close;
sql.clear;
sql.add('insert into img (imga) values(:imag)');
end;
try
if FileName<>'' then
ParamByName('Img').LoadfromFile(FileName,ftGraphic)
else
ParamByName('Img') .asBlob:='';
Query1.ExecSQL;
except
ShowMessage('图片保存出错!');
exit;
end;
except
end;
end;两层下是这样写的,三层的多一个提交(applyupdates)应该就可以了
应用服务器只用到Ado_base: TADOConnection;
Com_base: TADOCommand;
Qry_base: TADOQuery;
Dsp_base: TDataSetProvider;
Ado_base: TADOConnection;连接数据库
Com_base: TADOCommand;写
Qry_base: TADOQuery;读
Dsp_base: TDataSetProvider;连接客户端客户端Tclientdataset只用于显示,不用于写。
连接用Twebconnection.
所有存储都用应用服务器的interface--->method 实现。
客户端不能用Tdb***控件。
客户端不能出现诸如insert,append,post,applyupdate等不知只用sql语句(应用服务器端)能否实现?