Đưa dữ liệu ra listbox

[tranthuyetit]

Mình đã thực hiện giống như anh Duyệt chỉ dẫn Dim i As Integer rst.Open "SELECT Code, Country FROM tblISOCOuntryCodes ORDER BY Country;", cnn, adOpenStatic rst.MoveFirst 'Di chuyển đến record đầu trước khi đưa dữ liệu vào i = 0 'Nếu cần các bạn có thể kiểm tra .EOF hoặc .BOF để thực hiện tiếp With Me.ListBox1 .Clear 'Xóa các mục trước khi đưa vào Do .AddItem .List(i, 0) = rst!Code 'Ta đưa mục này vào cột 1 .List(i, 1) = rst!Country 'Ta đưa mục này vào cột 2 i = i + 1 rst.MoveNext Loop Until rst.EOF End With Nhưng vẫn bị báo lỗi, mọi người sửa giúp mình với (xem trong file đính kèm)

 

[tranthuyetit]

Mọi người giúp em với

 

[MinhNguyệt]

Mình đã thực hiện giống như anh Duyệt chỉ dẫn Dim i As Integer rst.Open "SELECT Code, Country FROM tblISOCOuntryCodes ORDER BY Country;", cnn, adOpenStatic rst.MoveFirst 'Di chuyển đến record đầu trước khi đưa dữ liệu vào i = 0 'Nếu cần các bạn có thể kiểm tra .EOF hoặc .BOF để thực hiện tiếp With Me.ListBox1 .Clear 'Xóa các mục trước khi đưa vào Do .AddItem .List(i, 0) = rst!Code 'Ta đưa mục này vào cột 1 .List(i, 1) = rst!Country 'Ta đưa mục này vào cột 2 i = i + 1 rst.MoveNext Loop Until rst.EOF End With Nhưng vẫn bị báo lỗi, mọi người sửa giúp mình với (xem trong file đính kèm)

1/ Bạn không gửi file kết nối nên khg thể giúp gì hơn
2/ Bạn mở Tools/References và kiểm tra xem co hang nào bị MISSING khong. Nếu có thì bị thiếu ActiveX. Xóa dấu kiểm ở hàng đó và bổ sung thêm ActiveX đó
Thân

 

[tranthuyetit]

Thanks bạn đã hồi âm. Mình gửi database vào hòm mail của bạn. Mong bạn sớm hồi âm lại mình nhé ( pn5209@gmail.com)