CreateRecordset 方法范例 (VBScript)

该代码范例创建服务器端的 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