CreateRecordset 方法范例 (VBScript)

CreateRecordset 方法范例 (VBScript)

該代碼范例創(chuàng)建服務(wù)器端的 ADODB.Recordset，它有兩列，每列四行。

Sub CreateARecordSet

   Dim ColInfo(1), c0(3), c1(3)

   c0(0) = "Name"         ' 列名稱。

   c0(1) = CInt(129)      ' 列類型 (129 = adChar)。

   c0(2) = CInt(40)      ' 列大小。

   c0(3) = False         ' 列可否為空？

   c1(0) = "Age"         ' 列名稱。

   c1(1) = CInt(3)      ' 列類型 (3 = adInteger)。

   c1(2) = CInt(-1)      ' 列大小。

   c1(3) = True         ' 列可否為空？

   ' 將列添加到記錄集定義。

   ColInfo(0) = c0

   ColInfo(1) = c1

   ADC1.SourceRecordset = ADF1.CreateRecordset(ColInfo)

End Sub