1. Thêm thư viện.
Chuột phải vào project chọn Add.
Chọn Reference...
Chọn COM.
Từ khóa tìm kiếm là ADO.
Bạn nên đặt chuột vào các kết quả tìm kiếm, sẽ có dòng chữ hiện ra. Ở đây mình chọn hai thư viện cho 64bit và 32 bit.
Ấn OK.
2. Code:
Nguồn tham khảo:
Chuột phải vào project chọn Add.
Bạn cần đăng nhập để thấy đính kèm
Chọn Reference...
Bạn cần đăng nhập để thấy đính kèm
Chọn COM.
Từ khóa tìm kiếm là ADO.
Bạn cần đăng nhập để thấy đính kèm
Bạn nên đặt chuột vào các kết quả tìm kiếm, sẽ có dòng chữ hiện ra. Ở đây mình chọn hai thư viện cho 64bit và 32 bit.
Ấn OK.
2. Code:
Mã:
Private Sub laydulieuExcelADO()
Dim con As New OleDbConnection()
Dim cmd As New OleDbCommand()
Dim da As New OleDbDataAdapter()
Dim ds As DataSet = New DataSet()
Dim dt As New DataTable()
Try
' Thiet dinh ket noi DB
con.ConnectionString =
"Provider=Microsoft.ACE.OLEDB.12.0; " &
"Data Source=" &
Application.StartupPath & "\TuhocVBA.xlsx;" &
"Extended Properties=""Excel 8.0;HDR=YES;"""
' Thiet dinh ket noi
cmd.Connection = con
' Cu phap DQL
' Ten sheet trong file Excel "ID"
cmd.CommandText = "SELECT * FROM [ID$] "
' Chay lenh
da.SelectCommand = cmd
' Lay du lieu
da.Fill(dt)
'Hien thi du lieu lay duoc
If dt.Rows.Count > 0 Then
MessageBox.Show(dt.Rows(0).Item(0))
Else
MessageBox.Show _
("File Excel không có dữ liệu")
End If
dt.Clear()
ds.Clear()
da.Dispose()
con.Dispose()
Catch ex As Exception
' Loi khong mong muon xay ra
MessageBox.Show(ex.ToString, "Lỗi không kết nối được với file Excel")
End Try
End Sub
Bạn cần đăng nhập để thấy link