tan.ngohoangquoc
Thành viên hoạt động
![](/diendan/data/PhoToDanhHieu/gold.gif)
![](/diendan/data/PhoToDanhHieu/gold.gif)
![](/diendan/data/PhoToDanhHieu/gold.gif)
- Tham gia
- 10/7/14
- Bài viết
- 100
- Được thích
- 41
- Nghề nghiệp
- M&A Specialist - RM Assistant
Xin chào mọi người. Em đang thử viết câu lệnh truy vấn dữ liệu từ file access. Trong đó có 1 điều kiện em lấy dữ liệu tiếng việt từ range trên excel (Chữ YẾM), nhưng luôn bị báo lỗi. Syntax error .... Like Y?M.
Có cách nào để mình dùng tiếng việt trong câu lệnh này không?
Có cách nào để mình dùng tiếng việt trong câu lệnh này không?
Mã:
Dim cn As Object
Dim rst As Object
Dim SQLStr As String
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
SQLStr = "SELECT * FROM [DimProduct] WHERE [DimProduct].[Category] Like '" & Sheet2.Range("F4").Value & ";"
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & Application.PathSeparator & "Database.mdb;Jet OLEDB:Database ;")
With rst
.ActiveConnection = cn
.Open SQLStr
If Not (.BOF And .EOF) Then
Sheet2.[C8].CopyFromRecordset rst
End If
.Close
End With
cn.Close
Set rst = Nothing
Set cn = Nothing