工业生产数据库问题

Question

有个问题请教一下,有一条检测生产线,检测结果是看产品的形状大小和数量
生产线每秒在检测位置检测一次,我想把检测结果存入数据库,以前方法是检测一次就想后端数据库SQL server写入一次,可是觉得这样频繁的存储对存储设备不好,又有一个想法就是让结果存入一个数组,定义数组可以存100组检测结果,存满再写入数据库
可是写入的时候总是实现不了,请各位帮帮忙,看怎么实现或有更好的方法

Answer 1

Recordset 对 象 的Update 方 法 用 于 修 改 当 前 记 录， 而UpdateBatch 方 法 则 用 于 递 交 所 有 对 当 前 记 录 集 的 增、 删、 改 操 作。 把Recordset 对 象 的LockType 属 性 设 置 为adLockBatchOptimistic， 则UpdateBatch 方 法 有 效， 当 然， 不 同 的OLE DB 提 供 者 可 能 还 会 有 不 同 的 要 求， 比 如，SQL Server 提 供 者 也 要 求 游 标 类 型 为 键 集 游 标 或 静 态 游 标。UpdateBatch 方 法 可 以 一 次 把 客 户 端 所 有 的 修 改 传 送 到 数 据 库 中， 相 对 应 地， 也 可 以 调 用CancelBatch 方 法 取 消 所 有 的 修 改 操 作。 Dim brr(1) As Long
dim n as integer
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimisticPrivate Sub Timer1_Timer()
    Dim i As Integer
    rs.add
    rs.随机数1=brr(0)
    rs.随机数2=brr(1)
    n=n+1
    if n=10 then
       n=0
       rs.UpdateBatch
    end if
End Sub