UC知道delphi运行错误——like 附近有语法错误？？procedure TForm1.BitBtn6Click(Sender: TObject);
来源：百度知道 编辑：UC知道 时间：2024/05/19 14:09:12
接触编程不久，菜鸟一个，照猫画虎！！！诚请高手指点，小女子不胜感激！拜谢！
procedure TForm1.BitBtn6Click(Sender: TObject);
var
sqltest,swtest:string;
begin
swtest:='WHERE fault_message like '+'''%'+comboBox2.text+'%''';
sqltest:='sql'+swtest;
if adoquery1.active then adoquery1.close;
begin
adoquery1.sql.Clear;
ADOquery1.sql.add(sqltest);
adoquery1.Active:=true;
listbox1.Items.Clear;
listbox2.items.clear;
with ADOquery1 do
begin
first;
while not Eof do
begin
listbox1.Items.Add(FieldByName('possible_cause').AsString);
listbox2.items.add(fieldbyName('method').asstring);
Next;
end;
end;
end;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
var
sqltest,swtest:string;
begin
swtest:='WHERE fault_message like '+'''%'+comboBox2.text+'%''';
sqltest:='sql'+swtest;
if adoquery1.active then adoquery1.close;
begin
adoquery1.sql.Clear;
ADOquery1.sql.add(sqltest);
adoquery1.Active:=true;
listbox1.Items.Clear;
listbox2.items.clear;
with ADOquery1 do
begin
first;
while not Eof do
begin
listbox1.Items.Add(FieldByName('possible_cause').AsString);
listbox2.items.add(fieldbyName('method').asstring);
Next;
end;
end;
end;
end;
adoname.Close;
adoname.SQL.Clear;
adoname.Parameters.Clear;
adoname.SQL.Add('select * from '+ tablename +' where '+ ziduan1 + ' like''%'+ trim(likename) + '%'' ');
if trim(ziduan2)<>'' then adoname.SQL.Add('or '+ ziduan2+' like ''%'+ trim(likename) +'%'' ');
if trim(ziduan3)<>'' then adoname.SQL.Add('or '+ ziduan3+' like ''%'+ trim(likename) +'%'' ');
if trim(ziduan4)<>'' then adoname.SQL.Add('or '+ ziduan4+' like ''%'+ trim(likename) +'%'' ');
if trim(ziduan5)<>'' then adoname.SQL.Add('or '+ ziduan5+' like ''%'+ trim(likename) +'%'' ');
if trim(ziduan6)<>'' then adoname.SQL.Add('or '+ ziduan6+' like ''%'+ trim(likename) +'%'' ');<