vb.net dataset 数据批量修改

如果是做Windows应用程序，可以考虑用Timer控件，去触发你的更新函数；

如果是只考虑用数据库，那么可以用数据库的 “执行计划”功能，在Oracle里叫Job，它可以设定间隔时间及何时开始。

if θ <0 then θ = θ + 180

if θ1 <0 then θ1 = θ1 + 180

if θ2 <0 then θ2 = θ2 + 180

******的代码如下：

Dim rs As ADODB.Recordset

SqlStr="select 身份z号 from 表 where 信息类型=路考 and 信息说明=合格"

set rs = cn.Execute(sql)'执行语句

if not rs.eof then '如果存在记录

for i = 0 to rs.RecordCount - 1

SqlStr="delete 表 where 身份z号 = '" &rs(i)("身份z号")

cn.Execute sql

SqlStr="delete 另外一个表 where 身份z号 = '" &rs(i)("身份z号")

cn.Execute sql

rs.MoveNext

next i

end if

set rs=nothing

---