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:
- Anh em cho em xin cơ sở dữ liệu của một chương trình kế toán kho với!
- Ai giúp mình với nhỉ? Sao không ai giúp vậy :(
- Làm sao để tắt chế độ Read Only khi mở file Access qua mạng Lan ?
- Xin hướng dẫn cách nhập số vào textbox
- chuyển report access sang excel
- chế độ xem form, report trong access
- Chuyên đề Access nâng cao - Viết các Function(Hàm) trong Modules - CSDL là Sổ Quỹ Tiền Mặt
- Query khó đây thử sức nha
- Lỗi khi import dữ liệu vào table
- Hướng dẫn Treeview
-
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
Tương tự như các sản phẩm bao cao su bình thường, thay vì được sinh sản bằng chất liệu mủ cao su tự nhiên thì bcs đôn dên lại có chất liệu silicone y tế đảm bảo an toàn cho da, không gây kích ứng khi...
Bao đôn dên có rung đầu nối dài thêm chim của đàn ông thêm 6cm