用TQuery写SQL语句: sxsql:='Select * from zbtable where sxparent='+inttostr(idsx);
With Query1 Do
Begin
Close;
SQl.Clear;
SQl.add(sxsql);
ExecSQL;
Active:=true;
End;
With Query1 Do
Begin
Close;
SQl.Clear;
SQl.add(sxsql);
ExecSQL;
Active:=true;
End;
TADODataSet的commandtext属性;WideString类型;Example:
Query1:Tquery
query.close;
query1.sql.clear;
query.sql.text:='select * from tablename';
query.open;
比如:
function IsUserExist(name,pass:string):short;
var
i:short;
name,pass:string;begin
select count(yhbm)
into :i
from user
where name = :name and pass = :pass;
result ;= i;
end;
query1.sql.add('select * from Table_Name');
但可以象楼上那几位说的那样使用SQL命令.