CreateRecordset Method Example

This code example creates an ADODB.Recordset on the server side. It has two columns with four rows each.

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

	c0(0) = "Name"			' Column name. 
	c0(1) = CInt(129)		' Column type (129 = adChar).
	c0(2) = CInt(40)		' Column size.
	c0(3) = False			' Is the column nullable?

	c1(0) = "Age"			' Column name. 
	c1(1) = CInt(3)		' Column type (3 = adInteger).
	c1(2) = CInt(-1)		' Column size.
	c1(3) = True			' Is the column nullable?

	' Add the columns to the recordset definition.
	ColInfo(0) = c0
	ColInfo(1) = c1

	ADC1.SourceRecordset = ADF1.CreateRecordset(ColInfo)
End Sub