一个SQL语句问题

Question

不是很清楚你的意思耶，在表中JP字段减去400 还得0，0，100？？
select cid, jp-400, date from tblm order by date

Answer 1

这用一条sql完不成吧，因为你要逐条纪录处理。

Answer 2

dim Number as integer
dim sql as string
dim RsTemp as new adodb.recordsetcnndb为数据库连接
sql="select * from tabm order by cid"
RsTemp.open sql,cnndb,xxx,xxx
number=400
do while not rstemp.eof and Number>0
    if Number-RsTemp!jp>0 then
       Number=Number-RsTemp!jp  
       RsTemp!jp=0
    else
       RsTemp!jp=RsTemp!jp-Number
       exit do
    end if
    RsTemp.MoveNext
Loop就是你想要的结果