Đánh giá chủ đề:
  • 4 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo Query tạm để xử lý dữ liệu trong VBA
#1
Hỏi: Trước đây em tạo query bằng lưới, nên lúc nào cũng có query tồn tại trong chương trình; bây giờ em học định nghĩa query bằng VBA, để không tồn tại query trong chương trình nữa.Sau khi xử lý xong thì xóa đi

Mã:
Private Sub Command0_Click()
    Dim DB As Database
    ' Dim query1 As QueryDef
    Dim query1 As QueryDef
    Dim SQL1 As String
    SQL1 = "select maso, sum(table2.sotien) as sotien, count(sohd) as slhd from table2 group by maso"
    Set DB = CurrentDb
    Set query1 = DB.CreateQueryDef("query1", SQL1)
    DB.Execute "select query1.maso, table1.ten, query1.sotien, query1.slhd into table3 from query1 left join table1 on query1.maso=table1.maso"
    ' xoa table tam di
    DB.QueryDefs.Delete "query1"
    msgbox " insert Data to table 3 successful"
    Set DB = Nothing

    End Sub

Demo
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn dtv197
#2
CHo mình hỏi. Mình cũng khai báo " Dim DB As Database", nhưng mà Access 2003 lại báo lổi không chấp nhận kiểu database. Chỉ mình cách khắc phục
Chữ ký của pfsvn Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
(17-12-10, 04:01 PM)pfsvn Đã viết: CHo mình hỏi. Mình cũng khai báo " Dim DB As Database", nhưng mà Access 2003 lại báo lổi không chấp nhận kiểu database. Chỉ mình cách khắc phục

Bạn pfsvn chú ý kiểm tra hàm thư viện "Microsoft DAO 3.6 Object Library" đã được chọn chưa

ở cửa sổ VBA vào Tools-> References -> Chọn "Microsoft DAO 3.x Object Library"

Với x tuỳ vào phiên bản Office bạn cài
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn hướng dẫn làm query theo cbobox tieuho828 0 8 8 Giờ trước
Bài mới nhất: tieuho828
  Lọc query có điều kiện để tạo report honglv157 3 164 01-12-16, 05:15 PM
Bài mới nhất: maidinhdan
  [Help] ẩn nút ""Close Windown" khi mở query tronghieu9792 4 87 30-11-16, 09:36 PM
Bài mới nhất: tronghieu9792
Question [Help] Cần giúp đỡ tạo query lấy giá trị của dòng liền trước để tính giá trị trung bình luonguct 4 89 23-11-16, 12:33 AM
Bài mới nhất: luonguct
  Hướng Dẫn hướng dẫn làm query tieuho828 6 151 21-11-16, 12:36 AM
Bài mới nhất: toancvp

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ơ