Question

delphi 中 select * from a where name=edit1.text and paw=edit2.text 这句语句怎么写？

Answer 1

SQL.Close;
SQL.Clear;
SQL.ADD('select * from a where name='''+Trim(Edit1.Text)+''' and paw='''+Trim(Edit2.Text)+''' ');
SQL.OPEN;

追问

还是不行 它后边他弹出 Exception class EDatabaseError with message 'ADOQuery1: Cannot perform this operation on a closed dataset'. 这个什么意思？

追答

你是不是用的控件是ADOQuery?要是这个控件的话，那你的要
with 控件名do
begin
控件名.SQL.CLEAR;
end;
例如：
with qryTemp do
begin
Close;
SQL.Clear;
SQL.Text := sOpenSQL;//sql语句
Open;
Result := qryTemp.RecordCount;//返回的是查询到的数量
Close;
SQL.Clear;
end;你试试这种方式行吗？

追问

这个试过了，基本都是sql语句的问题，delphi中的sql语句的引号问题是怎么回事？

追答

('select * from a where name='+QuotedStr(Trim(Edit1.Text))+ ' and paw='+QuotedStr(Trim(Edit2.Text))+' '）
给它加引号，不过这个和那个差别不多，，

追问

结果还是一样，弹出边的消息

追答

你确定是那个SQL.ADD(查询语句);的问题吗？

Answer 2

哥知道：
//select * from a where name=edit1.text and paw=edit2.text
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(Format('select * from a where name=%s and paw=%s ;', [SysUtils.QuotedStr(edit1.text), SysUtils.QuotedStr( edit2.text)]));
//Application.MessageBox(Pchar(ADOQuery1.SQL.Text), 'sql' ,64);
ADOQuery1.Open;

追问

请问在使用SysUtils.QuotedStr的时候，需要声明什么吗，或者定义什么

追答

不用

追问

可是后边出错，说 “在sql语句结尾后边找不到字符”

追答

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from a where name=:s0 and paw=:s1');
ADOQuery1.Parameters.Clear;
ADOQuery1.Parameters.CreateParameter('s0', ftstring, pdinput, 64, edit1.Text);
ADOQuery1.Parameters.CreateParameter('s1', ftstring, pdinput, 64, edit2.Text);
ADOQuery1.Open;

Answer 3

SQL.Clear;
SQL.Add('select * ');
SQL.Add(' from a ');
SQL.Add(' where name = '''+Edit1.Text+ ''' ');
SQL.Add(' and paw = '''+Edit2.Text+''' ');
SQL.Open;

Answer 4

select * from a where name=quotedstr(edit1.text) and paw=quotedstr(edit2.text)

追问

quotedstr 函数没有定义 是什么意思？怎么解决？