안녕하세요? 하다하다 안되서 이렇게 글을 올립니다.
기존 DB에 같은 날 같은 시간대에 예약이 있는지 없는지를 체크해서
튕겨주거나...예약이 가능하겠금 해야 합니다.
예를 들어......
2016-11-20 12:00 부터 15:00 까지 예약이 있다면(기존 DB에 있다면)
같은 날 저 시간대에 걸리는 시간을 선택한
사람은 예약이 안된다는 메세지를 뿌려줘야 합니다.
예를 들자면....................
12:30~16:00 예약불가, 10:30~12:30 예약불가, 14:30~17:00 예약불가 !!!
11:00~12:00 예약가능, 15:00~17:00 예약가능!!!
거의 접근한거 같은데 아래 코드의 문제는
기존 DB에 있는 시작시간과 끝시간을 동일하게 하거나 안쪽 시간으로 사용자가 선택하면
예약이 되버립니다...ㅠㅠ (원래는 예약이 되지 말아야 합니다.)
도움좀 부탁드리겠습니다....PLZ~~~
================================================================================
txtDate = request("H_Y") & "-" & request("H_M") & "-" & request("H_D") '날짜를 받습니다.
S_T = request("S_T") '이하 시간을 받습니다.
S_M = request("S_M")
E_T = request("E_T")
E_M = request("E_M")
S2 = S_T & S_M
E2 = E_T & E_M
'############# 예약에서 DB에 입력되어 있는 앞과 뒤의 분단위가 겹치지 않기위해 이하처리
if S_M = "00" then '/////// S_M을 +1
S_M = "01"
else if S_M = "30" then
S_M = "31"
else
end if
end if
if E_M = "00" then '//////////// E_M을 -1분씩
E_T = E_T-1 '시간은 -1
E_M = "59"
else if E_M = "30" then
E_M = "29"
else
end if
end if
S = S_T & S_M
E = E_T & E_M
SS = Cint(S)
EE = Cint(E)
' ############## 예약날짜 겹치는 지 확인하는 Select 구문 / BETWEEN을 썼습니다
SQL = "SELECT * FROM R_TEST WHERE txtDate = '"&txtDate&"' AND (S BETWEEN '"&SS&"' AND '"&EE&"' OR E BETWEEN '"&SS&"' AND '"&EE&"')"
set rs = server.createobject("adodb.recordset")
rs.open sql,DB,1
'해당 총 컬럼
recordCnt = rs.RecordCount
'### 예약 가능여부 체크 / 컬럼이 1개나 1개 이상이면 선택한 날짜와 시간에 예약이 이미 있다는 거!!!!
if recordCnt=1 or recordCnt>1 then
예약불가
else
예약가능
end if
==========================================================
다시 한번 검토좀 부탁드립니다.
500
6,077
2016-04-16 08:16:20
닉네임
sese24
