cho e xin hướng dẫn code import file excel đã chuẩn hoá vào database SQL

Chào bạn hướng dẫn bạn làm như sau bạn sử dụng vòng lặp insert vào nhé.

Chào Hiệp bạn tham khảo cách này với access với sqlsever sẽ có các khác

Sub Themdulieu()
    Dim kq As Boolean
    Spart = ThisWorkbook.Path + "\Database.accdb"
    Dim i As Long, Arr As Variant
    Arr = Sheet2.Range("A2:E500").Value
    For i = LBound(Arr, 1) To UBound(Arr, 1)
        Sqlcmd = "INSERT INTO DMKH(MKH,TKH,DC,LH,Ghichu) VALUES ('" + Arr(i, 1) + "', '" + Arr(i, 2) + "','" + Arr(i, 3) + "','" + CStr(Arr(i, 4)) + "','" + CStr(Arr(i, 5)) + "')"
        kq = QuerySQLExecute(Sqlcmd, Spart, False)
    Next i
End Sub

Thầy share e xin cách sử dụng với SQL Server với ạ! Em cám ơn!

Chào Hiệp phần này gitiho sẽ làm video gửi đến mọi người nhé.

Thầy Tuấn Ba update phần này chưa ạ!

Chào bạn chắc phải hết ngày mai phần code ở trên đó bạn chỉ đổi thành kết nối sqlsever là xong

Có update rồi đó bạn vào xem chương 5 nhé.