S
studing
Unregistered / Unconfirmed
GUEST, unregistred user!
运行查询语句时，提示1：inalid field name.asql 点确定后提示：project proyect2.exe raised
exception class edbengine error with message 'invalid field name asql',process stopped
use setp or run to continue;
程序如下（请高手指点错误)
procedue tfrm_search.button1click(sender,tobject);
var
asql:string;
begin
if combobox1.text<>'' then asql:='and (编号:="'+combobox1.text+'")';
if combobox2.text<>'' then asql:=asql+'and(姓名:="'+combobox2.text+'")'
with frn_wirder do
begin
query1.close;
query1.sql.text:='select * from 人员信息.db where asql'(不知道where语句用的对不对）;
datasource1.dataset:=query1;
query1.open;
end;
close;
end;
end.
exception class edbengine error with message 'invalid field name asql',process stopped
use setp or run to continue;
程序如下（请高手指点错误)
procedue tfrm_search.button1click(sender,tobject);
var
asql:string;
begin
if combobox1.text<>'' then asql:='and (编号:="'+combobox1.text+'")';
if combobox2.text<>'' then asql:=asql+'and(姓名:="'+combobox2.text+'")'
with frn_wirder do
begin
query1.close;
query1.sql.text:='select * from 人员信息.db where asql'(不知道where语句用的对不对）;
datasource1.dataset:=query1;
query1.open;
end;
close;
end;
end.