Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Viết code để xử lý query
#1
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
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#3
(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
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#4
Để đổ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 đâythêm dấu "..."
DoCmd.RunSQL strSQL 

Bạn làm tương tự cho các query còn lại.
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 cannguyen , Che_Guevara
#5
(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 đâythê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?
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#6
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 '&'.
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 Che_Guevara
#7
(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
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#8
(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
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#9
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.
Chữ ký của haidc Xin chào, mình là haidc, Tham gia http://thuthuataccess.com/forum từ ngày 16-07 -12.
Reply
Những người đã cảm ơn cannguyen
#10
Ở máy tôi thì chạy tốt. Bạn xóa table T3 rồi chạy form 2 xem.
File Demo
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 265 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  Query hiện lên trên form? feeling 4 165 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,348 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82
  [Lỗi] Lỗi code event! toancvp 18 1,039 07-07-16, 01:36 AM
Bài mới nhất: maidinhdan
  [Hỏi] Gõ dấu tiếng Việt trong code cannguyen 2 134 25-05-16, 02:41 PM
Bài mới nhất: cpucloi

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ơ