看你的字段类型了
begin
close;
sql.clear;
sql.add('select * from Custorms where name=''tom''');
open;
end;
begin
close;
sql.clear;
sql.add('select * from Custorms where name=''tom''');
open;
end;
解决方案 »
- delphi 生成xml 换行符问题
- 怎样使用“+”做快捷键,我使用了ActionList控件
- 如何通过PostMessage 启动一个带参数的子程序,请帮忙举个例子
- 在procedure TForm2.Button1Click(Sender: TObject);为什么是TForm2,而不是Form2
- 紧急求救!!!@@@@@@!!!!!!
- 如何在视图查询的基础上再进行操作?
- 为什么?我的困惑!!!!
- 简单问题,如果提高从文本导入数据到oracle数据库的速度?(在线等待)
- 请教SQL的问题!
- 如何判断系统是否已经安装IIS?给70分!
- 我想设计一个定时器,比如定时15.20.35.45.80.190.分钟后关机,不知如何计算?请指教,我是个初学者,先谢过了。
- 我手上有一张delphi6的安装盘,如何提取某些控件到delphi5中?高手指点!
2)建议不要使用parameter
var
sqlstring:string;
begin
sqlstring:='select * from Custroms where ';
if Checkbox1.checked then
begin
sqlstring:=sqlstring+' name='''+'tom'+'''';
end
else if Checkbox2.checked then
begin
sqlstring:=sqlstring+' sex='''+'Male'''';
end
else
begin
sqlstring:=sqlstring+' hometown ='''+'Chongqing'+'''';
end;
with AdoQuery1 do
begin
close;
sql.clear;
sql.add(sqlstring);
open;
end;
2、句
var
sqlstring:string;
begin
sqlstring:='select * from Custroms where ';
if Checkbox1.checked then
begin
sqlstring:=sqlstring+' name=:tiaojian0 ';
AdoQuery1.Parameters.ParamValues['tiaojian0'].AsString:='tom';
end
else if Checkbox2.checked then
begin
sqlstring:=sqlstring+' sex=:tiaojian1 ';
AdoQuery1.Parameters.ParamValues['tiaojian1'].AsString:='Male';
end
else
begin
sqlstring:=sqlstring+' hometown =:tiaojian2 ';
AdoQuery1.Parameters.ParamValues['tiaojian2'].AsString:='Chongqing';
end;
with AdoQuery1 do
begin
close;
sql.clear;
sql.add(sqlstring);
open;
end;
end;
: