Пример свойств ActualSize и DefinedSize (VB)
В этом примере используются свойства ActualSize и DefinedSize для отображения определенного размера и фактического размера поля.
'BeginActualSizeVB
'To integrate this code
'replace the data source and initial catalog values
'in the connection string
Public Sub Main()
On Error GoTo ErrorHandler
'recordset and connection variables
Dim rstStores As ADODB.Recordset
Dim SQLStores As String
Dim strCnxn As String
'record variables
Dim strMessage As String
' Open a recordset for the Stores table
strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Northwind';Integrated Security='SSPI';"
Set rstStores = New ADODB.Recordset
SQLStores = "Suppliers"
rstStores.Open SQLStores, strCnxn, adOpenForwardOnly, adLockReadOnly, adCmdTable
'the above two lines of code are identical as the default values for
'CursorType and LockType arguments match those indicated
' Loop through the recordset displaying the contents
' of the store_name field, the field's defined size,
' and its actual size.
rstStores.MoveFirst
Do Until rstStores.EOF
strMessage = "Company name: " & rstStores!CompanyName & _
vbCrLf & "Defined size: " & _
rstStores!CompanyName.DefinedSize & _
vbCrLf & "Actual size: " & _
rstStores!CompanyName.ActualSize & vbCrLf
MsgBox strMessage, vbOKCancel, "ADO ActualSize Property (Visual Basic)"
rstStores.MoveNext
Loop
' clean up
rstStores.Close
Set rstStores = Nothing
Exit Sub
ErrorHandler:
' clean up
If Not rstStores Is Nothing Then
If rstStores.State = adStateOpen Then rstStores.Close
End If
Set rstStores = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndActualSizeVB