sqlstr:='where a='''+edit1.text+''' ';
解决方案 »
- 请教一控件问题,在线等候!万分感激
- 键盘hook的问题,请大虾帮忙!
- FastReport可以做多维图表么?
- 关于Madis开发的一些问题,高手请进!
- 升4个三角,庆祝散200分。吃饭回来结贴。
- 如何将封装在DLL中的MDI子窗口的主菜单与MDI父窗口融合?
- 怎么回事啊。。各位师兄帮帮我
- 高分送上
- 项目开发需求:通过西门子串口手机收发短信的程序
- 如何将16位图像转换为256色图像,基本不改变图像效果
- delph6 的Tdate和Tdatetime类型
- 刚从BCB改学delphi,安装delphi ver6.163后,启动出错:“不能装载组件inet60.bpl、dclwbm60.bpl、dclwebsnap60.bpl、dclsoap60.bpl“
query1.close;
query1.sql.clear;
query1.sql.add('select * from aaa where a=:a');
query1.parambyname('a').asstring:=edit1.text;
query1.open;
1、sqlstr:='where a='''+edit1.text + ''''; 中Edit1.Text最好使用Trim()函数将两边的空格去掉,否则可能会引起麻烦
2、Delphi中两个单引号在字符串中表示一个引号
楼上说的加引号的方法也行,不过稍微有些麻烦。
如Edit1.text 值为 John's
sqlstr:='where a=''' + edit1.text + '''';
{ 当edit1.text有单引号时就会出错! }
{ 所以用QuotedStr()比较安全 }