sqlstr:='where a='''+edit1.text+''' ';
解决方案 »
- 字符串替换问题请教,在线等.谢谢先.
- 【散分】灌水成星!
- 如何直接拷贝文件到一个FTP地址?
- 求救:delphi7.0下的QReport控件组找不到了!
- 在WebSnap技术中,我创建了一个模板.html文件并在留了两个密码输入框的位置,我该如何套入我的WebSnap程序呢?
- 如何实现透明窗口、半透明窗口、Office助手那样的“精灵”?
- 问一个简单问题,很快就结账的。
- sql问题啊!
- 如何双击窗口标题条,使该窗口停靠在另一个窗口的PANEL上?
- 何去何从
- 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()比较安全 }