adoquery2.Close; adoquery2.SQL.clear; adoquery2.SQL.Text:='select bmdm from bm where bmmc="'+cb.Text+'"'; adoquery2.Open; str:=adoquery2.FieldByName('bmdm').AsString;
将adoquery2.SQL.Text:='select bmdm from bm where bmmc="'+cb.Text+'"'; 改为: adoquery2.SQL.Text:='select bmdm from bm where bmmc='+''''+cb.Text+'''';
adoquery2.SQL.clear;
adoquery2.SQL.Text:='select bmdm from bm where bmmc="'+cb.Text+'"';
adoquery2.Open;
str:=adoquery2.FieldByName('bmdm').AsString;
改为:
adoquery2.SQL.Text:='select bmdm from bm where bmmc='+''''+cb.Text+'''';