VB.net 連結 Access 語法

可分為兩種，一種是取得資料庫裡面的資料

        ' 資料庫的路徑
        Dim strDbCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=coolking_music.mdb"

        Dim objCon As OleDbConnection = New OleDbConnection(strDbCon)
        objCon.Open()

        ' SQL語法
        Dim objCmd As OleDbCommand = New OleDbCommand("SELECT * FROM song", objCon)

        Dim objDataReader As OleDbDataReader = objCmd.ExecuteReader()

        Dim out As String

        ' 讀取singer欄位的值
        While objDataReader.Read()
                out += objDataReader.Item("singer")
        End While

        ' 關閉資料庫的連結
        objDataReader.Close()
        objCon.Close()

        Label1.Text = out
　
另一種是顯示在DataGridView上
　
        ' 資料庫的路徑
        Dim strDbCon As String = "Provider=Microsoft.Jet.Oledb.4.0;Data source=coolking_music.mdb"
      
        Dim objCon As OleDbConnection = New OleDbConnection(strDbCon)
        objCon.Open()

        ' SQL語法
        Dim adp1 As OleDbDataAdapter = New OleDbDataAdapter("select * from song", objCon)

        ' 將查詢結果放到記憶體set1上的"song"表格內
        Dim set1 As DataSet = New DataSet
        adp1.Fill(set1, "song")

        ' 將記憶體的資料集合存放到視窗畫面上的DataGridView上
        DataGridView1.DataSource = set1.Tables("song")

        ' 關閉資料庫的連結
        objCon.Close()