Question

SQL语句在DELPHI里怎么用？

这句算及格率的SQL语句:“select str(100*sum(case when cj<60 then 0 else 1 end)/count(id))+'%' from student”在Delphi里怎么用?
我的代码是这样的：
procedure TFrmConn.BitBtn13Click(Sender: TObject);
begin
connDate.Connected:=true;
adoquery.Close;
adoquery.SQL.Clear;
adoquery.SQL.Add('select str(100*sum(case when cj>=60 then 0 else 1 end)/count(id))+'%' from '+edit1.text+');
showmessage(memo1.Lines.Text);
adoquery.Open;
adoquery.Active:=true;
end;
（id是学生学号，cj是成绩。我是用来计算学生成绩及格率的。）
运行后
“adoquery.SQL.Add('select str(100*sum(case when cj>=60 then 0 else 1 end)/count(id))+'%' from '+edit1.text+');”
这句不能通过，我该怎么修改？

Answer 1

怎样在delphi里嵌入sql语句

主要是查询语句，面板上有几个输入条，根据输入条里的输入条件来查询sql server，最好能给点example

with query do
begin
close;
sql.clear;
sql.add('select * from Table')
sql.add('where condition1=:param1 and condition2=:param2 ....');
ParamByName('param1').value := edit1.text;
paramByname('param2').value :=edit2.text;
open;
end;
注意类型转换

将输入条内的字符串赋值给Adoquery的sql，然后将adoquery激活就可以进行查询了呀