F
fuxin198311
Unregistered / Unconfirmed
GUEST, unregistred user!
我的代码可以运行 但是输入值后点查询 就出错了说列名不存在 请教那里需要改吗
combobox1 是查询条件 edit是查询的值
var
adoquery1:Tadoquery;
begin
adoquery1:=tadoquery.Create(self);
adoquery1.Connection:=form1.ADOConnection1 ;
datasource1.DataSet:=adoquery1;
if edit1.Text='' then
showmessage('请输入查询值!') ;
try
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select * from T1011 where '+combobox1.items[combobox1.itemindex]+'='''+edit1.Text+'''');
open ;
end;
except
showmessage('查询失败!');
end;
end;
combobox1 是查询条件 edit是查询的值
var
adoquery1:Tadoquery;
begin
adoquery1:=tadoquery.Create(self);
adoquery1.Connection:=form1.ADOConnection1 ;
datasource1.DataSet:=adoquery1;
if edit1.Text='' then
showmessage('请输入查询值!') ;
try
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select * from T1011 where '+combobox1.items[combobox1.itemindex]+'='''+edit1.Text+'''');
open ;
end;
except
showmessage('查询失败!');
end;
end;