字符串中有'号时要用两个''表示:
str:=str+'and xm='''+edit2.text+'''';
str:=str+'and xm='''+edit2.text+'''';
解决方案 »
- 大家进来讨论一下:模拟Windows2K中域的管理.
- 帮帮忙,谢谢!(在线等待)
- 关于delphiADO连接sqlserver数据库联接服务器问题
- 如何控制打印的走纸?
- 如何在TTreeView中添家TTreeNode?
- 那位高手知道如何下载asp文件到本地硬盘?
- Delphi6.0中怎样使用OpenDialog?(一定给分)
- 如何检测ClientSocket和ServerSocket断开连接?
- 谁帮我,很简单
- 100分的问题(关于多线程数据库应用程序)
- 在下正在学PHP4.0,可是 Apache+php4.0在我的机子上配置不起来,能否指教一下具体的 配置方法吗?甚望!多谢了!
- 这个问题请指教。。。11111
应变为
str:=str+'and xm='''+edit2.text+'''
str:=str+'and xm='''+edit2.text+''''
var str:string;
begin
str:='select * form yhgz where id>0';
if edit1.Text<>'' then
begin
str:=str+'and yhmc='''+edit1.text+'''';
end;
if edit2.Text<>'' then
begin
str:=str+'and xm='''+edit2.text+'''';
end;
(datetimepicker2.DateTime)<>0 then str:=str+'and yhrq=between '''+datetostr(datetimepicker1.date)+''' and '''+datetostr(datetimepicker2.date) '''';adoquery1.SQL.Add(str);
end;
str:=str+'and xm="'+edit2.text+'"'
str:=str+'and yhmc='+''''+edit1.text+'''';str:=str+'and xm='+''''+edit2.text+'''';datetimepicker1.datedatetimepicker2.date
str:=str+'and xm=''+edit2.text+''';
str:=str+'and yhmc=''+edit1.text+''';
str:=str+'and yhmc='''+edit1.text+'''';
str:=str+'and xm='''+edit1.text+'''';
procedure Tyhdcx_Form.BitBtn1Click(Sender: TObject);
var str:string;
begin
str:='select * form yhgz where id>0';
if edit1.Text<>'' then
begin
str:=str+'and yhmc='''+edit1.text+'''';
end;
if edit2.Text<>'' then
begin
str:=str+'and xm='''+edit2.text+'''';
end;
(datetimepicker2.DateTime)<>0 then str:=str+'and yhrq between datetostr(datetimepicker1) and datetostr(datetimepicker2) ';adoquery1.SQL.Add(str);
end;