如何在一组数据库全部两两组合计得到最平均的值

发布网友发布时间：2022-04-13 05:09

共1个回答

热心网友时间：2022-04-13 06:39

VB6.0可用ADO Data 控件访问和操作数据库，读取数据表的数据，通过嵌套循环将数据表内容赋值给一个二维数组。ADO Data 控件，这是一种新的、OLEDB 识别的数据源控件，其功能与内部的 Data 控件和 Remote Data 控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。在运行时，可以设置控件的RecordSource 属性来实现Sql结构化查询语句满足需要的查询条件。结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统ForNext 语句，以指定次数来重复执行一组语句。可以将一个 ForNext 循环放置在另一个 ForNext
循环中，组成嵌套循环。
以下是具体代码实例：<pre t="code" l="vb">Option Explicit
Dim zh_bm(11, 1500)
Dim zsl As Integer
Dim i As Integer
Dim j As Integer
Dim sqlStr As String

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA_REF\db1.mdb;Persist Security Info=False"
sqistr = "SELECT * FROM mdlk_sj where 销售='N' order by 码单号"
Adodc1.RecordSource = sqlStr
Adodc1.Refresh
zsl = Adodc1.Recordset.RecordCount '获取查询得到的数据记录总数
Adodc1.Recordset.MoveFirst '移动记录到首条记录
For i = 0 To zsl - 1
For j = 0 To 11
zh_bm(j, i) = Adodc1.Recordset(j) '将各字段值赋值给二维数组
Next j
Adodc1.Recordset.MoveNext
Next i
End Sub