VBAG02 - Ứng dụng Mảng, SQL và các Công cụ Nâng cao khác trong Excel và VBA

Là sẽ bổ sung vào phần bài giảng của vba02 luôn ạ?

Chắc sẽ là video riêng bạn nhé. hoặc gửi lên protect cho bạn tham khảo

E cảm ơn trc ạ

Happy new year anh, chị.

Chắc mình đã đi làm lại rồi phải ko ạ. Không biết anh, chị có thể bớt chút thời gian làm video hướng dẫn giúp em được ko.

em chào anh, chị ạ,

Đầu năm mới chắc anh, chị cũng bận rộn lắm phải ko ạ. Có thể bớt chút thời gian ra video giúp em được ko ạ ? Do hiện tại e đang xử lý 1 khối lượng cv lớn, nên nếu ứng dụng được thì sẽ giúp giảm thời gian và công sức rất nhiều.

Em cảm ơn.

Hi anh, chị,

Em cũng hóng video quá ạ.

Anh, chị cho e xin cái hẹn với ạ.

Em có góp ý về phần bài học VBA02, e thấy toàn lý thuyết, nên có thêm những video bài tập như thế này để khóa học trở nên sinh động và hữu ích hơn, học xong, học viên ứng dụng được vào thực tế luôn.

(0 rows affected)
Msg 102, Level 15, State 1, Line 5
Incorrect syntax near 'DsKH'.

báo lỗi như trên là bị chỗ nào vậy thầy

Câu insert bạn đang viết thế nào vậy?

Sub LayDuLieuTuExcelVaXuatMang()
   Dim conn As Object
   Dim rs As Object
   Dim strSQL As String
   Dim arrData As Variant
   Dim i As Long
   
   ' Khởi tạo đối tượng Connection
   Set conn = CreateObject("ADODB.Connection")
   
   ' Thiết lập chuỗi kết nối tới tệp Excel đã đóng
   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\File.xlsx;Extended Properties=""Excel 12.0;HDR=YES;"""
   
   ' Khởi tạo đối tượng Recordset
   Set rs = CreateObject("ADODB.Recordset")
   
   ' Viết truy vấn SQL để lấy dữ liệu theo điều kiện
   strSQL = "SELECT * FROM ds_chung WHERE makhachhang = ‘mk123456’"
   
   ' Mở Recordset với truy vấn SQL
   rs.Open strSQL, conn
   
   ' Kiểm tra xem có dữ liệu không
   If Not rs.EOF Then
       ' Đưa dữ liệu vào mảng
       arrData = rs.GetRows
       ' Đóng Recordset
       rs.Close
       ' Đóng Connection
       conn.Close
       
       ' Hiển thị dữ liệu trong mảng
       For i = LBound(arrData, 2) To UBound(arrData, 2)
           Debug.Print arrData(makhachhang, i) 
       Next i
   Else
       ' Nếu không có dữ liệu
       MsgBox "Không có dữ liệu thỏa điều kiện."
       ' Đóng Recordset
       rs.Close
       ' Đóng Connection
       conn.Close
   End If
End Sub

thầy kiểm tra giúp e sai ở đâu mà máy bảo lỗi ở câu rs.Open strSQL, conn

C:\Path\To\Your\File.xlsx bạn kiểm tra xem có file này không?

dạ có fie mà vẫn lỗi ạ

Bạn vui lòng đính kèm file giúp gitiho nhé.

https://drive.google.com/drive/folders/17dtOnT5N0g2V1tFMpThjSG06geMU0apL?usp=sharing

NHỜ THẦY XEM GIÚP Ạ

Bạn đổi như sau nhé

 strSQL = "SELECT * FROM [Sheet1$] WHERE makhachhang = 'MK2021032509'"