procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
tmp:string;
begin
str:='1200';
tmp:='1234';
adoquery1.Close;
with adoquery1.SQL do
begin
Clear;
Add('UPDATE table1 SET sj = ');
Add('iif(cint(left(right(left(sj, 7),7),4))> '+str+' and len(sj)>= 7,right(left(sj, 7),7),'''+tmp+'''+right(left(sj, 7),3))+');
Add('iif(cint(left(right(left(sj,14),7),4))> '+str+' and len(sj)>=14,right(left(sj,14),7),'''+tmp+'''+right(left(sj,14),3))+');
Add('iif(cint(left(right(left(sj,21),7),4))> '+str+' and len(sj)>=21,right(left(sj,21),7),'''+tmp+'''+right(left(sj,21),3))+');
Add('iif(cint(left(right(left(sj,28),7),4))> '+str+' and len(sj)>=28,right(left(sj,28),7),'''+tmp+'''+right(left(sj,28),3))+');
Add('iif(cint(left(right(left(sj,35),7),4))> '+str+' and len(sj)>=35,right(left(sj,35),7),'''+tmp+'''+right(left(sj,35),3))+');
Add('iif(cint(left(right(left(sj,42),7),4))> '+str+' and len(sj)>=42,right(left(sj,42),7),'''+tmp+'''+right(left(sj,42),3)) ');
end;
adoquery1.ExecSQL;
end;
列出SJ字段包含字符串abc的数据（Delphi中）
select * from table1 where sj like '%abc%'
在ACCESS中建立查询要用*号
select * from table1 where sj like '*abc*'
