ACCESS使用VBA实现列值累加并取得累加阀值的记录

题目很拗口，主要是想要表达的东西比较曲折，还是以实例来说明比较直观，假设在Access中有以下的表table1。table1是一张成绩表，我想要的结果是：所有人的成绩按着总分（Score）从大到小排列，然后在排列好的表中从上到下累加English/Score列（第1行+第2行+……+第N行的值），当累加值>0.7时，取出第1行到第N行的记录。

ACCESS使用VBA实现列值累加并取得累加阀值的记录

题目很拗口，主要是想要表达的东西比较曲折，还是以实例来说明比较直观，假设在Access中有以下的表table1。table1是一张成绩表，我想要的结果是：所有人的成绩按着总分（Score）从大到小排列，然后在排列好的表中从上到下累加English/Score列（第1行+第2行+……+第N行的值），当累加值>0.7时，取出第1行到第N行的记录。

VB使用ADO操作Access数据库简单实例

这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access

环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）

数据库：Access数据库，数据库是xs.mbd，内建表为xj

结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。

代码：

Private Sub Form_Click()
Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO连接对象和记录集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '数据库连接
db.Open '打开数据库

strSQL = "select * from xj" 'SQL字符串
RS.Open strSQL, db, 3, 1 '查询数据表
Do While Not RS.EOF '循环输出查询到的结果
Print RS!姓名; RS!性别; RS!班级; RS!出生年月 '在窗口中打印输出结果
RS.MoveNext '记录下移
Loop
RS.Close '关闭记录集
Set RS = Nothing
End Sub

源代码下载地址：vb_ado_access.zip

VB使用ADO操作Access数据库简单实例

这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access

环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）

数据库：Access数据库，数据库是xs.mbd，内建表为xj

结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。

代码：

Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO连接对象和记录集Dim strSQL As String 'SQL字符串db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '数据库连接db.Open '打开数据库strSQL = "select * from xj" 'SQL字符串RS.Open strSQL, db, 3, 1 '查询数据表Do While Not RS.EOF '循环输出查询到的结果Print RS!姓名; RS!性别; RS!班级; RS!出生年月 '在窗口中打印输出结果RS.MoveNext '记录下移LoopRS.Close '关闭记录集Set RS = NothingEnd Sub

源代码下载地址：vb_ado_access.zip