begin
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from sysdata where 提运单号 like ''%''+ :a + ''%''' );
parameters.ParamByName('a').Value :=trim(edit1.text);open;
end;
end;procedure TForm1.Button4Click(Sender: TObject);begin
with datamodule1.ADOQuery1 do
beginsql.Add('select * from sysdata where 提运单号 like ''%''+ :a + ''%''' );
sql.Add('update sysdata set 排序=排序 + 1 where 提运单号 like ''%''+ :a + ''%''');open;
end;
end;
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from sysdata where 提运单号 like ''%''+ :a + ''%''' );
parameters.ParamByName('a').Value :=trim(edit1.text);open;
end;
end;procedure TForm1.Button4Click(Sender: TObject);begin
with datamodule1.ADOQuery1 do
beginsql.Add('select * from sysdata where 提运单号 like ''%''+ :a + ''%''' );
sql.Add('update sysdata set 排序=排序 + 1 where 提运单号 like ''%''+ :a + ''%''');open;
end;
end;
解决方案 »
- 求助:传参时类型不匹配,万分感谢!!
- 读取bmp头信息出错、、??
- 寻车牌号图像识别的源代码...
- 我动态给SQL语句参数赋值出现找不到第二个参数B
- 请问谁知道好的delphi下的旋钮控件?
- WINDOWS2000ADVANCE SERVER 驱动DDS4磁带的方法??
- 今天收到Borland发来的信件,Delphi 7 Studio新鲜出炉!
- delphi中怎么判断一个字符串是不是数字?
- 高手才能解决的问题!!!怎样使自定义部件中的各个控件在设计期能移动、调整位置!!!
- 我欲查询数据库,然后选择查询到的数据进行修改,不过Tquery的CanModify的属性~~~
- report machine
- 如何做到游戏双开??修改进程名可以吗?
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('update sysdata set 排序=排序 + 1 where 提运单号 like ''%''+ :a + ''%''');
parameters.ParamByName('a').Value :=trim(edit1.text);
ExecSql;
end;
end;