查询问题？(10分)

with qd do
begin
close;
sql.clear;
sql.add('select * from "qd"');
sql.add('where substr(gh,1,1)=:gh');
params[0].value:=gh.text;
open;
end;
运行时候报错：capablitily not support,是不是delphi中不支持，但要达到此效果，应怎么办？
with qd do
begin
close;
sql.clear;
sql.add('select * from "qd"');
sql.add('where substr(gh,1,1)=:gh');
params[0].value:=gh.text;
open;
end;
运行时候报错：capablitily not support,是不是delphi中不支持，但要达到此效果，应怎么办？
with qd do
begin
close;
sql.clear;
sql.add('select * from "qd"');
sql.add('where substr(gh,1,1)=:gh');
params[0].value:=gh.text;
open;
end;
运行时候报错：capablitily not support,是不是delphi中不支持，但要达到此效果，应怎么办？

sql.clear;
sql.add('select * from qd');
sql.add(' where gh like ''%'+gh.text+'''');
open;

procedure TForm.Button1Click(Sender:TObject);
var
ssql:string;
begin
with qd do
begin
ssql:='select * from qd where gh like' + #39 + gh.text + #39;
sql.Clear;
sql.add (ssql);
open;
end;
end;

procedure TForm.Button1Click(Sender:TObject);
var
ssql:string;
begin
ssql:='select * from qd where gh like' + #39 +'%' + gh.text +'%'+ #39;
with qd do
begin
sql.Clear;
sql.add (ssql);
open;
end;
end;

sql.add('select * from qd where gh like ''' + '%'+gh.text+'%''');

params[0].value:=gh.text;
改成
params[0].asstring:=gh.text;