Nombre: ADO State Property
Descripción:
ADO State Property values are 5
URL: http://www.mygnet.net/codigos/vbdotnet/manejo_de_base_datos/ado_state_property.2728
Código Fuente:
Dim sPath As String = "C:"
Dim sDbName As String = "DbAccess.mdb"
Dim StandardSecurity As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & sDbName & ";User Id=admin;Password=;"
Dim cn As New ADODB.Connection
cn.ConnectionString = StandardSecurity
Try
cn.Open()
MsgBox(ADOStateProperty(cn.State))
cn.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Function ADOStateProperty(ByVal iState As Integer) As String
REM ADO State Property
REM http://www.w3schools.com/ado/prop_conn_state.asp
If iState = 0 Then
Return "Closed"
ElseIf iState = 1 Then
Return "Open"
ElseIf iState = 2 Then
Return "Connecting"
ElseIf iState = 4 Then
Return "Executing"
ElseIf iState = 8 Then
Return "Fetching"
End If
Return "unknown"
End Function