Hướng dẫn kết nối VB.NET với cơ sở dữ liệu Microsoft Excel.

Hôm nay mình sẽ hướng dẫn cho các bạn cách kết nối tới file Excel. Trong bài hướng dẫn dưới dây mình chỉ hướng dẫn kết nối đến file Excel 2003, còn các file Excel có phiên bản cao hơn các bạn tự nghiên cứu hen…

Tương tự như bài viết kết nối dữ liệu đến file Access ta cũng sử dụng đến thư viện sau:

Imports System.Data.OleDb

- Chuổi kết nối đến file dữ liệu Excel 2003 như sau:

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fileexcel & ";Extended Properties=Excel 8.0"

Trong đó “FileExcel” chính là file Excel mà bạn cần duyệt đến.

Viết hoàn chỉnh như sau:

Dim excelcon As New OleDbConnection
Public str_excel As String
Public Sub connect_to_excel()
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str_excel & ";Extended Properties=Excel 8.0"
        excelcon.ConnectionString = strcon
        excelcon.Open()
End Sub

- Load dữ liệu vào dataset như sau:

Public Function getdata_excel(ByVal Sheetname As String) As DataSet
        Dim ds As New DataSet
        connect_to_excel()
        Dim strsql As String = "select * from [" + Sheetname + "$]"
        Dim da As New OleDbDataAdapter(strsql, excelcon)
        da.Fill(ds)
        close_excel()
        Return ds
End Function

- Load dữ liệu lên form

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "Excel files |*.xls"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            str_excel = OpenFileDialog1.FileName
            Dim ds As New DataSet
            ds = getdata_excel(catten_file(OpenFileDialog1.FileName))
            DataGridView1.DataSource = ds.Tables(0)
        End If
End Sub

Đến đây xem như hoàn tất. Lưu ý trong giới hạn bài viết cơ bản, tên file Excel với tên Sheet bạn đặt giống nhau.

Chúc các bạn thành công!

Demo: Kết nối VB.NET với cơ sở dữ liệu Microsoft Excel