CHO E HỎI

Chào bạn phiên bản sqlsever mình đang quay đang sử dụng tool sqltoolbel bạn nhé.

(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'"