Valor em branco

[Clauido José]

Ola pessoal to com um probleminha aparentemente facil mas que ta me quebrando a cabeça

Tenho uma tabela onde tem uma campo horainico, quando entro no sistema ele tem que verificar se a hora ta em branco se tiver ele faz um update com a hora do sistema.

Só que mesmo que o campo estiver em branco ele não entra não rotina já dei um response.write pra ver o valor do banco ele aparece em branco.

Segue o codigo:

sHoraInicio=rsBaixaOs("HoraInicio")

if trim(sHoraInicio) = "" or trim(sHoraInicio) = empty then

Sql = "Update tabDth set HoraInicio='" & time() & "'"

Sql = Sql & " WHERE NoOs=" & NoOs & " and DatCompromisso='" & (Data) & "'"

Response.Write(sql)

Response.End()

Conexao.Execute(Sql)

Sql = "SELECT * FROM tabDth WHERE NoOs=" & NoOs & " and DatCompromisso='" & (Data) & "'"

if rsBaixaOs.state = 1 then rsBaixaOs.Close

rsBaixaOs.Open Sql, Conexao, 1,1

elseif trim(rsBaixaOs("HoraInicio")) = "" or trim(rsBaixaOs("HoraInicio")) = empty then

sHoraInicio="teste"&rsBaixaOs("HoraInicio")

end if

[bareta]

hum....

if trim(sHoraInicio) = "" or trim(sHoraInicio) = empty then

não seria algo como

is null / null

uma hora preenchida teria ao menos 6 digitos certo! 0:0:0

if len(shoraInicio) <6  then

[Clauido José]

tentei o isnull ou len não funcionou continua sem fazer a atualização como se tivesse campo preenchido

[Rafael Spilki]

Eu faria algo do tipo:

If rsBaixaOs.eof then

'suas instruções de update

end if

[bareta]

na verdade se analisa o cod mesmo,,, o dado vem de um rs lá em cima, passa num if ... fecha o rs abre o outro com o mesmo nome faz a mesma verificação de novo...

um tanto confuso

[Rafael Spilki]

É verdade... imaginei que tivesse uma continuação pra cima... mas nem li todo script... ta confuso mesmo... até me perdi nos nomes do rs...

[DeeKilleer]

sHoraInicio=rsBaixaOs("HoraInicio")
   If Not Trim(sHoraInicio)
         Sql = "Update tabDth set HoraInicio= GetDate()
         Sql = Sql & " WHERE NoOs=" & NoOs & " and DatCompromisso='" & (Data) & "'"
         Response.Write(Sql)
         Response.End()
         Conexao.Execute(Sql)
    End If
    Sql = "SELECT * FROM tabDth WHERE NoOs=" & NoOs & " and DatCompromisso='" & (Data) & "'"
     If rsBaixaOs.state = 1 Then 
        rsBaixaOs.Close
        rsBaixaOs.Open Sql, Conexao, 1,1
     ElseIf Not Trim(rsBaixaOs("HoraInicio"))
         sHoraInicio="teste"&rsBaixaOs("HoraInicio")
     End If

Tenta iSso!

[Clauido José]

não funciono ainda o gozado é que no recordset traz a hora em branco mas não faz atualização da hora.