Chủ đề: Giúp câu lệnh "Between...and..."
-
07-17-2010, 12:09 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Giúp câu lệnh "Between...and..."
Trong Access, tui có 1 query với câu lệnh SQL như sau:
SELECT [T1].NGAY, [T1].KHACH, [T1].GIATRI
FROM [T1]
WHERE ((([T1].NGAY) Between [Forms]![F1]![tungay] And [Forms]![F1]![denngay]) AND (([T1].KHACH)=[Forms]![F1]![KHACHX]));
Trong code khi muốn xét:
Dim rs as Recodeset
Set rs = CurrentDb.OpenRecodeset ("...")
Như vậy, tui muốn đặt câu lệnh SQL trên vào dấu "..." thì viết như thế nào?
Nhờ các ace giúp đở. Cám ơn nhiều!View more random threads:
- TIP : Ẩn Table trong ACCESS .
- Menu trong Access 2007
- Thêm dòng trắng cho Report đẹp hơn
- Nút OfficeLink bị disable
- TIP :Cho Access thoát khỏi .... Access !
- Giúp em tạo Form và Form bằng VBA
- Giúp mình về câu lệnh thống kê từ ngày này đến ngày kia
- [hỏi] cập nhập dữ liệu trên sub form
- Tìm kiếm nhiều lựa chọn trong một TextBox
- Tạo form login
-
07-17-2010, 02:38 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Gửi bởi bchip
-
07-17-2010, 03:07 AM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Gửi bởi phatnq2002
Mã nguồn PHP:[COLOR=#000000]
Sub [/COLOR][COLOR=#007700]......() [/COLOR][COLOR=#0000BB]Dim rs [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Recordset Dim sqlS [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]QueryDef Set sqlS [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentDb[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]QueryDefs[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"qryTrich"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Set rs [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]OpenRecordset[/COLOR][COLOR=#007700]() ................ [/COLOR][COLOR=#0000BB]End Sub[/COLOR]
Thân
-
07-17-2010, 06:56 PM #4Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 2
Ðề: Giúp câu lệnh "Between...and..."
Gửi bởi phatnq2002
P/s: Hơn nữa em thấy chuỗi trên có lẽ thiếu dấu # ở trong format "denngay", nhưng khi em thêm dấu # vào máy báo lổi ngay dấu # đó.
-
07-19-2010, 04:55 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Gửi bởi bchip
Dim rs As New Recordset
Dim mstr as String
mstr = "SELECT [T1].NGAY, [T1].KHACH, [T1].GIATRI " & _
" FROM [T1] " & _
" WHERE ([T1].NGAY Between #" & format([Forms]![F1]![tungay],"mm/dd/yyyy") & "# And #" & format([Forms]![F1]![denngay],"mm/dd/yyyy") & "#) AND [T1].KHACH=""" & [Forms]![F1]![KHACHX] & """"
rs.Open mstr, CodeProject.Connection
-
07-19-2010, 06:36 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Gửi bởi bchip
-
07-30-2010, 05:34 AM #7Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Gửi bởi phatnq2002
------------------
P/s: Vì nhiều việc quá nên replay chậm, anh thông cảm.
-
07-30-2010, 07:05 AM #8Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Chắc tại cái dấu chấm than.
mstr = "SELECT [T1].NGAY, [T1].KHACH, [T1].GIATRI " & _
" FROM [T1] " & _
" WHERE ([T1].NGAY Between #" & format([F1].[tungay],"mm/dd/yyyy") & "# And #" & format([F1].[denngay],"mm/dd/yyyy") & "#) AND [T1].KHACH=""" & [F1].[KHACHX] & """"
-
07-30-2010, 07:41 AM #9Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Mình đã áp dụng hết cách trong chủ đề này chỉ rồi, nhưng vẫn chưa được.
Chương trình báo lỗi:
Run-time error '3061':
Too few parameters. Expected 1.
Help help help!
-
07-30-2010, 03:03 PM #10Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Giúp câu lệnh "Between...and..."
Gửi bởi bchipMã nguồn PHP:[COLOR=#000000]
Sub [/COLOR][COLOR=#007700].....() [/COLOR][COLOR=#0000BB]Dim rs [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Recordset Dim sqlS [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]QueryDef Dim NgayDau [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date Dim NgayCuoi [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date NgayDau [/COLOR][COLOR=#007700]=[[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]F1[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]TuNgay[/COLOR][COLOR=#007700]] [/COLOR][COLOR=#0000BB]NgayCuoi [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]F1[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]DenNgay[/COLOR][COLOR=#007700]] [/COLOR][COLOR=#0000BB]KhachNao [/COLOR][COLOR=#007700]=[[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]F1[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]KhachX[/COLOR][COLOR=#007700]] [/COLOR][COLOR=#0000BB]Set sqlS [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentDb[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]QueryDefs[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"qryTrich"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Parameters[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"TuNgay"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]NgayDau sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Parameters[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DenNgay"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]NgayCuoi sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Parameters[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"KhachNao"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]KhachNao Set rs [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]OpenRecordset[/COLOR][COLOR=#007700]() ......... ................ [/COLOR][COLOR=#0000BB]End Sub [/COLOR]
SELECT T1.Ngay, T1.Khach, T1.GiaTri
FROM T1
WHERE (((T1.Ngay) Between [TuNgay] And [DenNgay]) AND ((T1.Khach) Like [KhachNao]));
Thử xem. Âu lá đúng
Thân
Hiện nay, trên mạng cũng có rất nhiều diễn đàn mà cánh nam giới chia sẻ với nhau về nghệ thuật bế tinh và coi đó là bí kíp để gìn giữ sức khỏe và tư thế đàn ông. Tuy nhiên, theo giáo sư Trần Quán...
Tư thế yêu mà không xuất của quý ông. Tác hại như thế nào?