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:
- ACCESS: tìm kiếm và xóa file bằng VBA!
- Làm sao Combobox lấy dữ liệu cột thứ 2 của bản
- Xuất dữ liệu từ Access ra Excel
- Trợ giúp cách trừ lùi trong Access
- dữ liệu ngày trả về quý
- Giúp mình cập nhập dữ liệu tự động
- Tìm kiếm với hai điều kiệm trong 1textbox
- Tách chữ trong một dòng thành hai dòng?
- chế độ xem form, report trong access
- xuất table access sang nhiều sheet excell
-
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
Volkswagen Touareg được nhập cảng từ nhà máy Bratislava ở Slovakia, nơi duy nhất lắp ráp mẫu xe này, cùng với sản phẩm hạng sang Audi Q7 và Porsche Cayenne. Bộ ba sản phẩm lovense lush "anh em" là...
SUV "khủng bố" chiếm thế phân khúc xe sang cho phái mạnh