Chuyển dữ liệu từ ADO khi đã lọc xong vào Lítview

[thietkevt]

Đã có rất nhiều ví dụ lấy dữ liệu vào ListView : (hiển thị font unicode, khung màu...).
Hôm nay mình lại đang thực hiện việc lấy dữ liệu từ file đóng bằng các dùng ADO
Dữ liệu lấy được rồi, cho được vào listBox được nhưng thử làm ListView thì bó tay
Dưới đây là đoạn mã mình đang dùng để lấy dữ liệu từ file đóng. nhờ các huynh hướng dẫn add vào Listview
'''''''''''''''''
Sub Load_data1()
'COPY DANH SACH CHU DAU TU VA DANH SACH CONG TRINH!!!
On Error Resume Next

'MaDG = Sheets("PT").Cells(ActiveCell.Row - 1, ActiveCell.Column).Value

FileDG = "E:\PHONG KH-KT\Data\Ke Hoach\Data_Duan.xls" 'ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set cnex = New ADODB.Connection
cnex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
FileDG & ";Persist Security Info=False; Extended Properties=Excel 8.0;"
cnex.Open
Set recex = New ADODB.Recordset
Set recex2 = New ADODB.Recordset
Sheets("data").Range("A365000").ClearContents

'CHINH THUC LOC THEO DON GIA
recex.Open "SELECT DISTINCT CDT FROM [DA$] where CDT like '%'", cnex, adOpenKeyset, adLockOptimistic
'Sheets("data").Range("A365000").ClearContents
Sheets("data").Cells(3, 1).CopyFromRecordset recex
recex.Close

recex2.Open "SELECT DISTINCT DUAN FROM [DA$] where DUAN like '%'", cnex, adOpenKeyset, adLockOptimistic
'Sheets("data").Range("C3:C65000").ClearContents
Sheets("data").Cells(3, 2).CopyFromRecordset recex2
Mình muốn thêm Code để đưa dữ liệu này vào Listview thay vì Paste vào Sheet

recex2.Close



Set recex = Nothing
Set recex2 = Nothing
Set recex3 = Nothing
cnex.Close
Set cnex = Nothing


End Sub
'''''''''''''''''

 

[ThuNghi]

Đã có rất nhiều ví dụ lấy dữ liệu vào ListView : (hiển thị font unicode, khung màu...).
Hôm nay mình lại đang thực hiện việc lấy dữ liệu từ file đóng bằng các dùng ADO
Dữ liệu lấy được rồi, cho được vào listBox được nhưng thử làm ListView thì bó tay
Dưới đây là đoạn mã mình đang dùng để lấy dữ liệu từ file đóng. nhờ các huynh hướng dẫn add vào Listview
'''''''''''''''''

Mình muốn thêm Code để đưa dữ liệu này vào Listview thay vì Paste vào Sheet

Google ra vậy.
http://www.codeproject.com/KB/vbscript/recordset_to_array.aspx
Bạn chuyển recordset sang 1 array, và từ array đó đưa vào LB hoặc LV nhé.

 

[ThuNghi]

Còn muốn từ Array sang ListView thì nghiên cứu bào sau, bài này tôi down từ GPE, hình như là của anh Lê Văn Duyệt hay của anh Sealand (lâu quá nên quên).

 

[thietkevt]

Còn muốn từ Array sang ListView thì nghiên cứu bào sau, bài này tôi down từ GPE, hình như là của anh Lê Văn Duyệt hay của anh Sealand (lâu quá nên quên).

Cám ơn ThuNghi
Bài viết đó của anh Sealand

Kết hợp hai bài của ThuNghi mình đã làm rồi như vẫn chưa được, trong code của mình còn thiếu 1 chút gì đó
Mình gửi lên xem giúp nhé
Cám ơn nhiều

 

[thietkevt]

Hôm qua mới ngủ dậy buổi trưa tỉnh tảo suy nghĩ và làm được rồi.
Cái hàm Getrow gì đó nó ngược ngạo, mình phải cho chạy từng record mới chỉnh lại được
Cám ơn ThuNghi đã Share

 

[thietkevt]

Có huynh nào chỉ giúp cách tạo một Sub có các biến để lọc dữ liệu bằng ADO với!
vi du: sub locADO_co_sap_xep(MaDG as string, Filedata as object, Sh as string, Cot, Vungpast as range)

câu lệnh tương ứng : Select * form tại Sheets tên Sh của file Filedata bằng cách so tại Cot, và dữ liệu lọc được dán vào Vungpast


Chỉ dùng Sub hay chỉ code Function càng tốt
Rất mong được giúp đỡ

 

[levanduyet]

Có huynh nào chỉ giúp cách tạo một Sub có các biến để lọc dữ liệu bằng ADO với!
vi du: sub locADO_co_sap_xep(MaDG as string, Filedata as object, Sh as string, Cot, Vungpast as range)

câu lệnh tương ứng : Select * form tại Sheets tên Sh của file Filedata bằng cách so tại Cot, và dữ liệu lọc được dán vào Vungpast


Chỉ dùng Sub hay chỉ code Function càng tốt
Rất mong được giúp đỡ

Đối với bài toán loại này, bạn chỉ cần truyền biến vào dạng:
Tên-Thủ-Tục(sSQL As String, rngObj As Range)
SSQL: là câu truy vấn
RngObj: Đối tượng Range, là vị trí để đưa kết quả ra.

Còn cách viết thế nào thì trên diễn đàn có nhiều bài hướng dẫn về vấn đề này.

Lê Văn Duyệt

 

[thietkevt]

[/QUOTE] Còn cách viết thế nào thì trên diễn đàn có nhiều bài hướng dẫn về vấn đề này.
Lê Văn Duyệt[/QUOTE]


Cám ơn Bác Duyệt
Đã tìm và nghiên cứu tới lui như bài viết code của bác cao quá chưa hiểu hết được
(đã xem trong chương trình kiểm kho của Bác)
Nhờ Bác giúp dùm luôn như trong file ví dụ giúp