Extract data bằng VBA (1 người xem)

[thanhtaiteo]

Các anh chị vui lòng cho em hỏi . Hiện em có 1 đoạn code dùng extract data từ table trên sever

Theo cấu trúc bên dưới thì em sẽ extract được toàn bộ dữ liệu .

Nhưng hiện tại nhu cầu của em chỉ cần lấy 1 vài dữ liệu trong 1 field của Table QQ.TEST

Ví dụ trong Table QQ.TEST sẽ có 1 Field là STT và có các giá trị của từng cell là 1 2 3 4 5 6 4 5 3 2 3

Vậy khi extract em chỉ muốn lấy field STT có các giá trị là 5 ra thôi .

Mong anh chị chỉ giáo giúp ạ

Sub Data()

Dim sSQLQry As String
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim currentsheet As Worksheet

Application.ScreenUpdating = False
Set currentsheet = ThisWorkbook.Worksheets("DB")
currentsheet.Range("A5:AZ1000000").ClearContents
    
Conn.Open "Provider=XXXXX;User ID=X;Data Source=AB;PASSWORD=XX"

sSQLSting = ""
    sSQLSting = "select * from QQ.TEST"
    
    mrs.Open sSQLSting, Conn
        currentsheet.Range("B5").CopyFromRecordset mrs
    mrs.Close
Conn.Close
End Sub