vb简单连接ACCESS??实例问题？高手解答！！

来源：百度知道 编辑：UC知道 时间：2024/05/22 17:47:46
比如有一个ACCESS数据库(名为A)，数据库里有个表(名为B)，表里记录的是某班级学生期末考试某一科的成绩（就只需要4，5个学生示意一下）！
问题1：小弟如何用VB连接数据库，算出全班该科的平均分（该结果不一定要记录在数据库中）？
问题2：算出平均分后，我再新建一个combobox和一个textbox,如何自动将高于平均分的同学的名字列入combobox中？将其分数列入textbox，(这样选择不同人名字时，textbox就显示其相应的分数)注意：combobox中学生名字的顺序是由分数低到高！

哪位老师如果有时间，谢谢您把您编的程序源码和数据库发送到我的邮箱：joe2004idea@163.com 万分感谢！！！！

在Form中创建一个Combobox,取名:Combo1,和一个TextBox,取名:Text1

在Form_Load中写以下代码:
Dim db As ADODB.Connection, rs As New ADODB.Recordset
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你数据库的路径\A.mdb;Persist Security Info=False"
db.open

'取前五位,如果你想要前十位,你可以自行修改TOP后的数字.

Sql="SELECT TOP 5 B.Name, Avg(B.Achievement) AS [AvgOfAchievement] FROM B GROUP BY B.Name ORDER BY Avg(B.Achievement) DESC;"

rs.Open sql,db, adOpenStatic, adLockReadOnly

if rs.recordcount<=0 then
rs.close
set rs=nothing
Msgbox "No Record in this Table!"
exit sub
else
rs.movefirst
do
combo1.AddItem item:=rs.field("Name").value
rs.movenext
loop until rs.EOF=true
rs.close
set rs=nothing
db.close
set rs=nothing

end i