Minh Tiên > 24-06-15, 06:58 PM
maidinhdan > 25-06-15, 11:59 AM
Minh Tiên > 25-06-15, 02:15 PM
maidinhdan > 25-06-15, 03:51 PM
Noname > 25-06-15, 04:05 PM
paulsteigel > 25-06-15, 04:25 PM
(24-06-15, 06:58 PM)Minh Tiên Đã viết: Chào cả nhà !
Tiên đang nghiên cứu ADODB và gặp tình trạng thế này:
Tiên dùng câu Select để lấy các thông tin khoản ngày.
Kết quả:
- Nếu lọc từ ngày 13/05/2015 đến ngày 30/05/2015 thì KQ đúng;
- Nếu lọc từ ngày 01/05/2015 đến ngày 30/05/2015 thì kết quả sai. Hiển thị lọc từ ngày 05/01/2015 đến 30/05/2015.
(Bị hiểu nhầm ngày thành tháng và tháng thành ngày).
Tiên khắc phục dTungay thành format(dTungay,"dd/mm/yyyy") nhưng vẫn ko được.
Nhờ các Pro chỉ giáo cách khắc phục lỗi này !
Câu Tiên dùng:
"Select * from table Where "NgayTim between #" & dTungay & "# And #" & dDenngay & "#"
Cảm ơn nhiều !
Function StringToDate(DateString as String) as Date
'Nhớ dùng chuẩn phân cách là dạng "/" nhé
Dim txtDay as String, txtMonth as string, txtYear as string
Dim xPos1 as long, xPos2 as long
' Lấy vị trí 2 gạch chéo
xPos1=instr(DateString ,"/")
xPos2=instr(DateString ,"/",xPos1+1)
txtDay=Left(DateString,xPos1-1)
txtMonth=Mid(DateString,xPos1+1, xPos2-1)
txtYear=Mid(DateString,xPos2+1)
StringToDate=DateSerial(txtYear,txtMonth,txtDay)
End Function"Select * from table Where "NgayTim between #" & format(StringToDate(dTungay),”mm/dd/yyyy”)
& "# And #" & Format(StringToDate(dDenngay) ,”mm/dd/yyyy”) & "#"Minh Tiên > 26-06-15, 08:51 AM
tt1212 > 26-06-15, 12:52 PM
paulsteigel > 26-06-15, 01:57 PM
(26-06-15, 08:51 AM)Minh Tiên Đã viết: Cảm ơn các Pro đã giúp đỡ. Sau khi thử nghiệm trên nguồn dữ liệu cũ của Tiên, Kết quả:
1. Cách của Bác Nome thì đã chạy OK, lọc đúng yêu cầu;
2. Cách của "paulsteigel": Phát sinh lỗi số 13 (Type mismatch).
Thanks./.
Minh Tiên > 26-06-15, 05:24 PM