vb.net - 我如何知道 ADODB 是否使用 vb.net(类、模块和表单)连接到我的数据库
问题描述
我希望标题足以理解我的问题,它已经安装了运行 ADODBC 所需的东西,我的问题是我如何知道连接是否连接到数据库 mariadb
Module GlobalVariables
Public sGlobalConnectionString As String
Sub Main()
Dim clsFunction As New clsFunction
Dim sParameter As String
Dim sDataserver As String
Dim sDatabaseName As String
Dim sDatabaseConnection As String
sDataserver = "localhost"
sDatabaseName = "employee"
sDatabaseConnection = "Driver={MariaDB ODBC 3.1 Driver}; SERVER=" & sDataserver & "; UID=root;PWD=*****; Database=" & sDatabaseName & "; PORT=3307; OPTION=3"
sGlobalConnectionString = sDatabaseConnection
End Sub
End Module
这是我的课
Public Class Query
Private Sub Class_ConOpen()
Dim con = New ADODB.Connection
con.ConnectionString = sGlobalConnectionString
con.Open
con.CommandTimeout = 0
End Sub
Private Sub Class_ConClose()
Dim con = New ADODB.Connection
If Not con Is Nothing Then
con.Close
con = Nothing
End If
End Sub
End Class
这是我的表格,对吗?打算用try catch?
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Try
?????
Catch ex As Exception
????
End Try
End Sub
解决方案
你可以试试 con 对象的 State 属性。
con.State
属性会告诉你连接的状态。