Пример свойства Type (объект Field) (Visual Basic)
В этом примере демонстрируется свойство Type путем отображения имени константы, соответствующей значению свойства Type всех объектов Field в таблице Employees . Для выполнения этой процедуры требуется функция FieldType.
'BeginTypeFieldVB
Public Sub Main()
On Error GoTo ErrorHandler
'To integrate this code
'replace the data source and initial catalog values
'in the connection string
Dim Cnxn As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim fld As ADODB.Field
Dim strCnxn As String
Dim strSQLEmployee As String
Dim FieldType As String
' Open connection
Set Cnxn = New ADODB.Connection
strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
Cnxn.Open strCnxn
' Open recordset with data from Employees table
Set rstEmployees = New ADODB.Recordset
strSQLEmployee = "employee"
rstEmployees.Open strSQLEmployee, Cnxn, , , adCmdTable
'rstEmployees.Open strSQLEmployee, Cnxn, adOpenStatic, adLockReadOnly, adCmdTable
' the above two lines of code are identical
Debug.Print "Fields in Employees Table:" & vbCr
' Enumerate Fields collection of Employees table
For Each fld In rstEmployees.Fields
' translate field-type code to text
Select Case fld.Type
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End Select
' show results
Debug.Print " Name: " & fld.Name & vbCr & _
" Type: " & FieldType & vbCr
Next fld
' clean up
rstEmployees.Close
Cnxn.Close
Set rstEmployees = Nothing
Set Cnxn = Nothing
Exit Sub
ErrorHandler:
' clean up
If Not rstEmployees Is Nothing Then
If rstEmployees.State = adStateOpen Then rstEmployees.Close
End If
Set rstEmployees = Nothing
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
Set fld = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndTypeFieldVB
Attribute VB_Name = "TypeField"
См. также:
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по