Query与SQL的参数传递方式

jkx01whg 2005-05-03 10:12:13
implementation
procedure TForm2.ResultSearchShow();//把最终查询结果显示到memeo中
var
sFile:string; //图片存取路径和名称
begin
...........这部分是对Query1查询结果的操作
end;

{$R *.dfm}
procedure TForm2.PriZHClick(Sender: TObject); //上一章
var
zhang,jie:string;
begin
try //设置新的查询参数值
table2.Open;
table2.First;
jie:=table2.fieldbyname('j_num').AsString ;
table2.Close;
except
showmessage('访问时Table2出错!');
end;

zhang:=inttostr(strtoint(DBEdit_zhnum.Text)-1);//修改字符串zhang的值

if strtoint(zhang)>0 then
begin
DBEdit_zhnum.Text:=zhang;
DBEdit_jnum.Text:=jie;
OK:='0';//是否继续标志,0-继续,1-暂停
//开始查询
Query1.Close;
Query1.SQL.Clear;
Query1.Params[0].AsString:=zhang ;
Query1.Params[0].AsString:=jie;
Query1.SQL.Add('select zha ng_table.zh_name,jie_table.j_name,docu_table.JiLu_num,docu_table.flag,docu_table.document');
Query1.SQL.Add('from zhang_table,jie_table,docu_table');
Query1.SQL.Add('where docu_table.zh_num=zhang_table.zh_num and docu_table.j_num=jie_table.j_num');//对涉及到的三个表进行关联
Query1.SQL.Add('and docu_table.zh_num=zhang and docu_table.j_num=jie');
Query1.SQL.Add('order by docu_table.j_num');
Query1.ExecSQL;

ResultSearchShow();//显示查询结果
DBEdit_zhangN.Text:=ZhName ;
DBEdit_jieN.Text:=JieName;
end
else showmessage('目前为第一章');
end;
...全文
346 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
smiler007 2005-05-03
  • 打赏
  • 举报
回复
Query1.Close;
Query1.SQL.Clear;
Query1.Params[0].AsString:=zhang ;
Query1.Params[0].AsString:=jie;
Query1.SQL.Add('select zha.................
------------------------
先Query1.Add
再给语句中的参数赋值

怎么有两个params[0]呢??
语句中的参数要用:来引导...
smiler007 2005-05-03
  • 打赏
  • 举报
回复
设个断点,单步调试看是哪儿出错了...
jkx01whg 2005-05-03
  • 打赏
  • 举报
回复
以上为程序中部分代码,调试时常出错提示:Abstract Erorr
诚请老菜鸟帮忙!!!!急

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