请各位大侠帮帮忙:
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.Add('select a.B,a.F,b.L,a.T,b.M from RS a,RC b');
sql.add('where a.F=b.F and a.S=cmd');
parambyname('cmd').asinteger:=strtoint(edit1.text);
open;
end;
end;
为什么执行是系统总体是我没有给CMD赋值
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.Add('select a.B,a.F,b.L,a.T,b.M from RS a,RC b');
sql.add('where a.F=b.F and a.S=cmd');
parambyname('cmd').asinteger:=strtoint(edit1.text);
open;
end;
end;
为什么执行是系统总体是我没有给CMD赋值
解决方案 »
- delphi2010正版到哪家公司买! 报价多少。
- eof()结束不了一个文件,请大家帮忙?
- case和with两个有什么区别最好能写两个通俗易懂的例子谢谢。
- 请教一个关于模板匹配的问题,在线等
- 我写了一个ocx,程序里面引用了另一个ocx,发布的时候能不能只注册一个ocx?
- midas回调问题!急.....急!
- windows service 编程如何调试!!!!!!
- 关于文件的操作-----很急,请进来看看
- 咨询一个数据分页操作显示的问题
- 给一个出错的理由(TTS)
- IdCoderMD5控件的用法?
- 这个AdoQuery的参数如何写Sql.text:='Insert into 固定资产表 VALUES(:固定资产编号,:固定资产名称)
sql.add('where a.F=b.F and a.S=:cmd');
参数要用“:”来表示。
不过还一个小错误
就是:
sql.Add('select a.B,a.F,b.L,a.T,b.M from RS a,RC b');
sql.add('where a.F=b.F and a.S=cmd');
少一个空格。应该为
sql.Add('select a.B,a.F,b.L,a.T,b.M from RS a,RC b');
sql.add(' where a.F=b.F and a.S=cmd');//加了一个空格