Khai thác và tùy biến thêm, sửa, xuất file và lấy dữ liệu từ Recordset

[Hai Lúa Miền Tây]

Tiếp tục với dữ liệu bài 1, với đoạn truy vấn sau:

"Select * from [Sheet1$]"

Làm cách nào ta lấy dữ liệu 2 cột đầu và 5 dòng cuối của bảng. Kết quả như sau:

 

[thuyyeu99]

trời còn có cột nữa hả anh ???

 

[Hai Lúa Miền Tây]

trời còn có cột nữa hả anh ???

Làm cho nó đủ bộ em, khai thác thì phải khai thác cho hết.

 

[ongke0711]

Làm cách nào ta lấy dữ liệu 2 cột đầu và 5 dòng cuối của bảng. Kết quả như sau:

View attachment 249032

Lấy cột thì tôi chỉ biết dùng GetRows, còn cách khác thì chưa biết. (Không tính dùng đến câu lệnh SQL)

.Move .RecordCount - 5
varBookmark = .Bookmark
varArray = .GetRows(5, varBookmark, Fields:=Array("ID", "Code"))
Sheet2.Range("A3:B7").Value = Application.WorksheetFunction.Transpose(varArray)

 

[Kiều Mạnh]

Lấy cột thì tôi chỉ biết dùng GetRows, còn cách khác thì chưa biết. (Không tính dùng đến câu lệnh SQL)

.Move .RecordCount - 5
varBookmark = .Bookmark
varArray = .GetRows(5, varBookmark, Fields:=Array("ID", "Code"))
Sheet2.Range("A3:B7").Value = Application.WorksheetFunction.Transpose(varArray)

có cách nào khác mà ko xài Transpose không bạn nhỉ ?

 

[ndu96081631]

Bởi vậy em mới hỏng có hiểu như bài 33 em nói. Biết ngay là Sư Phụ "cà khịa" em nữa rồi.

Hổng biết thì hỏi thôi mà

 

[Nhattanktnn]

2 cột thì đoạn này sửa lại thôi, dòng thì em không biết dòng cuối lùi lại 5 tính làm sao cả

Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2

 

[Hai Lúa Miền Tây]

Lấy cột thì tôi chỉ biết dùng GetRows, còn cách khác thì chưa biết. (Không tính dùng đến câu lệnh SQL)

.Move .RecordCount - 5
varBookmark = .Bookmark
varArray = .GetRows(5, varBookmark, Fields:=Array("ID", "Code"))
Sheet2.Range("A3:B7").Value = Application.WorksheetFunction.Transpose(varArray)

Duyệt qua từng field được mà bạn

có cách nào khác mà ko xài Transpose không bạn nhỉ ?

Đưa vào listbox rồi đưa xuống, tuy nhiên nó chậm lắm.

 

[Hai Lúa Miền Tây]

2 cột thì đoạn này sửa lại thôi, dòng thì em không biết dòng cuối lùi lại 5 tính làm sao cả

Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2

Lấy số tổng của dòng - 5, di chuyển đến kết quả đó. Bài #44 của bạn @ongke0711 có rồi đó bạn.

 

[Kiều Mạnh]

hay đấy

Sheet2.Range("A2").CopyFromRecordset .DataSource, , 3     ''Lay 3 cot
Sheet2.Range("A2").CopyFromRecordset .DataSource, , 1     ''Lay 1 cot

thì nó cũng trên nguyên tắc Rs(dòng, cột) thui mà

 

[Nhattanktnn]

Tiếp tục với dữ liệu bài 1, với đoạn truy vấn sau:

"Select * from [Sheet1$]"

Làm cách nào ta lấy dữ liệu 2 cột đầu và 5 dòng cuối của bảng. Kết quả như sau:

View attachment 249032

Hehe em đã làm được:

Sub LayDL_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open ("Select * from [Sheet1$]"), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1, 1
        Debug.Print .RecordCount
        .Move .RecordCount - 5
        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
    End With
End Sub

 

[Hai Lúa Miền Tây]

Hehe em đã làm được:

Sub LayDL_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open ("Select * from [Sheet1$]"), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1, 1
        Debug.Print .RecordCount
        .Move .RecordCount - 5
        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
    End With
End Sub

Ghi tên cột xuống sheet luôn nhé bạn.

 

[befaint]

Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2

Bảng có 5 cột, lấy cột 2,3,4 và 5 dòng cuối thì tính sao?

 

[Kiều Mạnh]

Hehe em đã làm được:

Sub LayDL_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open ("Select * from [Sheet1$]"), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1, 1
        Debug.Print .RecordCount
        .Move .RecordCount - 5
        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
    End With
End Sub

vầy đi chon gọn move làm chi nữa

Sub LayDL2_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open ("Select * from [Sheet1$]"), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1, 1
        Debug.Print .RecordCount
        ''.Move .RecordCount - 5
        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
    End With
End Sub

á vậy thì ra nó lấy 5 dòng trên

 

[Nhattanktnn]

vầy đi chon gọn move làm chi nữa

Sub LayDL2_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open ("Select * from [Sheet1$]"), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1, 1
        Debug.Print .RecordCount
        ''.Move .RecordCount - 5
        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
    End With
End Sub

á vậy thì ra nó lấy 5 dòng trên

Không move sao lấy được dòng cuối anh?

 

[ongke0711]

Hehe em đã làm được:

Sub LayDL_HLMT1()
    ...        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
    End With
End Sub

Nếu lấy cột cách nhau thì sao?

 

[Nhattanktnn]

Nếu lấy cột cách nhau thì sao?

Khó quá em ngồi lót dép hóng thôi

 

[thuyyeu99]

Khó quá em ngồi lót dép hóng thôi

Cái vụ này dễ mà đâu khó đâu

 

[Nhattanktnn]

Cái vụ này dễ mà đâu khó đâu

Dễ với các anh chị, khó với em

 

[thuyyeu99]

Dễ với các anh chị, khó với em

Bạn mượn bài của anh @ongke0711 thêm cáu Array(2,3,5) vô

Bài đã được tự động gộp: 10/11/20

    With CreateObject("ADODB.Recordset")
        .Open ("Select * from [Sheet1$]"), "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1, 1
        .Move .RecordCount - 5
        ArrData = Application.Transpose(.GetRows(, , Array(1, 2, 4)))
        Sheet2.Cells(1).Resize(UBound(ArrData), UBound(ArrData, 2)).Value = ArrData
    End With