Ir para conteúdo
Fórum Script Brasil
  • 0

Sql

fantasma

Perguntado por fantasma,

 Share

Pergunta

fantasma

fantasma

Postado
Postado

Set objRS8 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ")

If objRS8.EOF Then

Response.Write("<b>Não existe esta data no banco de dados Gestão</b>")

objRS8.Close

objDB.Close

Set objRS8 = Nothing

Set objDB = Nothing

Response.End

End If

datagestao=objrs8("data")

dia=day(datagestao)

mes=month(datagestao)

ano=year(datagestao)

data_certa_gestao = dia&"/"&mes&"/"&ano

Do While Not objRS8.EOF

response.write("<tr bgcolor=#FFFFFF>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredperiodo_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("matricula_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS8("requiredrefeicao_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredGrupo") & "</td>")

response.write("<tr>")

objRS8.MoveNext

Loop

Set objRS5 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ")

If objRS5.EOF Then

Response.Write("<b>Não existe esta data no banco de dados da Rede Local</b>")

objRS5.Close

objDB.Close

Set objRS5 = Nothing

Set objDB = Nothing

Response.End

End If

datagestao=objrs5("data")

dia=day(datagestao)

mes=month(datagestao)

ano=year(datagestao)

data_certa_gestao = dia&"/"&mes&"/"&ano

Do While Not objRS5.EOF

response.write("<tr bgcolor=#FFFFFF>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredperiodo_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("matricula_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS5("requiredrefeicao_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredGrupo") & "</td>")

response.write("<tr>")

objRS5.MoveNext

Loop

Response.Write("</table>")

objRS5.Close

Set objRS5 = Nothing

end if

%>

como faço para executar a parte de baixo do script. pois quando não tem a data no objrs8 o script para.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado

da uma olhada se é isso:

Set objRS8 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ")

If not objRS8.EOF Then

  datagestao=objrs8("data")

  dia=day(datagestao)

  mes=month(datagestao)

  ano=year(datagestao)

  data_certa_gestao = dia&"/"&mes&"/"&ano

  Do While Not objRS8.EOF

      response.write("<tr bgcolor=#FFFFFF>")

      Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

      Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredperiodo_1") & "</td>")

      Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("matricula_1") & "</td>")

      Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS8("requiredrefeicao_1") & "</td>")

      Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredGrupo") & "</td>")

      response.write("<tr>")

      objRS8.MoveNext

  Loop

else

  Response.Write("<b>Não existe esta data no banco de dados Gestão</b>")

  objRS8.Close

  objDB.Close

  Set objRS8 = Nothing

  Set objDB = Nothing

End If

Set objRS5 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ")

If objRS5.EOF Then

Response.Write("<b>Não existe esta data no banco de dados da Rede Local</b>")

objRS5.Close

objDB.Close

Set objRS5 = Nothing

Set objDB = Nothing

Response.End

End If

datagestao=objrs5("data")

dia=day(datagestao)

mes=month(datagestao)

ano=year(datagestao)

data_certa_gestao = dia&"/"&mes&"/"&ano

Do While Not objRS5.EOF

response.write("<tr bgcolor=#FFFFFF>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredperiodo_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("matricula_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS5("requiredrefeicao_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredGrupo") & "</td>")

response.write("<tr>")

objRS5.MoveNext

Loop

Response.Write("</table>")

objRS5.Close

Set objRS5 = Nothing

end if

%>

Link para o comentário
Compartilhar em outros sites
  • 0
fantasma

fantasma

Postado
  • Autor
Postado

Set objRS8 = objDB.Execute ("SELECT * FROM gestao where cdate(DATA) ='"& data_certa &"' ")

If not objRS8.EOF Then

datagestao=objrs8("data")

dia=day(datagestao)

mes=month(datagestao)

ano=year(datagestao)

data_certa_gestao = dia&"/"&mes&"/"&ano

Do While Not objRS8.EOF

response.write("<tr bgcolor=#FFFFFF>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredperiodo_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("matricula_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS8("requiredrefeicao_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredGrupo") & "</td>")

response.write("<tr>")

objRS8.MoveNext

Loop

else

Response.Write("<b>Não existe esta data no banco de dados Gestão</b>")

objRS8.Close

objDB.Close

Set objRS8 = Nothing

Set objDB = Nothing

End If

Set objRS5 = objDB.Execute ("SELECT * FROM redelocal where cdate(DATA) ='"& data_certa &"' ")

If objRS5.EOF Then

Response.Write("<b>Não existe esta data no banco de dados da Rede Local</b>")

objRS5.Close

objDB.Close

Set objRS5 = Nothing

Set objDB = Nothing

Response.End

End If

datagestao=objrs5("data")

dia=day(datagestao)

mes=month(datagestao)

ano=year(datagestao)

data_certa_gestao = dia&"/"&mes&"/"&ano

Do While Not objRS5.EOF

response.write("<tr bgcolor=#FFFFFF>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredperiodo_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("matricula_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS5("requiredrefeicao_1") & "</td>")

Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredGrupo") & "</td>")

response.write("<tr>")

objRS5.MoveNext

Loop

Response.Write("</table>")

objRS5.Close

Set objRS5 = Nothing

end if

*******ta dando este erro, não esta executando a 2º consulta

Error Type:

Microsoft VBScript runtime (0x800A01A8)

Object required

/aescalaplantao/listateste.asp, line 356

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...