vb sql运算问题？？
我想计算“字段1”中的数据。
就是在“字段1”中上一条记录减下一条记录，一直到最后一条记录，
得出的结果输出到“字段2”中。
字段1 字段2
9
7
8
5
2
2
…
…
…
n
请各位高手写出代码来！谢谢！
呃！为什么没有人回的，是看不明白，还是太难了？？
下面if函数的那句有编译错误，应该怎样修改？？
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\成绩\分数.mdb;"
sql = "select * from 分数表"
Set rs = New ADODB.Recordset
Dim i as Integer
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
while not rs!eof
if i <> 0 then
i=rs.字段1-i
rs.字段2=i
end if
i=rs.字段1
wend
rs.update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
{{
相关问答：
我一个项目，有个插入操作，具体是这样的：
我有进货信息表。在出货时选择相应的进货信息，输入数量，选择部门后，点保存按钮，由于网络延时，点一下没有反映，于是用户就又点一下，导致一次插入了两条记录:
例：
......
从数据库中查询一张表的数据
select 部门,姓名 from tb
如何才能生成下面的xml格式
XML code:
<folder state="unchecked" label="全部">
<folder state="unchecked&qu ......
sql的软件在哪里可以下啊！在网上找了蛮多都用不了啊
随便搞一D版吧，
迅雷第一个就可以用
2000,2005都这样
http://119.147.41.16/down?cid=0698C2D64D7D637D90A6D2482298E6717D4F15CD&t=2&fmt=-1 ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
