求 文本框赋值的SQL语句写法
procedure TForm1.Button1Click(Sender: TObject);
var edtext:string;
begin
edtext:=edit1.text;
ADODataSet1.Close;
ADODataSet1.CommandText := 'SELECT * FROM zql where 申请人姓名 =' +edtext+ '';
ADODataSet1.Open;
end;

'SELECT * FROM zql where 申请人姓名 =' +edtext+ '';

就是输入姓名,点击按钮查询,如果具有模糊查询功能SELECT语句如何改?




[解决办法]

Delphi(Pascal) code

ADODataSet1.CommandText := 'SELECT * FROM zql where 申请人姓名 =' +QuotedStr(edtext.Text);