1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
选修1算法与程序设计《5.3排序算法的程序实现》最新PPT课件优质课下载
工作单位：
思考与讨论：
用电情况数据库electricity中存放有某地区所有用户每年度用电情况的相关数据，如何通过VB程序实现对数据库记录排序？
获取数据库相关数据
数据排序
Dim conn As New ADODB.Connection '定义Connection对象实例conn
Dim rs As New ADODB.Recordset '定义Recordset对象实例rs
Dim a(1 To 100) As String '数组a用来保存每个户号
Dim b(1 To 100) As Integer '数组b用于保存每个户号对应的年度用电量
Dim n As Integer '变量n记录用户个数
Private Sub Command1_Click()
conn.ConnectionString = "Provider=microsoft.ace.oledb.12.0;" & "Data Source=" & App.Path & "﹨Electricity.accdb"
'设置conn的数据库连接字符串
conn.Open '打开数据库连接
rs.ActiveConnection = conn '设置rs的ActiveConnection属性，关联conn
rs.Open "select from electricity" '打开记录集，获取数据
n = 0
Do While Not rs.EOF
n = n + 1
a(n) = rs.Fields("户号")
b(n) = rs.Fields("年度用电量")
List1.AddItem a(n) + " " + Str(b(n))
rs.MoveNext
Loop
rs.Close