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.CloseEnd Sub
www.51windows.Net