Đá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
  [Help] Query "Grop by" công dồn ngày HoangManh 3 113 23-03-17, 10:37 PM
Bài mới nhất: ongke0711
  Hướng Dẫn Query cấp phát quần áo cho công nhân tieuho828 10 416 15-02-17, 10:36 AM
Bài mới nhất: tieuho828
  Hướng Dẫn hướng dẫn làm query theo cbobox tieuho828 3 169 03-01-17, 03:54 PM
Bài mới nhất: cpucloi
  [Hỏi] Câu lệnh để tìm max tại criteria trong query khongcodit 8 411 23-12-16, 12:05 AM
Bài mới nhất: ongke0711
  [Hỏi] Hỏi Query tính giá trị trung bình luonguct 2 131 17-12-16, 07:21 PM
Bài mới nhất: ongke0711

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ơ