ADO.net入门（二）连接到数据库

Imports System.Data.SqlClient
Module Module1
    Sub Main()
        Dim cn As New SqlConnection
        cn.ConnectionString = "Password=123456;User ID=sa;Initial Catalog=学生成绩管理系统;Data Source=QZHENG"
        cn.Open()
        If cn.State = ConnectionState.Open Then
            Console.WriteLine("连接已经成功！")

            Console.WriteLine("ConnectionString连接字串：")
            Console.WriteLine("   " & cn.ConnectionString.ToString)
            Console.WriteLine()
            Console.WriteLine("Database数据库名称：")
            Console.WriteLine("   " & cn.Database)
            Console.WriteLine("DataSource数据库实例名称（计算机名）：")
            Console.WriteLine("   " & cn.DataSource)
            Console.WriteLine("State连接状态：")
            Console.WriteLine("   " & cn.State)
            Console.WriteLine("SQlserver服务器版本：")
            Console.WriteLine("   " & cn.ServerVersion)
            Console.WriteLine("ClientConnectionId最近连接ID：")
            Console.WriteLine("   " & cn.ClientConnectionId.ToString)
        End If
        cn.Close()
        Console.ReadKey()
    End Sub
End Module