SQL-запрос в VBScript на основе введенной даты - PullRequest
Новая
       6

SQL-запрос в VBScript на основе введенной даты

0 голосов
/ 17 января 2019

У меня есть VBscript, который запрашивает базу данных, чтобы извлечь данные, основанные на сдвиге, например, Кладбище, день и качели. Мне нужно отрегулировать время на час меньше только в дни, прошедшие 1-6-2019.

Решение, которое я попробовал, заключается в расширении моего оператора if и добавлении функции AND, но это не сработает, потому что первый оператор if все еще имеет значение true. 

dim intCoilCount, intTotalSeconds,intSeconds,strDate,strShift

'SQL="select timeStamp, coil_number, entry_gaptime,thickness,width_in,grade from TABLEEEE by timeStamp"
strShift=Request.Form("SHIFT")
strDate=Request.Form("StartDate")

'if date is greater than 2-22-2006 (switchover date) use SCALEFACTOR
'-----start-----------------
if datediff("d",strDate,cdate("2/22/2006")) <= 0 then
  SCALEFACTOR=30000.0 / 50.0
else
  SCALEFACTOR=1
end if

'-----end-----------------

'Fixed scale factor problem
'-----start-----------------
SCALEFACTOR=1
'-----end-----------------

SQL="select timeStamp, coil_number, entry_gaptime,thickness,width_in,grade from entryCoilData" 
if strShift="graveyard" then
    SQL = SQL & " where timestamp > '" & cdate(strDate)-1 & " " & "11:00PM" & "'" & _
                " and timestamp <= '" & strDate & " " & "7:00AM" & "'"

elseif strShift="graveyard" and strDate >= cdate(1-6-2019) then
    SQL = SQL & " where timestamp > '" & strDate & " " & "10:00AM" & "'" & _
                " and timestamp <= '" & strDate & " " & "2:00PM" & "'"

elseif strShift="day" then
    SQL = SQL & " where timestamp > '" & strDate & " " & "7:00AM" & "'" & _
                " and timestamp <= '" & strDate & " " & "3:00PM" & "'"

elseif strShift="day" and strDate >= cdate(1-6-2019) then
    SQL = SQL & " where timestamp > '" & strDate & " " & "7:00AM" & "'" & _
                " and timestamp <= '" & strDate & " " & "3:00PM" & "'"

else
    SQL = SQL & " where timestamp > '" & strDate & " " & "3:00PM" & "'" & _
                " and timestamp <= '" & strDate & " " & "11:00PM" & "'"
end if

1 Ответ

0 голосов
/ 18 января 2019

Я бы убрал эту досадную логику из строки SQL и сделал бы это в vbscript.Примерно так (не проверено): 

dim givendate, startdatetime, enddatetime
givendate = cdate(strDate)
startdatetime = CDate(strDate & " " & "3:00PM")
enddatetime = CDate(strDate & " " & "11:00PM")

if strShift="graveyard" then
    if givendate >= cdate("1-6-2019") then
        startdatetime = CDate(strDate & " " & "10:00AM")
        enddatetime = CDate(strDate & " " & "02:00PM")
    else
        startdatetime = DateADD("d", -1, CDate(strDate & " " & "11:00PM"))
        enddatetime = CDate(strDate & " " & "07:00AM")
    end if
end if

if strShift="day" then
    startdatetime = CDate(strDate & " " & "07:00PM")
    enddatetime = CDate(strDate & " " & "03:00PM")
end if

SQL="SELECT timeStamp, coil_number, entry_gaptime,thickness,width_in,grade from entryCoilData" 
SQL = SQL & " WHERE timestamp > '" & startdatetime  & "'"
SQL = SQL & " AND timestamp <= '" & enddatetime  & "'"

response.write(SQL)

Таким образом, вы просто вычисляете параметры startdatetime и enddatetime и выполняете один и тот же SQL для каждого случая.

Обратите внимание, что при написанииОператоры SQL в ASP оставляют вас уязвимыми для атак SQL-инъекций .

Возможно, вы захотите также написать строки даты в формате ISO (гггг-мм-дд), так что база данных всегда будетпонять дату.Когда вы используете cdate("1-6-2019"), это может быть первое июня или шестое января, в зависимости от того, как настроена ваша база данных или ОС.Когда вы используете cdate("2019-6-1"), это в первую очередь понимается как июнь.

...