VB编程-从access数据库里调用数据进行运算。

来源：百度知道 编辑：UC知道 时间：2024/05/26 19:54:13
access数据库中两个字段分别为“面积”和“价格”，如何用vb调用数据据中的“面积”和“价格”，并进行"面积"乘以“价格”的运算，最后将各组运算结果相加（面积1*价格1+面积2*价格2，······面积n*价格n）。请高手赐教，谢谢！
运行出现错误，“wend”没有“while”

'先引用 : Microsoft Activex Data Objects 2.1 Library
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将路径换成你的数据库位置
Sql = "Select * From [MyTable]" 'Mytable为数据表名
Rs.Open Sql, Conn, 1, 3
Do While Not Rs.EOF
S = S + Rs("面积") * Rs("价格")
Rs.MoveNext
Loop
Print S
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

呵呵，如果用wend的话，前面就不要Do,直接用while Not Rs.Eof ,犯了个小错误，不好意思啊