Type 屬性範例 (Field) (VB)
這個範例示範 Type 屬性,方法是顯示常數的名稱,該常數對應至 Employees 資料表中所有 Field 物件的 Type 屬性值。 需要 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 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應