Question

如何使用VB6.0中 ADO控件获取ACCESS数据库表中字段的最大值并把最大值赋予text1？

数据库名为“成绩”，位于C盘，表名为"学生成绩表"，字段为“数学”，求大神指教

Answer 1

Dim sql As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\成绩.mdb;"
sql = "select * from 学生成绩表 ORDER BY 数学 DESC "
Adodc1.RecordSource = sql
Adodc1.Refresh
Text1 = Adodc1.Recordset("数学")

追问

大神，，，我还想问一下取平均值并赋值给TEXT1应该怎么编？

追答

取平均值需要绑定控件如：
Set MSHFlexGrid1.DataSource = Adodc1
Text1 = MSHFlexGrid1.TextMatrix(1, 1)