ActualSize 和 DefinedSize 屬性范例

ActualSize 和 DefinedSize 屬性范例

該范例使用 ActualSize 和 DefinedSize 屬性顯示字段的定義大小和實際大小。

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 字段內(nèi)容、字段定義

   ' 大小和實際大小的記錄集中進(jìn)行循環(huán)。

   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