• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Viết code để xử lý query

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Viết code để xử lý query
• Viết code để xử lý query

• Viết code để xử lý query

  cannguyen > 10-11-15, 10:25 AM

  Chào các bác. Em đang làm 1 ứng dụng, về mặt ứng dụng thì ok nhưng em dùng quá nhiều query, em muốn viết code cho các nút, Bước 2, 3, 4 thay cho việc tạo hoặc chạy các query đó. Các bạn giúp mình nhé. 
  File đính kèm. Các bạn bấm vào các nút Bước 1,2,3,4 để xem và sửa dùm mình nhé
  https://drive.google.com/file/d/0B7F3oAX...sp=sharing

• RE: Viết code để xử lý query

  vulhu06 > 10-11-15, 11:25 AM

  Lúc trước mấy bác Pro trong diễn đàn có nói về vấn đề này rồi, thực ra mỗi công việc mà xử lý bằng query cũng có sao đâu, đễ quản lý, quan trọng ứng dụng chạy ok thôi. Nếu bạn dùng VBA thì cũng có lúc phải sử dụng docmd.runsql "câu lệnh select "
  Có lần mình tham khảo ứng dụng của bạn nào đó (không nhớ tên) toàn sử dụng qry và macro nhưng Ct chạy ổn lắm

• RE: Viết code để xử lý query

  cannguyen > 10-11-15, 11:49 AM

  (10-11-15, 11:25 AM)vulhu06 Đã viết: Lúc trước mấy bác Pro trong diễn đàn có nói về vấn đề này rồi, thực ra mỗi công việc mà xử lý bằng query cũng có sao đâu, đễ quản lý, quan trọng ứng dụng chạy ok thôi. Nếu bạn dùng VBA thì cũng có lúc phải sử dụng docmd.runsql "câu lệnh select "
  Có lần mình tham khảo ứng dụng của bạn nào đó (không nhớ tên) toàn sử dụng qry và macro nhưng Ct chạy ổn lắm

  
  Mình đang làm đồ án. Nên muốn chuyển qua code để đưa vào báo cáo thì hay hơn

• RE: Viết code để xử lý query

  ongke0711 > 10-11-15, 01:12 PM

  Để đổi Query thành câu lệnh SQL, bạn vô chế độ SQL View của cái query bạn cần chuyển, copy nó.
  Sau đó vô code thay thế dòng Docmd.OpenQuery "Query1" thành:
  

  Mã PHP:

  Dim strSQL As String
strSQL = "SELECT Query1.* INTO T3 FROM Query1;"  <== Paste câu lện SQL vừa copy vào đây, thêm dấu "..."
DoCmd.RunSQL strSQL 


  
  Bạn làm tương tự cho các query còn lại.

• RE: Viết code để xử lý query

  cannguyen > 10-11-15, 01:48 PM

  (10-11-15, 01:12 PM)ongke0711 Đã viết: Để đổi Query thành câu lệnh SQL, bạn vô chế độ SQL View của cái query bạn cần chuyển, copy nó.
  Sau đó vô code thay thế dòng Docmd.OpenQuery "Query1" thành:
  

  Mã PHP:

  Dim strSQL As String
strSQL = "SELECT Query1.* INTO T3 FROM Query1;"  <== Paste câu lện SQL vừa copy vào đây, thêm dấu "..."
DoCmd.RunSQL strSQL 


  
  Bạn làm tương tự cho các query còn lại.

  
  Cám ơn anh, để em thử
  ah, quên: Anh ơi. Với câu lệnh trên thì query1 đã tồn tại rồi. Em muốn dùng code để tạo ta query1 (là hội của bảng T1 và T2) xong mới tiếp tục câu lệnh tạo bảng như của anh thì làm cách nào anh?

