var
i:integer ;
begin for i:=200 to adodataset.RecordCount do
begin
adodataset.FieldByName(custom):=i;
adodataset.post;
adodataset.next;
end;
end;
i:integer ;
begin for i:=200 to adodataset.RecordCount do
begin
adodataset.FieldByName(custom):=i;
adodataset.post;
adodataset.next;
end;
end;
解决方案 »
- 为什么我的程序偶尔会出现这个错误 Exception EOSError,怎么查找错误源呢?请指点一下
- 字符串拆分插入数据库
- 各位,有关一个ADO的错误问题??急!!
- 关于Adoquery中的查询语句。在线等待!
- 有没有谁知道Delphi5 中的 bordbk50.dll管什么的?我的程序总报此错
- ComboBox能否显示多列数据?
- [高手请进]如何能够点击DBGrid的列标题,并且根据该列进行排序?
- socket 问题,怎么实现通过socket 不用握手协议,判断数据已经发送成功??
- 如何使得Form窗口的位置不能移动。
- TCP,UDP端口的问题
- 數據庫操作方面的問題
- LECCO SQL Expert Pro for SQL Server for delphi 注册号!!
j,i:integer ;
begin
j:=200;
for i:=1 to adodataset.RecordCount do
begin
adodataset.FieldByName(custom):=i;
adodataset.post;
j:=j+1;
adodataset.next;
end;
end;
update 表名 set 列名=新值 where customno>=200
如赋值是每一条都不一样,那就只有写程序来一条条处理了。
j,i:integer ;
begin
j:=200;
for i:=1 to adodataset.RecordCount do
begin
adodataset.FieldByName(custom):=j;///改为j
adodataset.post;
j:=j+1;
adodataset.next;
end;
end;
j,i:integer ;
begin
j:=200;
for i:=1 to adodataset.RecordCount do
begin
adodataset.edit;
adodataset.FieldByName(custom).asinteger := j;
adodataset.post;
j:=j+1;
adodataset.next;
end;
end;
i:=200
while not adotable.eof do
begin
adotable.edit;
adotable.fieldbyname('fieldname').asinteger:=i;
i:=i+1;
adotable.next;
end;
adotable.post;
i:=200
while not adotable.eof do
begin
adotable.edit;
adotable.fieldbyname('custom').asinteger:=i;
i:=i+1;
adotable.next;
end;
adotable.post;