- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,930
Xin lỗi! Vì tôi là dân không chuyên nghiệp. VBA và VB6 xài còn chưa xong thì khỏi cần nghĩ đến mấy thứ cao cấp khác làm gì cho mệt
Quan điểm của tôi: Giải thuật quan trọng hơn công cụ
ADO: Kết nối, truy vấn Excel Database vào các control ở Userform.
- Thread starter Hai Lúa Miền Tây
- Ngày gửi
Quan điểm của tôi: Giải thuật quan trọng hơn công cụ
- Tham gia
- 18/3/08
- Bài viết
- 8,281
- Được thích
- 15,780
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Thằng VB net này và VB6 không giống nhau đâu nha bạn.
nguyenhung8790
Thành viên mới
- Tham gia
- 4/3/14
- Bài viết
- 1
- Được thích
- 1
Để công bằng khi so sánh 2 phương pháp, ta clear dữ liệu khi form load nhé:
Code:
Private Sub UserForm_Initialize()
Moketnoi
On Error Resume Next
FillcbOrder
Dim rs As New ADODB.Recordset
Set rs = Nothing
rs.Open "Select * from [Dulieu$] order by id", cnn, 1, 3
Set msgInfo.DataSource = rs
Sheet1.UsedRange.Clear
End Sub
Code của bạn ta đặt thêm bộ đếm thời gian:
PHP Code:....
=> Bạn ơi làm theo cai Range("A4").CopyFromRecordset lrs thi dc nhung theo minh no bị hạn chế về dung lượng ram minh làm thử một bảng có 247 trường thì nó chỉ load được 100 bản ghỉ thôi load nhiều hơn thì nó lại bị lỗi . Có cách nào khắc phục được không ?
Code:
Private Sub UserForm_Initialize()
Moketnoi
On Error Resume Next
FillcbOrder
Dim rs As New ADODB.Recordset
Set rs = Nothing
rs.Open "Select * from [Dulieu$] order by id", cnn, 1, 3
Set msgInfo.DataSource = rs
Sheet1.UsedRange.Clear
End Sub
Code của bạn ta đặt thêm bộ đếm thời gian:
PHP Code:....
=> Bạn ơi làm theo cai Range("A4").CopyFromRecordset lrs thi dc nhung theo minh no bị hạn chế về dung lượng ram minh làm thử một bảng có 247 trường thì nó chỉ load được 100 bản ghỉ thôi load nhiều hơn thì nó lại bị lỗi . Có cách nào khắc phục được không ?
