我在使用Query组件时想通过edit1的text值作为查询条件,我用一个Bottun来实现。代码如下:procedure TMainForm.Button1Click(Sender: TObject);
begin
Query1.SQL.Clear;
Query1.SQL.Add('select * from '''+'.\date\users'');
Query1.SQL.Add('where Name='''+(Sender as edit1).text+'''');
Query1.Active :=true;
edit2.Text :=Query1.fieldbyname('Password').AsString;
end;可是运行时从begin开始第二、三行就报错。
不知问题出在那?望高手指点。谢谢
begin
Query1.SQL.Clear;
Query1.SQL.Add('select * from '''+'.\date\users'');
Query1.SQL.Add('where Name='''+(Sender as edit1).text+'''');
Query1.Active :=true;
edit2.Text :=Query1.fieldbyname('Password').AsString;
end;可是运行时从begin开始第二、三行就报错。
不知问题出在那?望高手指点。谢谢
解决方案 »
- 为什么我的D7安装“DelForEX For Delphi 2006”后启动D7时提示"%s"格式化错误,而且要格式化时出现内存访问错误??
- 有TDateTimePicker,如何做一个TDBDateTimePicker啊?就像TEdit和TDBEdit一样
- 求助BDE的问题,急!急!急!
- 怎样定义ActionManager中的action行为?
- 各位前辈,delphi能否安装在linux?谢谢!
- DBGrid的问题
- delphi记录删除
- 完成端口工作线程中,如何将接收内容放到窗体Memo控件中?现在只能showmessage显示?
- 易用不如vb,强大不如vc。不伦不类delphi真他妈的鸟!!!!!!!!!!!
- 诚请好心人关注:用RadioGroup ,Edit 实现对数据库的过滤查询,编译如下代码可通过,但运行时?????
- MRP II程序设计意见征评(全部分数)
- 请问我的FORM被FREE后 如何调用。谢谢指导,请教
Query1.SQL.Clear;
Query1.SQL.Add('select * from 表名');
Query1.SQL.Add('where Name='''edit1.text+'''');
query1.open
这样写:(注意引号中的空格和引号)procedure TMainForm.Button1Click(Sender: TObject);
begin
Query1.Close;//Query1.Active :=False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from '''+'.\date\users''');
//Query1.SQL.Add('select * from ''.\date\users''');
Query1.SQL.Add(' where Name='''+edit1.text+'''');
Query1.Active :=True;
edit2.Text :=Query1.FieldByName('Password').AsString;
end;
Query1.SQL.Clear;
Query1.SQL.Add(Format('select * from %s',['.\date\users']));
Query1.SQL.Add(Format('where Name=''%s''',[(Sender as edit1).text]));
Query1.Active :=true;
edit2.Text :=Query1.fieldbyname('Password').AsString;
Query1.SQL.Clear;
Query1.SQL.Add('select * from table');
query1.open
Query1.SQL.Add(' where Name='''+edit1.text+'''');
1、路径和表名要正确
2、注意连接之间的空格
你的方法通不过,说
Operator not applicable to this operand typewengj()
的通过了