Tùy chọn dữ liệu xuất ra trong Sql (1 người xem)

[Excel365]

[GPECODE=sql]Sub TongHop_HLMTDuy()
Dim adoConn As Object, adoRS As Object
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "SELECT F1,F2,F4,F16,F17,F18,F22 " & _
"FROM [Cong$B8:W65000]" & _
"Where F16 " & ">0" & _
"And [F22] like '" & TangKa.Range("H16").Value & "'"
With TangKa
.Range("A18:G65000").ClearContents
.Range("B18").CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End With
End Sub[/GPECODE]
Em có đoạn code như trên.
Khi đó dữ liệu sau khi lọc từ Sheet Công ra sẽ hiện thì các là các field F1, F2, F4, F16, F17, F18, F22. Nay em muốn dữ liệu sau khi lọc ra không cho hiển thị F3, F22, .... (Field F22 là điệu kiện để lọc) , thì phải làm như thế nào, nhờ các anh chị giúp em

 

[doveandrose]

[GPECODE=sql]Sub TongHop_HLMTDuy()
Dim adoConn As Object, adoRS As Object
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "SELECT F1,F2,F4,F16,F17,F18,F22 " & _
"FROM [Cong$B8:W65000]" & _
"Where F16 " & ">0" & _
"And [F22] like '" & TangKa.Range("H16").Value & "'"
With TangKa
.Range("A18:G65000").ClearContents
.Range("B18").CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End With
End Sub[/GPECODE]
Em có đoạn code như trên.
Khi đó dữ liệu sau khi lọc từ Sheet Công ra sẽ hiện thì các là các field F1, F2, F4, F16, F17, F18, F22. Nay em muốn dữ liệu sau khi lọc ra không cho hiển thị F3, F22, .... (Field F22 là điệu kiện để lọc) , thì phải làm như thế nào, nhờ các anh chị giúp em

bạn yên tâm là dữ liệu sau khi lọc ra sẽ không bao giờ nhìn thấy được các cột F3,F22 . vì câu truy vấn trật lất lấy gì ra được kết quả
(bạn đã đưa ra câu truy vấn trên 1 lân rồi , các thành viên đã góp ý nhưng có vẻ bạn không tiếp thu thì phải)

 

[Excel365]

bạn yên tâm là dữ liệu sau khi lọc ra sẽ không bao giờ nhìn thấy được các cột F3,F22 . vì câu truy vấn trật lất lấy gì ra được kết quả
(bạn đã đưa ra câu truy vấn trên 1 lân rồi , các thành viên đã góp ý nhưng có vẻ bạn không tiếp thu thì phải)

Nhưng sao trên máy vẫn truy vấn được mà

 

[doveandrose]

Nhưng sao trên máy vẫn truy vấn được mà

ờ . chúc bạn may mắn .

 

[Vô danh Tiểu tốt]

Khi đó dữ liệu sau khi lọc từ Sheet Công ra sẽ hiện thì các là các field F1, F2, F4, F16, F17, F18, F22. Nay em muốn dữ liệu sau khi lọc ra không cho hiển thị F3, F22, .... (Field F22 là điệu kiện để lọc) , thì phải làm như thế nào, nhờ các anh chị giúp em

Tôi nghĩ là trong query nếu bạn liệt kê cột nào sau SELECT thì cột đó sẽ nằm trong kết quả. Nếu không muốn xuất hiện thì đừng liệt kê dù cho nó có xuất hiện trong điều kiện WHERE.
Còn "Where F16 "& ">0" có thể đơn giản là "Where F16>0 "