Kết nối dữ liệu bằng ADODB và xử lý dữ liệu trên mảng

[anhtuan2939]

Xin chào các bạn.
Mình có 1 dòng code để lấy dữ liệu từ file Excel khác thông qua ADODB, sau khi lấy dữ liệu mình muốn xử lý luôn trên mảng rồi mới gán kết quả xuống Sheet, nhưng khi lấy được dữ liệu thông qua ADODB thì hình như mảng lấy được trên này bị đảo ngược hàng thành cột, cột thành hàng. Vậy cho mình hỏi có cách nào để đảo ngược lại mảng trên ADODB không ạ?

Sub test()
    Dim cnn As Object, rst As Object
    Dim lsSQL As String, filename As String
    Dim sArr()
    
    filename = Sheet1.Range("B8").Value  'Duong dan va ten file
    
    Set cnn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & filename & ";" & _
                            "Extended Properties=""Excel 8.0;HDR=Yes;"";"
        .Open
    End With
    
    lsSQL = "SELECT * " & _
             "FROM [EXCEL 12.0;Database=" & filename & ";HDR=Yes].[KU-KU$A2:H800000] " & _
             "WHERE Tai_Khoan IS NOT NULL;"
            
    rst.Open lsSQL, cnn
    sArr = rst.GetRows
    
    rst.Close
    Set rst = Nothing
    cnn.Close
    Set cnn = Nothing
    
    'Code xu ly mang sArr
    
End Sub

 

[Kiều Mạnh]

Nếu vậy ta không nên phát biểu câu trên để cho người mới đở phải phân vân.

tùy vào nhu cầu người sử dụng ... còn học code thì phải biết thao túng các kiểu xong từ đó mà biết cách mà xử lý cho từng trường hợp khác nhau

VD: như tính toán linh tinh trên ADO thuần SQL thì mạnh cái biết cái không ... còn lấy dữ liệu đó vào Array thì mạnh lại thao túng nhiều kiểu vậy thì thừa cái hàm chuyển mảng kia khi lấy vào xong lại tính nữa ... vậy lấy vào Array xong duyệt tới đâu tính tính đó sẻ bỏ bớt đi 2 dòng For của cái hàm chuyển mảng kia đi ... thế thôi

 

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

tùy vào nhu cầu người sử dụng ... còn học code thì phải biết thao túng các kiểu xong từ đó mà biết cách mà xử lý cho từng trường hợp khác nhau

VD: như tính toán linh tinh trên ADO thuần SQL thì mạnh cái biết cái không ... còn lấy dữ liệu đó vào Array thì mạnh lại thao túng nhiều kiểu vậy thì thừa cái hàm chuyển mảng kia khi lấy vào xong lại tính nữa ... vậy lấy vào Array xong duyệt tới đâu tính tính đó sẻ bỏ bớt đi 2 dòng For của cái hàm chuyển mảng kia đi ... thế thôi

Người ta mới tập thì nên hướng dẫn những cái căn bản từ từ từng bước một. Sau khi nắm vững được những cái căn bản đó thì mới có thể suy nghĩ ra những cái khác theo ý. Chứ như anh nói ở trên thì người ta mới, chưa biết đường nào mà lần.