请教各位!请大家多多帮忙,我只是一位Delphi的初学者!
我想在以用户的输入作为查询条件,但编写的代码有问题无法实现,请各位帮忙指出下面代码的错误!
procedure TForm1.Button1Click(Sender: TObject);
begin
With Query1 Do
begin
close;
With SQL Do
begin
clear;
Add('SELECT * FROM Animals');
Add('WHERE Name="Edit1.Text"');
end;
Open;
end;
end;
这段代码可以运行,但不是我要的结果我知道问题是出在 Name="Edit1.Text"这条语句上但不知道应该这么写!
请教各位!请大家多多帮忙,我只是一位Delphi的初学者!
我想在以用户的输入作为查询条件,但编写的代码有问题无法实现,请各位帮忙指出下面代码的错误!
procedure TForm1.Button1Click(Sender: TObject);
begin
With Query1 Do
begin
close;
With SQL Do
begin
clear;
Add('SELECT * FROM Animals');
Add('WHERE Name="Edit1.Text"');
end;
Open;
end;
end;
这段代码可以运行,但不是我要的结果我知道问题是出在 Name="Edit1.Text"这条语句上但不知道应该这么写!
请教各位!请大家多多帮忙,我只是一位Delphi的初学者!
解决方案 »
- interbase 数据库创建触发器和存储过程
- delphi里面在console application中如何存取sql server数据库?
- 什么是线程注入?
- delphi最拿手的是什么语言(垃圾请不要答)
- 请问CRC48检验怎么实现?
- 大家快来看看是不是真的呀???
- 如果大家还喜欢Delphi,还支持我的话!请进来瞧一瞧,看一看!不收钱
- 100分,请问在dbgrid构件里面怎样达到这功能,用户输入货物id,在dbgrid另外一个格子里
- 一个关于DELPHI消息的小问题
- interbase问题:我的interbase数据库为什么只能有一个client进行查询?
- 高分寻《Delphi5开发人员指南》的随书光盘的代码。
- 在DBGridEh中如何使显示的数据始终保留两位小数
Add('WHERE Name='+''''+Edit1.Text+'''');
Add(' WHERE Name='''+Edit1.Text);
With Query1 Do
begin
close;
With SQL Do
begin
clear;
Add('Select * From Animals Where Name =: Name');
ParamByName('Name').AsString := Edit1.text;
end;
Prepare;
Open;
end;如果这样的话,下次你使用相同的语句时,只要修改相应的参数就可以了。不用每次重复清空,添加语句的操作。
Add(' WHERE Name='''+Edit1.Text+'''');
Add('WHERE Name="Edit1.Text"');
改成:text:='select * from animals where name='''+trim(edit1.text)+'''';