ActualSize 和 DefinedSize 属性范例

该范例使用 ActualSizeDefinedSize 属性显示字段的定义大小和实际大小。

Public Sub ActualSizeX()

   Dim rstStores As ADODB.Recordset

   Dim strCnn As String

   ' 打开存储表的记录集。

   strCnn = "Provider=sqloledb;" & _

      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

   Set rstStores = New ADODB.Recordset

   rstStores.Open "stores", strCnn, , , adCmdTable

   ' 在显示 stor_name 字段内容、字段定义

   ' 大小和实际大小的记录集中进行循环。

   rstStores.MoveFirst

   Do Until rstStores.EOF

      MsgBox "Store name: " & rstStores!stor_name & _

      vbCr & "Defined size: " & _

      rstStores!stor_name.DefinedSize & _

      vbCr & "Actual size: " & _

      rstStores!stor_name.ActualSize & vbCr

      rstStores.MoveNext

   Loop

   rstStores.Close

End Sub