VBScript условное короткое замыкание обходной путь
Возможно, вы не запустили свой Mysql и Apache Server. После того, как я запустил сервер Apache и Mysql из панели управления XAMPP, соединение было успешно установлено.
Удачи!
7 ответов
Возможно, не лучший способ, но это, конечно, работает... Кроме того, если Вы находитесь в vb6 или .NET, у Вас могут быть различные методы, которые бросают к надлежащему типу также.
if cint( getVal( rs("blah"), "" ) )<> 0 then
'do something
end if
function getVal( v, replacementVal )
if v is nothing then
getVal = replacementVal
else
getVal = v
end if
end function
Был бы это, там были, мой друг - TernaryOp является Вашей единственной надеждой.
Я всегда использовал Избранные Операторы выбора для срывания логики в VB. Что-то как..
Select Case True
Case isNull(Rs("myField"))
myField = 0
Case (Rs("myField") <> 0)
myField = Rs("myField")
Case Else
myField = -1
End Select
Мой синтаксис может быть выключен, некоторое время. Если первый случай появляется, все остальное проигнорировано.
Да это не лучшее решение, но что мы используем, что-то вроде этого
function ReplaceNull(s)
if IsNull(s) or s = "" then
ReplaceNull = " "
else
ReplaceNull = s
end if
end function
Вложенная IFS (незначительно менее подробный):
if not isNull(Rs("myField")) Then
if Rs("myField") <> 0 then
Или возможно я получил неправильный конец вопроса. Вы имели в виду что-то как iIf() в VB? Это работает на меня:
myField = returnIf(isNothing(rs("myField")), 0, rs("myField"))
, где returnIf() функция как так:
function returnIf(uExpression, uTrue, uFalse)
if (uExpression = true) then returnIf = uTrue else returnIf = uFalse : end if
end function
Две опции приходят на ум:
1) использование len() или lenb(), чтобы обнаружить, существуют ли какие-либо данные в переменной:
if not lenb(rs("myField"))=0 then...
2) используют функцию, которая возвращает булевскую переменную:
if not isNothing(rs("myField")) then...
, где isNothing() функция как так:
function isNothing(vInput)
isNothing = false : vInput = trim(vInput)
if vartype(vInput)=0 or isEmpty(vInput) or isNull(vInput) or lenb(vInput)=0 then isNothing = true : end if
end function