Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thay Query bằng SQL trong VBA
#1
Kính gửi các bạn trên diễn đàn.
Mình có một nỗi niếm mong mọi người chia sẻ
Trong Access Query là một câu lệnh SQL vậy có cách nào minh viết câu lệnh SQL vào trong code VBA hay không
Ví dụ có bảng TBHocsinh khi muốn truy xuất trong một query QLochocsinh Query nay lọc những học sinh nam
Nếu sử dụng query thò trong file của mình hiện hữu một thằng query không có tính bảo mật.
Nếu sử dụng câu lệnh SQl mình có thể bo di cai Query được không?
Minh lấy ý tưởng như thể này
Viết một thư tục
Lọc học sinh
Sub private lochocsinh
Dim Strsql as string
StrSQl ="Select * From TBhocsinh whre Goitinh =nam"
Dim tb as rcordset
Set tb =current db .openrcordret("Strsql",dbopendynaset)
Do until tb.EOF
Truy vấn ,.....
exit do
loop
tb.move next
end sub
Như vậy co đươc không các bạn nhỉ
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com website:http://www.tantrivietsoft.com/
Reply
Những người đã cảm ơn
#2
Mã PHP:
Sub LocHS()
    
Dim rs As Recordset
    Set rs 
CurrentDb.OpenRecordset("Select * From tblHocSinh Where GioiTinh = 'Nam')
    ------
End Sub 

1/ Viết ngay câu truy vấn, không cần định nghĩa biến StrSQL làm chi cho dài dòng. Cái này nói nhiều rồi
2/ Lưu ý khi viết phải viết cho đúng chính tả, ngữ pháp và nhất là các câu lệnh của Access để tránh nhầm lẫn
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
lam như vậy là bỏ luôn cai query phai không anh thành
em cảm ơn anh!
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com website:http://www.tantrivietsoft.com/
Reply
Những người đã cảm ơn
#4
Em có 1 subform và 1 combobox trên cùng 1 form, bây giờ khi thay đổi giá trị trên combobox thì sẽ có 1 query chạy để truy xuất tương ứng với giá trị của combobox đã lựa chọn để đưa kết quả truy vấn hiển thị lên subform, vậy có cách nào để chạy điều này hoàn toàn bằng code không anh XuanThanh vì hiện tại em vẫn phải tạo 1 query rồi sau khi đóng form lại thì lại xóa đi

Mã PHP:
Private Sub Form_Load()
Dim i As Integer
0
Do
    
Me.Combo50.AddItem (T(i))
    
1
Loop Until T
(i) = ""
Dim Queryadd1 As QueryDef
Dim SQL1 
As String
    SQL1 
"SELECT T_ThongtinBTN.MaCG, T_ThongtinBTN.MaBTN, T_ThongtinBTN.LoaiBTN FROM T_ThongtinBTN where T_ThongtinBTn.MaCG = [forms]![F_Xemthongtintheodanhsach]![combo50];"
    
Set Queryadd1 CurrentDb.CreateQueryDef("Queryadd1"SQL1)
    
Me.Child68.SourceObject "Query.Queryadd1" Khi câu lệnh này thực hiện sẽ xuất hiện 1 query trên bảng list query và em không muốn điều này xảy ra )
   
' Me.LocTTCN

End Sub 
Chữ ký của janzychip Xin chào, mình là janzychip, Tham gia http://thuthuataccess.com/forum từ ngày 14-03 -12.
Reply
Những người đã cảm ơn
#5
....
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(SQL1)
Me.Child68.RowSource = rs
....

1/ Khi load form, chỉ cập nhật cho combobox
2/ Khi chọn combobox mới thực thi câu SQL
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn janzychip
#6
Vấn đề là Subform không có thuộc tính rowsource như là combobox anh ạ mà chỉ có SourceObject. Vậy thì có cách nào hiển thị kết quả truy vấn lên subform khác hoặc còn cách nào khác để thể hiện truy vấn nhiều field không ạ?
Chữ ký của janzychip Xin chào, mình là janzychip, Tham gia http://thuthuataccess.com/forum từ ngày 14-03 -12.
Reply
Những người đã cảm ơn
#7
Sory bạn nhé vì viết vội nên nhầm. Chính xác phải là RecordSource. Thành thật xin lỗi bạn
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn janzychip
#8
Bạn cũng có thể đặt giá trị Property Data của Subform
Link Child Field: MaCG
Link Master Field: combo50
Mỗi khi bạn thay đổi giá trị combo50. Subform sẽ được lọc MaCG theo giá trị của combo50.
Cực kỳ đơn giản phải không bạn.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn janzychip , dinhnhieu
#9
Cảm ơn ý kiến của 2 anh, em đã làm thử cách của anh Tranthanhan khi em set property trên form design thì nó xuất hiện lỗi " Cant link between ubound form" . Em không hiểu lắm về lỗi này?
Chữ ký của janzychip Xin chào, mình là janzychip, Tham gia http://thuthuataccess.com/forum từ ngày 14-03 -12.
Reply
Những người đã cảm ơn
#10
(24-11-14, 05:29 PM)janzychip Đã viết: Cảm ơn ý kiến của 2 anh, em đã làm thử cách của anh Tranthanhan khi em set property trên form design thì nó xuất hiện lỗi " Cant link between ubound form" . Em không hiểu lắm về lỗi này?

Cái lỗi đó là do control của bạn không có nguồn dữ liệu (unbound)
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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lọc query có điều kiện để tạo report honglv157 3 161 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
  Xóa dữ liệu ở các bảng ChiMai 6 126 17-11-16, 05:12 PM
Bài mới nhất: Trần Linh

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ơ