Đá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
  Điều chỉnh dữ liệu trong Query Union DooHoaangPhuuc 6 209 15-03-18, 10:43 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Sự ổn định của UNION QUERY ???? vkaccess 2 206 07-02-18, 08:51 PM
Bài mới nhất: vkaccess
  [Hỏi] Tìm giá trị trong một khoảng (định nghĩa trong table khác) Helios_1985 4 282 03-02-18, 11:54 AM
Bài mới nhất: khải nguyên
  [Hỏi] Cấu trúc query với các table trên sqlserver đã link vào access mrsiro 7 735 05-12-17, 11:46 PM
Bài mới nhất: maidinhdan
  [Help] Hướng dẫn query thi đua, kết quả thi đua thanhhau828 11 666 03-12-17, 06:06 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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line