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]

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

Em gài bẫy nè. Đâu có 2,3,5 đâu ta
Có thể là 1,2,3 thay cho 2,3,4 vì nó từ 0

 

[thuyyeu99]

Em gài bẫy nè. Đâu có 2,3,5 đâu ta
Có thể là 1,2,3 thay cho 2,3,4 vì nó từ 0

trời cái gì cũng phải linh động xử lý chứ anh, buf lỗi càng nhiều càng tốt chứ anh

 

[Nhattanktnn]

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

Chị gái hay quá!

 

[thuyyeu99]

Hay hôn.
Vậy thì vỗ tay khen bạn đi nào

 

[Hoàng Nhật Phương]

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

OT thử code này thì bị lỗi tại dòng.
ArrData = Application.Transpose(.GetRows(, , Array(1, 2, 4)))
Tên lỗi là:
Item cannot be found in the collection corresponding to the requested name or ordinal.

 

[Nhattanktnn]

OT thử code này thì bị lỗi tại dòng.
ArrData = Application.Transpose(.GetRows(, , Array(1, 2, 4)))
Tên lỗi là:
Item cannot be found in the collection corresponding to the requested name or ordinal.

Không biết chị đã thêm dữ liệu vào sheet1 hay chưa

 

[thuyyeu99]

OT thử code này thì bị lỗi tại dòng.
ArrData = Application.Transpose(.GetRows(, , Array(1, 2, 4)))
Tên lỗi là:
Item cannot be found in the collection corresponding to the requested name or ordinal.

Lỗi này xảy ra khi Fields không có trong bảng truy cập. Bạn kiểm tra lại trên Sheet bạn có bao nhiêu cột.
Mãng ADO bắt đầu tính từ 0 nhé ví dụ 5 cột là từ 0,1,2,3,4,

 

[Hoàng Nhật Phương]

Không biết chị đã thêm dữ liệu vào sheet1 hay chưa

Dạ,Sheet1 có dữ liệu file bài 1 của anh Hai Lúa bạn à

 

[Nhattanktnn]

Dạ,Sheet1 có dữ liệu file bài 1 của anh Hai Lúa bạn à

Vậy thì đúng rồi, chị xóa 4 trong array(1,2,4) là code chạy thôi. Trường 5 không có dữ liệu

 

[Hoàng Nhật Phương]

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

Chưa thấy anh Hai Lúa show đáp án nhỉ hihi

 

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

Chưa thấy anh Hai Lúa show đáp án nhỉ hihi

Bài #51 của bạn @Nhattanktnn chỉ thêm tên cột vào nữa là đúng yêu cầu.

 

[huhumalu]

Thường thì em dùng như thế này.

  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDb & ";"
  Set rs = New ADODB.Recordset
 With rs
    .Open "SELECT ***** WHERE **** ", cn, , , adCmdText
    .MoveFirst
 End With

Sau đó thì tùy biến đưa ra các thông tin như :

rs.Fields.Count

Rồi sau em mới

.CopyFromRecordset rs

 

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

Thường thì em dùng như thế này.

  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDb & ";"
  Set rs = New ADODB.Recordset
With rs
    .Open "SELECT ***** WHERE **** ", cn, , , adCmdText
    .MoveFirst
End With

Sau đó thì tùy biến đưa ra các thông tin như :

rs.Fields.Count

Rồi sau em mới

.CopyFromRecordset rs

Đang nói đến xử lý Recordset nhé bạn, có nghĩa là với lý do nào đó mà ta muốn xử lý dữ liệu sau khi đã truy vấn.
Nhưng bàn chút, bạn ghi.

.MoveFirst

Nếu chỉ đơn thuần là lấy dữ liệu ra sheet hoặc đếm số cột thì có cần?

 

[Nhattanktnn]

Đang nói đến xử lý Recordset nhé bạn, có nghĩa là với lý do nào đó mà ta muốn xử lý dữ liệu sau khi đã truy vấn.
Nhưng bàn chút, bạn ghi.

.MoveFirst

Nếu chỉ đơn thuần là lấy dữ liệu ra sheet hoặc đếm số cột thì có cần?

Thêm tên cột có vòng lặp gì không anh ơi, gợi ý chút xíu với

 

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

Thêm tên cột có vòng lặp gì không anh ơi, gợi ý chút xíu với

Vòng lặp hay không vòng lặp đều được bạn nhé. Vì trường hợp này chỉ có 2 cột.

 

[Nhattanktnn]

Vòng lặp hay không vòng lặp đều được bạn nhé. Vì trường hợp này chỉ có 2 cột.

Làm đại chứ em nghĩ ý anh không phải vậy:

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
        Sheet2.Range("A1") = .Fields(0).Name: Sheet2.Range("B1") = .Fields(1).Name
        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
End With

 

[thuyyeu99]

Sub LaydulieuWithSever()
    Dim cnn As ConnectionDataHub
    Dim myRst  As Object
On Error GoTo ErrorProcess
    
    Application.ScreenUpdating = False
    If isconnect Then GoTo EndSub
    Set cnn = appClient.OpenConnection("D:\SampleData - Copy.accdb")
    Range("A5:L1000").ClearContents
    Set myRst = cnn.GetdataServer("SELECT * FROM Data")
    'myRst.MoveFirst
    For i = 0 To myRst.Fields.Count - 1
        Cells(5, 1 + i).Value = myRst.Fields(i).Name
    Next i
    Range("A6").CopyFromRecordset myRst
    
GoTo EndSub
ErrorProcess:
    MsgBox Err.Number & ": " & Err.Description
EndSub:

Set myRst = Nothing
Set cnn = Nothing

Application.ScreenUpdating = True
End Sub

Chuẩn bị ra lò đây anh

 

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

Làm đại chứ em nghĩ ý anh không phải vậy:

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
        Sheet2.Range("A1") = .Fields(0).Name: Sheet2.Range("B1") = .Fields(1).Name
        Sheet2.Range("A2").CopyFromRecordset .DataSource, 5, 2
End With

Đúng là thế, từ những cái đơn giản để người mới có thể hiểu và vận dụng một cách dễ dàng vào bài toán của riêng mình.

 

[Nhattanktnn]

Đúng là thế, từ những cái đơn giản để người mới có thể hiểu và vận dụng một cách dễ dàng vào bài toán của riêng mình.

Nếu vậy thì nó đã bị lộ ở bài #35 rồi anh

 

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

Sub LaydulieuWithSever()
    Dim cnn As ConnectionDataHub
    Dim myRst  As Object
On Error GoTo ErrorProcess
   
    Application.ScreenUpdating = False
    If isconnect Then GoTo EndSub
    Set cnn = appClient.OpenConnection("D:\SampleData - Copy.accdb")
    Range("A5:L1000").ClearContents
    Set myRst = cnn.GetdataServer("SELECT * FROM Data")
    'myRst.MoveFirst
    For i = 0 To myRst.Fields.Count - 1
        Cells(5, 1 + i).Value = myRst.Fields(i).Name
    Next i
    Range("A6").CopyFromRecordset myRst
   
GoTo EndSub
ErrorProcess:
    MsgBox Err.Number & ": " & Err.Description
EndSub:

Set myRst = Nothing
Set cnn = Nothing

Application.ScreenUpdating = True
End Sub

Chuẩn bị ra lò đây anh

Chúc mừng em. Khi nào "ra lò" nhớ mở tiệc mừng nhé.