Thay Query bằng SQL trong VBA
tt1212 > 23-07-13, 01:26 PM
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ỉ