显示数据库连接状态的实例
分类:VB.Net
乐博网lob.cn提示:调试环境为 vs2005 + windows2003 / windows2008 / xp / vista + .NET Framework 2.0
代码如下:
Option Strict On Imports System.Data.SqlClient Public Class LOB
Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
' 建立一个状态信息对话框对象。 Dim frmStatusMessage As New frmStatus
Try ' 利用 SqlConnectionStringBuilder 对象来构建连接字符串。 Dim connectStringBuilder As New SqlConnectionStringBuilder() connectStringBuilder.DataSource = Me.txtDataSource.Text.Trim connectStringBuilder.InitialCatalog = Me.txtDataBase.Text.Trim connectStringBuilder.IntegratedSecurity = True
' 显示一个状态讯息对话框来表示我们目前要尝试连结至 SQL Server。 frmStatusMessage.Show("乐博网提示:连接至 SQL Server 中....")
Using cn As New SqlConnection(connectStringBuilder.ConnectionString) cn.Open()
Dim ds As New DataSet()
Dim cmdLiming As New SqlCommand("SELECT * FROM sys.tables", cn)
Using drLiming As SqlDataReader = cmdLiming.ExecuteReader()
ds.Load(drLiming, LoadOption.OverwriteChanges, New String() {"数据表列举"})
' 将 BindingSource 组件绑定到 DataSet 当中的“数据表列举”数据表。 Me.BindingSource1.DataSource = ds.Tables("数据表列举")
' 将 DataGridView 控件绑定到 BindingSource 组件。 Me.DataGridView1.DataSource = Me.BindingSource1
End Using End Using
Catch ex As Exception MessageBox.Show(ex.Message) End Try
frmStatusMessage.Close() End Sub
Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub End Class
|