我用的 access数据库 一运行 就提示 could not convert variant of type (NULL) into type (String) ,请问是怎么回事?
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.sql.Add('select zt,kc,RQ from ceshi where cp="cnc" order by kc');
adoquery1.open; with adoquery2 do
begin
close;
sql.Clear;
sql.Add('select xm,xb,nl from ceshi2 where kc=:kc and rq between :rq and :dqrq');
Parameters.ParamByName('kc').Value:=adoquery1['kc'];
Parameters.ParamByName('rq').Value:=adoquery1['RQ'];
Parameters.ParamByName('dqrq').Value:=formatdatetime('',now);
open;
end;
stringgrid1.cells[0,2]:=adoquery2['xm'];
stringgrid1.cells[1,3]:=adoquery2['xb'];
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.sql.Add('select zt,kc,RQ from ceshi where cp="cnc" order by kc');
adoquery1.open; with adoquery2 do
begin
close;
sql.Clear;
sql.Add('select xm,xb,nl from ceshi2 where kc=:kc and rq between :rq and :dqrq');
Parameters.ParamByName('kc').Value:=adoquery1['kc'];
Parameters.ParamByName('rq').Value:=adoquery1['RQ'];
Parameters.ParamByName('dqrq').Value:=formatdatetime('',now);
open;
end;
stringgrid1.cells[0,2]:=adoquery2['xm'];
stringgrid1.cells[1,3]:=adoquery2['xb'];
解决方案 »
- delphi的ListView控件如何判断当勾选checkbox时,选的是第几行?
- 寻求用web形式浏览医学dicom文件的delphi编程代码
- 请大家帮忙看看问题出在哪
- 关于自动点击某一程序的提示窗口中的"确定"按钮
- 向高手请教(有关自定义打印)
- 关于treeview动态显示、修改数据库内容的问题……(多表)
- 一个小问题,请各位帮一下忙!
- 请大家警惕的一种病
- 为什么我在Delphi5中编译的程序放到Delphi7中却会出现"Unsafe Type"的警告,我又该如何改进呢?
- 请问那有Rose程序下载
- 安装DevExpress VCL 2011 后delphi启动有问题 清赐教
- 求一个设计思路或控件
空字段不能转换成string
是不是不能获取 adoquery2['xm']里面的值;
open;
沒有內容時是''
是错误的,所以要让它变成
stringgrid1.cells[0,2]:=''
那是条件不符,查询不到数据
自己要学会调试,可以用showmessage();看看有没有值;改为这样试试:Parameters.ParamByName('kc').Value:=adoquery1.fieldbyname('kc').asstring;
Parameters.ParamByName('rq').Value:=formatdatetime('yyyy-mm-dd',adoquery1.fieldbyname('RQ').asDateTime);
Parameters.ParamByName('dqrq').Value:=formatdatetime('yyyy-mm-dd',now);