控件ADOConnection1 ADOQuery1已连接好测试通 opendialog1 SaveDialog1 edit1内容写备注button1
数据库表结构:表NORMAL
编号CODE 10A0001名称NAME 你好 文件FILE <BLOB>类型 10A 录入或修改时间LSTUPDTIME 2012-03-05备注NOTE NULL
高手请教以下代码哪有问题,怎么改:出错信息:转换请求无法实现或不合理.
procedure TForm1.button1Click(Sender: TObject);
var
FileName:string;
sm:TstringStream;
begin
try
if opendialog1.Execute then
begin
FileName:=opendialog1.FileName;
OpenWordFile(OleContainer1, FileName);
olecontainer1.DoVerb(ovPrimary);
sm := tstringstream.create( '');
olecontainer1.savetostream(sm);
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('insert into NORMAL(CODE,NAME,NORMALFILE,NORMALTYPE,LSTUPDTIME,NOTE)
values(:CODE,:NAME,:NORMALFILE,:NORMALTYPE,:LSTUPDTIME,:NOTE)');
parameters.ParamByName('CODE').value:='10A0002';
parameters.ParamByName('NAME').value:='FileName';
Parameters.ParamByName('NORMALFILE').LoadFromStream(sm,ftBlob);
parameters.ParamByName('NORMALTYPE').value:='10A';
parameters.ParamByName('LSTUPDTIME').value:='now';
parameters.ParamByName('NOTE').value:=edit2.Text;
execsql;
end;
end;
finally
sm.free;
end;
end;
数据库表结构:表NORMAL
编号CODE 10A0001名称NAME 你好 文件FILE <BLOB>类型 10A 录入或修改时间LSTUPDTIME 2012-03-05备注NOTE NULL
高手请教以下代码哪有问题,怎么改:出错信息:转换请求无法实现或不合理.
procedure TForm1.button1Click(Sender: TObject);
var
FileName:string;
sm:TstringStream;
begin
try
if opendialog1.Execute then
begin
FileName:=opendialog1.FileName;
OpenWordFile(OleContainer1, FileName);
olecontainer1.DoVerb(ovPrimary);
sm := tstringstream.create( '');
olecontainer1.savetostream(sm);
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('insert into NORMAL(CODE,NAME,NORMALFILE,NORMALTYPE,LSTUPDTIME,NOTE)
values(:CODE,:NAME,:NORMALFILE,:NORMALTYPE,:LSTUPDTIME,:NOTE)');
parameters.ParamByName('CODE').value:='10A0002';
parameters.ParamByName('NAME').value:='FileName';
Parameters.ParamByName('NORMALFILE').LoadFromStream(sm,ftBlob);
parameters.ParamByName('NORMALTYPE').value:='10A';
parameters.ParamByName('LSTUPDTIME').value:='now';
parameters.ParamByName('NOTE').value:=edit2.Text;
execsql;
end;
end;
finally
sm.free;
end;
end;
解决方案 »
- 我的cxGrid控件的从表怎么总是空的了,哪里设置错了吗?在线等,解决就结贴1。。。
- 数据查询问题(SQL)(旺仔哥哥,一支枪,FINGER,LOUJING.COM...请进!)
- 帮一朋友问一下,这样的软件要多少钱。
- 请教大家一个问题,点击delphi时总是报‘应用程序正常初始化(0xc0000142)失败。请单击确定,终止应用程序’(已经重装两次了,还是不行)
- Drate(小虫)请来接1000分__7) 原贴:http://expert.csdn.net/Expert/topic/2227/2227167.xml?temp=.3559534
- 如何设计这个触发器?(高分相送)
- 基础问题
- 请推荐几本DELPHI数据库开发方面的好书
- 大事不好,谁有DbGridEh的完整版,能不能给我一份!前些天我从网站上下载了DbGridEh的评估版,并用它编写了十几个程序,直到今天我才发现,原来用它编译的EXE文件必须在Delphi运行的时候才能运行!!!
- 请问使用DELPHI编写聊天室的方法
- 随机数发生器设计原理及实现
- 读取bmp出错?
这是日期类型不?parameters.ParamByName('LSTUPDTIME').value:=now;
parameters.ParamByName('LSTUPDTIME').value:=date;