Exemplo da propriedade Version (VB)
Este exemplo usa a propriedade Version de um objeto Connection para exibir a versão atual do ADO. Ele também usa várias propriedades dinâmicas para mostrar:
o nome e a versão atuais do DBMS.
Versão do OLE DB.
o nome e a versão do provedor.
a versão do ODBC.
Nome e versão do driver do ODBC.
'BeginVersionVB
Public Sub Main()
On Error GoTo ErrorHandler
Dim Cnxn As ADODB.Connection
Dim strCnxn As String
Dim strVersionInfo As String
' Open connection
Set Cnxn = New ADODB.Connection
strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
Cnxn.Open strCnxn
strVersionInfo = "ADO Version: " & Cnxn.Version & vbCr
strVersionInfo = strVersionInfo & "DBMS Name: " & Cnxn.Properties("DBMS Name") & vbCr
strVersionInfo = strVersionInfo & "DBMS Version: " & Cnxn.Properties("DBMS Version") & vbCr
strVersionInfo = strVersionInfo & "OLE DB Version: " & Cnxn.Properties("OLE DB Version") & vbCr
strVersionInfo = strVersionInfo & "Provider Name: " & Cnxn.Properties("Provider Name") & vbCr
strVersionInfo = strVersionInfo & "Provider Version: " & Cnxn.Properties("Provider Version") & vbCr
MsgBox strVersionInfo
' clean up
Cnxn.Close
Set Cnxn = Nothing
Exit Sub
ErrorHandler:
' clean up
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndVersionVB