Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] SQL trong VBA chạy không đúng!
#11
(06-09-18, 09:34 PM)ongke0711 Đã viết: Khi khai báo biến mảng không biết trước kích thước bạn có thể khai báo mảng động sau đó sẽ khai báo kích thước cố định sau đó.
Vd: 
    Dim arr() As  Variant
    ...
    Sau khi biết số dòng (RecordCount) thì khai báo lại.
    ...
    Redim arr(số dòng).
    ....

Lưu ý: sau khi xử lý xong nên giải phóng biến khỏi bộ nhớ
   Erase arr

Về việc xuống dòng khi câu lênh dài trong VBA, có 2 kiểu tuỳ thói quen người lập trình:
C1:
      sSQL="SELECT * FROM Table1 " & _   --> dấu nháy kép cách ký tự cuối 1 khoảng trắng + dấu cách + & + dấu cách + _
        "WHERE Table1.ID = 'NV001' " & _
        "GROUP BY Table1.ID"
C2: 
      sSQL="SELECT * FROM Table1 " _    --> dấu nháy kép cách ký tự cuối 1 khoảng trắng + dấu cách +  _
        & "WHERE Table1.ID = 'NV001' " _
        & "GROUP BY Table1.ID"

Cám ơn bác nhiều
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
(06-09-18, 06:19 PM)NguyenDungAnh Đã viết: Được rồi các bác ạ, em thêm mỗi cái rs.movelast vào trước cái rs.count là ok

Còn vụ này quên nói.
Cái rs.MoveLast này chỉ để cái RecordCount nó đếm đúng thôi nhưng trong code trên của bạn nó sẽ báo lỗi nếu như rs trả về không có record nào (lỗi No Current record).
Do đó nên bẫy lỗi trước.

   Set rs = db.OpenRecordset (.........)
   If rs.EOF or rs.BOF Then
      Msgbox "Không có dữ liệu."
      Exit Sub
   End If
   rs.MoveLast
   rs.MoveFirst
   rs.RecordCount
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#13
Vâng em có tham khảo bài của bác dan rồi
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Demo Hàm report tự canh đều chiều cao ( Không kẻ line)) maidinhdan 77 15,545 07-11-18, 09:07 PM
Bài mới nhất: mrtoanbin
  [Thủ Thuật] Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access maidinhdan 39 8,478 22-09-18, 12:40 PM
Bài mới nhất: NguyenDungAnh
  [Help] Tự chọn yes or no trong VBA khi chạy SQL NguyenDungAnh 7 413 26-08-18, 03:40 PM
Bài mới nhất: NguyenDungAnh
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 62 34,483 03-08-18, 12:41 PM
Bài mới nhất: Cuong Servenet
  [Help] Tham so trong lenh Call Shell vodainhan 9 843 05-07-18, 09:15 PM
Bài mới nhất: MTNQ

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line