测试数据库是否连接正确的实例

1. Imports System.Data
2. Imports System.Data.SqlClient   REM 有数据库连接的时候就要写这两行
4. Public Class Form1
6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
7.         Dim mycon As New SqlConnection("Data Source=lty-pc;Initial Catalog=Discuz!;Integrated Security=True")
8.         Try
9.             mycon.Open()
10.             MsgBox("连接成功")
11.         Catch ex As Exception
12.             MsgBox(ex.Message)   '显示连接数据库出错的详细信息
13.         End Try
14.         mycon.Close()    'try和 end try是什么意思我现在还不懂
15.     End Sub
16. End Class