• RE: Viết code để xử lý query

  ongke0711 > 10-11-15, 03:25 PM

  Vậy bạn thay chuỗi SQL trên như sau:
  

  Mã PHP:

  strSQL = "SELECT QUNI.Ma, QUNI.Mon1, QUNI.Mon2, QUNI.Mon3, Sqr(([Mon1]-" & Forms![2]!Mon1 & ")^2+([Mon2]-" & Forms![2]!Mon2 & ")^2+([Mon3]-" & Forms![2]!Mon3 & ")^2) AS KC, QUNI.XL, QUNI.GC INTO T3 " & _
"FROM (SELECT * FROM T1 UNION ALL SELECT * FROM T2)  AS QUNI;" 


   
  
  Câu lệnh SQL này thay thế cho 3 cái query của bạn: qr_UNION, Query1, qr_TB
  Bạn chú ý cách lấy tham số từ Form đưa vào câu lệnh SQL. Sử dụng đâu " và dấu '&'.

• RE: Viết code để xử lý query

  cannguyen > 10-11-15, 11:28 PM

  (10-11-15, 03:25 PM)ongke0711 Đã viết: Vậy bạn thay chuỗi SQL trên như sau:
  

  Mã PHP:

  strSQL = "SELECT QUNI.Ma, QUNI.Mon1, QUNI.Mon2, QUNI.Mon3, Sqr(([Mon1]-" & Forms![2]!Mon1 & ")^2+([Mon2]-" & Forms![2]!Mon2 & ")^2+([Mon3]-" & Forms![2]!Mon3 & ")^2) AS KC, QUNI.XL, QUNI.GC INTO T3 " & _
"FROM (SELECT * FROM T1 UNION ALL SELECT * FROM T2)  AS QUNI;" 


   
  
  Câu lệnh SQL này thay thế cho 3 cái query của bạn: qr_UNION, Query1, qr_TB
  Bạn chú ý cách lấy tham số từ Form đưa vào câu lệnh SQL. Sử dụng đâu " và dấu '&'.

  
  
  
  Anh Bảo ơi, kiểm tra lại giúp em. Câu lệnh trên  khi chạy nó không báo lỗi nhưng nó không tạo được ra bảng T3

• RE: Viết code để xử lý query

  cannguyen > 12-11-15, 03:14 PM

  (10-11-15, 03:25 PM)ongke0711 Đã viết: Vậy bạn thay chuỗi SQL trên như sau:
  

  Mã PHP:

  strSQL = "SELECT QUNI.Ma, QUNI.Mon1, QUNI.Mon2, QUNI.Mon3, Sqr(([Mon1]-" & Forms![2]!Mon1 & ")^2+([Mon2]-" & Forms![2]!Mon2 & ")^2+([Mon3]-" & Forms![2]!Mon3 & ")^2) AS KC, QUNI.XL, QUNI.GC INTO T3 " & _
"FROM (SELECT * FROM T1 UNION ALL SELECT * FROM T2)  AS QUNI;" 


   
  
  Câu lệnh SQL này thay thế cho 3 cái query của bạn: qr_UNION, Query1, qr_TB
  Bạn chú ý cách lấy tham số từ Form đưa vào câu lệnh SQL. Sử dụng đâu " và dấu '&'.

  
  Anh Bảo ơi, kiểm tra lại giúp em. Câu lệnh trên  khi chạy nó không báo lỗi nhưng nó không tạo được ra bảng T3

• RE: Viết code để xử lý query

  haidc > 12-11-15, 06:59 PM

  Mình còn một cách khác là tạo một macro chạy tất cả các query (1 dòng trong macro là open 1 query) sau đó convert macro đó sang module. Sau khi có module rồi thì vào đó copy - paste các dòng lệnh vào các code khác thoải mái.

• RE: Viết code để xử lý query

  ongke0711 > 12-11-15, 08:49 PM

  Ở máy tôi thì chạy tốt. Bạn xóa table T3 rồi chạy form 2 xem.
  File Demo
• Bài trước Bài tiếp