OLÁ PESSOAL. SOU INICIANTE EM ASP E ME METI A DESENVOLVER UM SISTEMA ONDE TRABALHO. TRABALHO EM UMA ESCOLA ESTADUAL E CREI UMA BASE DE DADOS NO ACCESS CHAMADO DOCENTE. TEM A TABELA CAD_FUNC COM VÁRIOS CAMPOS. CRIEI UMA OUTRA TABELA CHAMADA MOVIMENTO ONDE DIGITO AS AUSÊNCIAS DO PROFESSOR.
FIZ UM SISTEMINHA EM ASP PARA QUE O PROFESSOR SABER QUAL OU QUAIS SÃO AS SUAS FALTAS. TIPO EXTRATO BANCÁRIO. MAS É AI QUE TA. QUANDO DIGITO A DATA INICIAL E A DATA FINAL. NÃO APARECE NADA, MAS O REGISTRO TA NO BD.
VEJA O CÓDIGO. SÃO DOIS ARQUIVOS. DENOMINEI OS NOMES PARA TESTES.
Pergunta
JOSE CARLOS_FROTA
OLÁ PESSOAL. SOU INICIANTE EM ASP E ME METI A DESENVOLVER UM SISTEMA ONDE TRABALHO. TRABALHO EM UMA ESCOLA ESTADUAL E CREI UMA BASE DE DADOS NO ACCESS CHAMADO DOCENTE. TEM A TABELA CAD_FUNC COM VÁRIOS CAMPOS. CRIEI UMA OUTRA TABELA CHAMADA MOVIMENTO ONDE DIGITO AS AUSÊNCIAS DO PROFESSOR.
FIZ UM SISTEMINHA EM ASP PARA QUE O PROFESSOR SABER QUAL OU QUAIS SÃO AS SUAS FALTAS. TIPO EXTRATO BANCÁRIO. MAS É AI QUE TA. QUANDO DIGITO A DATA INICIAL E A DATA FINAL. NÃO APARECE NADA, MAS O REGISTRO TA NO BD.
VEJA O CÓDIGO. SÃO DOIS ARQUIVOS. DENOMINEI OS NOMES PARA TESTES.
TRES.HTML
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>CONSULTA DO CADASTRO DOCENTE</title>
</head>
<body>
<div style="position: absolute; width: 390px; height: 18px; z-index: 1; left: 241px; top: 12px" id="camada1" align="center">
<font face="Arial Narrow" color="#FF0000">CONSULTA DO CADASTRO DOCENTE</font></div>
<div style="position: absolute; width: 290px; height: 100px; z-index: 2; left: 241px; top: 61px" id="camada2">
<form method="POST" action="extrato.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<p><font face="Arial Unicode MS">Digite o RG: </font>
<font face="Arial Unicode MS">
<!--webbot bot="Validation" s-data-type="Number" s-number-separators="x," --><input type="text" name="rg" size="18"></font></p>
<table border="1" width="100%" id="table1" style="border-width: 0px">
<tr>
<td style="border-style: none; border-width: medium" width="130">
<font face="Arial Unicode MS">Data Início</font></td>
<td style="border-style: none; border-width: medium">
<font face="Arial Unicode MS">
<input type="text" name="dti" size="20"></font></td>
</tr>
<tr>
<td style="border-style: none; border-width: medium" width="130">
<font face="Arial Unicode MS">Data Final</font></td>
<td style="border-style: none; border-width: medium">
<font face="Arial Unicode MS">
<input type="text" name="dtf" size="20"></font></td>
</tr>
</table>
<p><input type="submit" value="Enviar" name="B1"></p>
</form>
<p> </div>
</body>
EXTRATO.ASP
<%
Option Explicit
'-------------------------------------------
'---- Generated by the ASP Table Wizard ----
'---- http://www.paulsimmons.com ----
'-------------------------------------------
Response.Write(ConverterDataBanco(Date()))
Dim iCount
Dim sRowColor
Dim objDB
Dim objRS
Dim sDBName
Dim rgi
Dim rdti
Dim rdtf
rgi = Request.Form("rg")
rdti = Request.Form("dti")
rdtf = Request.Form("dtf")
'TODO: Verify database path...
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=E:\home\marlenefratt\dados\CADASTRO.mdb"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName
'TODO: Modify the next line to only return the records you want...
Set objRS = objDB.Execute("select * from MOVIMENTO where COD_FUNC = "& rgi &" and DATA Between "& rdti &" and "& rdtf &" ORDER BY DATA")
Response.Write("<html>")
Response.Write("<head>")
Response.Write("<title>Extrato de Ausências</title>")
Response.Write("</head>")
Response.Write("<body bgcolor=white>")
Response.Write("<p><center><font face=Arial Narrow Size =2>Extrato das Ausências</font></p>")
Response.Write("<p><center><font face=Arial Narrow>RG</font></p>")
Response.Write("<p><center><font face=Arial Narrow>Período Inicial:</font></p>")
Response.Write("<p><center><font face=Arial Narrow>Período Final:</font></p>")
If objRS.EOF Then
Response.Write("<b>No matching records found.</b>")
objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing
Response.End
End If
Response.Write("<center><table border=0 cellpadding=2 cellspacing=2>")
Response.Write("<tr bgcolor=silver>")
'COOL TIP: the <filter> tag is used by Excel 97 and later...
'if your users save this file from the browser and open it in XL, XL will
'parse all the table cells into XL ranges and turn on filtering...
Response.Write("<CENTER><th filter=ALL>DATA</th>")
Response.Write("<th filter=ALL>MOTIVO</th>")
Response.Write("<th filter=ALL>PERIODO</th>")
Response.Write("<th filter=ALL>E.F.</th>")
Response.Write("<th filter=ALL>E.M.</th>")
Response.Write("<th filter=ALL>EVENTUAL</th>")
Response.Write("</tr>")
Do While Not objRS.EOF
'this code alternates the color of the table rows...
iCount = iCount + 1
If iCount Mod 2 = 0 Then
sRowColor = "skyblue"
Else
sRowColor = "#C4CEE5"
End If
Response.Write("<tr bgcolor=" & sRowColor & ">")
Response.Write("<td>" & objRS("DATA") & "</td>")
Response.Write("<td>" & objRS("NOMEAUSENCIA") & "</td>")
Response.Write("<td>" & objRS("PERIODO") & "</td>")
Response.Write("<td>" & objRS("EFAULAS") & "</td>")
Response.Write("<td>" & objRS("EMAULAS") & "</td>")
Response.Write("<td>" & objRS("NOM_FUNC") & "</td>")
Response.Write("</tr>")
objRS.MoveNext
Loop
Response.Write("</table>")
Response.Write("</body>")
Response.Write("</html>")
objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing
%>
SE EU TIRAR O BETWEEN ELE FUNCIONA, MAS TRAS TODAS AS AUSÊNCIAS. EU QUERO QUE ELE MOSTRE SOMENTE AS AUSÊNCIAS DO PERIODO DESEJADO.
DESCULPE, MAS COMO DISSE, AINDA CAMINHA A PASSOS LENTOS.
SE ALGUÉM PUDER ME SOCORRER, AGRADEÇO
Link para o comentário
Compartilhar em outros sites
12 respostass a esta questão
Posts Recomendados
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.