Private Sub Command6_Click()
Dim Con As New adodb.Connection
Dim rs As New adodb.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\0913mdb\db2.mdb"
rs.Open "select sum(02)from 表2", Con, 1, 1
Text13.Text = rs(0)
rs.Close
Set rs = Nothing
Con.Close
Set Con = Nothing
End Sub
改成这样,可以求和..可是结果并不正确...
http://zhidao.baidu.com/question/1897509359567821180.html#
TKS..........................
Dim Con As New adodb.Connection
Dim rs As New adodb.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\0913mdb\db2.mdb"
rs.Open "select sum(02)from 表2", Con, 1, 1
Text13.Text = rs(0)
rs.Close
Set rs = Nothing
Con.Close
Set Con = Nothing
End Sub
改成这样,可以求和..可是结果并不正确...
http://zhidao.baidu.com/question/1897509359567821180.html#
TKS..........................