您好,请问vb6.0如何调用access数据库中数据,进行运算并把运算结果显示在vb中。麻烦您了!
表是这样的,自动编号0,1,2……根据尺寸范围选某一个行,字段是两个尺寸范围mm1、mm2,、it1、it2、it3……根据it等级选其中某字段,结合it等级和尺寸范围选...
表是这样的,自动编号0,1,2……根据尺寸范围选某一个行,字段是两个尺寸范围mm1、mm2,、it1、it2、it3……根据it等级选其中某字段,结合it等级和尺寸范围选其中一个数值,希望大家帮帮忙,谢谢大家了!!
怎么编语句调用某一行某一列!!!急!!急!! 展开
怎么编语句调用某一行某一列!!!急!!急!! 展开
2个回答
展开全部
'先引用 : 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 ,犯了个小错误,不好意思啊
追问
不要复制粘贴
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询