Question

vb6.0和assess数据库求总数和平均数

vb6.0和assess数据库求总数和平均数建立一个text1 文本框，和一个command1当点击command1时，文本框中出现数据库的学生总数（数据库表名为 学生信息。有班级学号姓名年龄的条件，数据库与vb已连接）同理在text2中显示平均年龄。求大神指点。要具体的程序代码

Answer 1

你是使用ADO对象还是控件呢？

请把你的连接数据库，返回数据表记录的代码发上来？

追问

直接用adodc控件连接的数据库

追答

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * From 学生信息"
Adodc1.Refresh
Text1.text = Adodc1.RecordSet.RecordCount

Adodc1.RecordSource = "Select Avg(年龄) As 平均年龄 From 学生信息"
Adodc1.Refresh
Text2.text = Adodc1.RecordSet.Fields("平均年龄")

追问

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"

这一部分是干嘛的

我知道了，谢谢