实例133访问SQL Server

与Oledb一样，换了一个前缀而矣。

1.添加数据源pubs.mdf，保存项目

2.设计一下窗体，只需一个DataGridveiw控件

3.代码套路都不带变的

Imports System.Data.SqlClient
Public Class Form1
    Public Function GetConnection() As SqlConnection
        Return New SqlConnection(My.Settings.pubsConnectionString)
    End Function
    Dim conn As SqlConnection = GetConnection()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn.Open()

        Dim strSQl As String = "Select * From authors"
        Dim comm As New SqlCommand(strSQl, conn)
        Dim myReader As SqlDataReader = comm.ExecuteReader
        Dim myTable As New DataTable
        myTable.Load(myReader)

        DataGridView1.DataSource = myTable

        conn.Close()
    End Sub
End Class