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