ADO - Tiếng việt trong câu lệnh query

Liên hệ QC

tan.ngohoangquoc

Thành viên hoạt động
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?

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
 
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?

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

Thử vầy xem:

SQLStr = "SELECT * FROM [DimProduct] WHERE [DimProduct].[Category] Like 'Y?M'"

Hoặc:

SQLStr = "SELECT * FROM [DimProduct] WHERE [DimProduct].[Category] Like '" & Sheet2.Range("F4").Value & "';"
 
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
Private Sub txt1_AfterUpdate()
If txt1 = "SC" Then
txt2.Enabled = True
lbl2.Enabled = True
txt4.Enabled = True
lbl4.Enabled = True
Else
txt2.Enabled = False
lbl2.Enabled = False
txt4.Enabled = False
lbl4.Enabled = False
If txt1 = "CO" Then
txt2.Enabled = True
lbl2.Enabled = True
txt5.Enabled = True
lbl5.Enabled = True
Else
txt2.Enabled = False
lbl2.Enabled = False
txt5.Enabled = False
lbl5.Enabled = False
If txt1 = "SO" Or txt1 = "BI" Or txt1 = "NO" Then
txt3.Enabled = True
lbl3.Enabled = True
txt4.Enabled = True
lbl4.Enabled = True
txt5.Enabled = True
lbl5.Enabled = True
Else
txt3.Enabled = False
lbl3.Enabled = False
txt4.Enabled = False
lbl4.Enabled = False
txt5.Enabled = False
lbl5.Enabled = False

End If
End If
End If
End Sub

giúp em với, tại sao lại báo lỗi.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom