定義 Recordset

定義 Recordset

用戶可以創(chuàng)建 ADODB.Recordset 對象并指定列信息，然后可以將數(shù)據(jù)插入到 Recordset 對象中?；?a href="htm_mddefrowset.htm" class="topiclink">行集合 將插入的數(shù)據(jù)緩存。

下面的代碼范例顯示如何使用 RDSServer.DataFactory 對象定義 Recordset。也可以用 RDS.DataControl 對象進(jìn)行同樣的定義。

Sub RsDefineShape()

   Dim vntRecordShape(3)

   Dim vntField1Shape(3)

   Dim vntField2Shape(3)

   Dim vntField3Shape(3)

   Dim vntField4Shape(3)

   '  給每個字段指定名稱、類型、大小和空屬性。

   vntField1Shape(0) = "Name"   ' Column name.

   vntField1Shape(1) = CInt(129)   ' Column type.

   vntField1Shape(2) = CInt(40)   ' Column size.

   vntField1Shape(3) = False      ' Nullable?

   vntField2Shape(0) = "Age"

   vntField2Shape (1) = CInt(3)

   vntField2Shape (2) = CInt(-1)

   vntField2Shape (3) = True

   vntField3Shape (0) = "DateOfBirth"

   vntField3Shape (1) = CInt(7)

   vntField3Shape (2) = CInt(-1)

   vntField3Shape (3) = True

   vntField4Shape (0) = "Balance"

   vntField4Shape (1) = CInt(6)

   vntField4Shape (2) = CInt(-1)

   vntField4Shape (3) = True

   ' 將所有字段放入一個數(shù)組中。

   vntRecordShape(0) = vntField1Shape

   vntRecordShape(1) = vntField2Shape

   vntRecordShape(2) = vntField3Shape

   vntRecordShape(3) = vntField4Shape

   ' 使用 RDSServer.DataFactory 創(chuàng)建空記錄集，

   ' 該記錄集是一個變體型數(shù)組，其中

   ' 每個元素本身又是另一個變體型數(shù)組

   ' 一個變體型數(shù)組是記錄集中的一列。

   ' 內(nèi)部數(shù)組的元素是列的名稱、類型、大小和空屬性。

   Dim NewRs

   ' 可以使用 RDS.DataControl 對象

   ' 代替 RDSServer.DataFactory 對象。

   ' 在這種情況下，如下代碼將被設(shè)置為 Set NewRS。

   ' = ADC1.CreateRecordset(vntRecordShape)

   Set NewRS = ADF.CreateRecordset(vntRecordShape)

   Dim fields(3)

   fields(0) = vntField1Shape(0)

   fields(1) = vntField2Shape (0)

   fields(2) = vntField3Shape (0)

   fields(3) = vntField4Shape (0)

   ' 給新記錄集填充新數(shù)據(jù)值。

   Dim fieldVals(3)

   ' 使用 AddNew 添加記錄。

   fieldVals(0) = "Joe"

   fieldVals(1) = 5

   fieldVals(2) = CDate(#1/5/96#)

   fieldVals(3) = 123.456

   NewRS.AddNew fields, fieldVals

   fieldVals(0) = "Mary"

   fieldVals(1) = 6

   fieldVals(2) = CDate(#6/5/96#)

   fieldVals(3) = 31

   NewRS.AddNew fields, fieldVals

   fieldVals(0) = "Alex"

   fieldVals(1) = 13

   fieldVals(2) = CDate(#1/6/96#)

   fieldVals(3) = 34.0001

   NewRS.AddNew fields, fieldVals

   fieldVals(0) = "Susan"

   fieldVals(1) = 13

   fieldVals(2) = CDate(#8/6/96#)

   fieldVals(3) = 0.0

   NewRS.AddNew fields, fieldVals

   NewRS.MoveFirst

   ' 將新創(chuàng)建和填充的記錄集設(shè)置為

   ' RDS.DataControl 的 SourceRecordset 屬性

   ' 來綁定可視控件。

   Set ADC1.SourceRecordset = NewRS

End Sub