bolomaster

Kro colega perfeito funcionou direito ai muito obrigado Moderador já pode fechar este tópico

http://www.clubedelphi.com.br http://www.delphi.eti.br http://www.activedelphi.com.br http://www.delphibr.com.br Espero que em algum destes tenha sua procura Abraços

usa a funçao date() abraços

cara já tentou usar uma session ? pode funcionar ficaria mais ou menos assim Select * FROM tblEmeb WHERE nome = '"Session("busca")"'" abraços

cara já passei por algo parecido, o problema é o seguinte alguns servidores, tem lugares especificos para colocarem seus bancos de dados .. pode ser isso mas no caso que aconteceu comigo foi assim eu tinha um pasta db, local e a pasta db no servidor, então eu chamava o banco da seguinte forma Server.MapPaht = ".../.../arquivos/db/banco.mdb" no caso isso era local quando eu fui testar no servidor teve que ser assim Server.MapPath="arquivos/db/banco.mdb" entendeu Abraços e espero ter ajudado Fui

Fala galera esperta deste forum ai é o seguinte eu tenho um pagina... e to tentando fazer o seguinte tenho um form sempre que as informaçoes do form são enviadas ele abre a janelinha da resposta foi assim que eu fiz <script> function respcontato() { nj=window.open("","minijan","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=450,height=120"); nj.document.open(); }</script> dai no form eu chamo assim <form name="form1" method="post" action="enviarcontato.asp" target="minijan" onSubmit="respcontato()"> So que logo apos passar as informaçoes. eu gostaria que a pagina do formulario atualizasse alguém sabe como é? Porque tipo abre a janelinha, de confirmaçao mas os dados continuam na pagina do form ... e tipo não ta legal.. Abraços

Qual o problema? da alguma mensagem de erro?

Bem existe uma ferramenta, tanto para win quanto para o linux, chamada chillisoft, bem ele faz com que o apache funcione como um IIS, so que com muitas limitaçoes, eu tenho o chilli para o linux tentei fazer funcionar, é muito complicado, demorou mas consegui, eu tenho a impressao, que é ilegal porque o asp é pago e o iis também, e tipo o chilli não tem a tal assinatura digital da microsoft, talvez seja por isso abraços

Salve grande galera, realmente o forum ta perdendo muito com a saida do grande companheiro, Mas ele sabe que toda a familia SB, ou seja, nós, estamos sempre aqui e sempre precisando de uma ajudar e ajudando esse nosso grande parceiro que é o companheiro Urso, Bem eu gostaria de indicar o [Guto], porque sei que o garoto tem capacidade e futuro, dentro da area Abraços a todos ... e Urso Amigao tamos ai pro que der e vier..

o que você precisa na verdade como faz ? ou como corrigir erros ? Ai eu aconselho a você criar um query e gerar o relatorio atraves dela se tiver alguma duvida de como é que você vai criar a query é so postar.. e nos te ajudamos abraços

cara no site http://www.clubedelphi.com.br e no site http://delphibr.com.br Vi umas coisas assim tem um programa .. tipo keyloger abraços

cara você já olhou o post sobre o Locate? posta a unit para eu ver abraços Rafael Marciano

Meu mete bronca, cara te ajudamos, sim, mas a nossa ajuda foi abrir horizontes para você aprender e não fazer para vc, tenho certeza, que você consegue.. vamos lá abraçe esta ideia você é um grande cara e tem muita capacidade... abraços

Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 8. /atenas/Faculdade/notas_int.asp, line 19 Ai eu resolvi postar todos os scripts para ver se alguém tem como me ajudar <% dim Conn, RS, SQL, matricula2, data_nascimento2 Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("db/secfac01.mdb") Conn.open matricula2 = Request.Form("matricula") data_nascimento2 = Request.Form("datanascimento") SQL = "select * from alunos where MATRICULA = '"&matricula2&"' and DATANASCIMENTO = '"&data_nascimento2&"' " Set RS = Conn.Execute(SQL) If RS.EOF Then Response.Write "Matrícula ou senha inválida!" Else Session("nome") = RS("nome") Response.Redirect "admnotas.asp" End If %> <% dim db, rs set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") tblrs = "Select * From alunos where nome = '" & Session("nome") &"'" rs.open tblrs, db %> <table width="100%" border="0" class="fonte" cellpadding="0" cellspacing="5"> <tr> <td colspan="3"> <div align="justify"> <strong> <font color="#3366FF"> </font></strong><font color="#666666"><br> </font> </div> <strong><font color="#3366FF"> </font></strong></td> </tr> <tr> <td width="4%" rowspan="7">&nbsp;</td> <td width="54%"> <div align="justify"><strong><font color="#3366FF"> </font></strong><font color="#666666"></font><strong><font color="#3366FF"> <%Response.Write rs.fields("nome")%>, </font> <font color="#666666">seja bem vindo &agrave; nossa área de segurança.<br> Por favor confirme sua matr&iacute;cula para que as suas notas possam ser mostrados com seguran&ccedil;a.</font><font color="#3366FF"> </font></strong></div></td> <td width="42%"><div align="center"><img src="Imagens/cadeado_seguro.jpg" width="142" height="81"></div></td> </tr> <tr> <td><div align="right"></div></td> <td><strong>Por favor redigite sua matr&iacute;cula aqui:</strong> </td> </tr> <tr> <td><p><strong><font color="#666666">Seu endere&ccedil;o:</font><font color="#3366FF"> <%'Response.Write rs.fields("endereco")%> <%Response.Write rs.fields("bairro")%> <Br> </font><font color="#666666">Cidade:</font><font color="#3366FF"> <%Response.Write rs.fields("cidade")%> - <%Response.Write rs.fields("estado")%> </font></strong><br> <strong><font color="#666666">Telefones: </font><font color="#3366FF"> <%Response.Write rs.fields("Telefone")%> </font></strong> </p> </td> <td><form name="form1" method="post" action="ConfirNotas.asp"> <input name="Matricula3" type="text" id="Matricula3" size="20" maxlength="15"> <br> <br> <input name="confirmar" type="submit" id="confirmar" value="Confirmar"> </form></td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> </table> <% rs.close db.close %> <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("db/secfac01.mdb") Conn.open matricula2 = Request.Form("matricula3") SQL = "select * from alunos where MATRICULA = '"&matricula2&"'" Set RS = Conn.Execute(SQL) If RS.EOF Then Response.Write "Dados Incorretos!" Else Session("matricula") = rs.fields("matricula") Response.Redirect "Notas.asp" End If %> <% 'Sistema Desenvolvido por Rafael Marciano dim db, rs, tblrs set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") tblrs = "Select a.codigo, a.matricula, a.nome, a.estado, " tblrs = tblrs&"a.telefone, a.datanascimento, " tblrs = tblrs&"b.totaltrab1bim, b.totaltrab2bim, b.faltas, " tblrs = tblrs&"b.codaluno, b.abrevdisc, b.trab01, b.trab02, " tblrs = tblrs&"b.trab03, b.trab04, b.trab05, b.trab06, b.trab07, " tblrs = tblrs&"b.trab08, b.trab09, b.trab10, b.trab11, b.trab12, " tblrs = tblrs&"b.trab13, b.trab14, b.trab15, b.trab16, " tblrs = tblrs&"b.faltas01, b.faltas02, b.faltas03, b.faltas04, b.faltas05, b.faltas06, " tblrs = tblrs&"b.prova1bim, b.prova2bim, b.examespecial, b.mediafinal, " tblrs = tblrs&"b.situação " tblrs = tblrs&"from alunos a inner join connotas b on a.codigo = b.codaluno " tblrs = tblrs&" where alunos.Matricula = '"&Session("matricula")&"'" rs.open tblrs, db %> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte"> <tr> <td width="11%" rowspan="5"><div align="right"><font color="#3366FF"><img src="Imagens/Justi%E7a.gif" width="88" height="150"> </font> </div></td> <td width="7%" align="left" valign="top"><font color="#666666"><strong>Nome</strong>:</font> <font color="#3366FF">&nbsp;</font></td> <td width="33%" align="left" valign="top"><font color="#3366FF"> <%Response.Write rs.fields("nome")%> </font></td> <td width="10%" align="left" valign="top"><font color="#666666"><strong>Endere&ccedil;o</strong>:</font> <font color="#3366FF">&nbsp;</font></td> <td width="39%" align="left" valign="top"><font color="#3366FF"> <%Response.Write rs.fields("endereco")%> </font></td> </tr> <tr> <td align="left" valign="top"><font color="#666666"><strong>Bairro</strong>:</font><font color="#3366FF">&nbsp; </font><font color="#3366FF">&nbsp;</font></td> <td align="left" valign="top"><font color="#3366FF"> <%Response.Write rs.fields("bairro")%> </font></td> <td align="left" valign="top"><font color="#666666"><strong>Telefone</strong>:</font></td> <td align="left" valign="top"><font color="#3366FF"> <%Response.Write rs.fields("telefone")%> </font></td> </tr> <tr> <td align="left" valign="top"><font color="#666666"><strong>Cidade</strong>:</font><font color="#3366FF">&nbsp; </font></td> <td align="left" valign="top"><font color="#3366FF"> <%Response.Write rs.fields("cidade")%> </font></td> <td align="left" valign="top"><font color="#666666"><strong>Estado</strong>:</font> <font color="#3366FF">&nbsp; </font></td> <td align="left" valign="top"><font color="#3366FF"> <%Response.Write rs.fields("estado")%> </font></td> </tr> <tr> <td colspan="4" align="left" valign="top">&nbsp;</td> </tr> <tr> <td colspan="4" valign="bottom"><div align="center"></div></td> </tr> </table> <br> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="center">Materia</div></td> <td><div align="center">Falta Fevereiro</div></td> <td><div align="center">Falta Mar&ccedil;o</div></td> <td><div align="center">Falta Abril</div></td> <td><div align="center">Falta Maio</div></td> <td><div align="center">Falta Junho</div></td> <td><div align="center">Falta Julho</div></td> <td><div align="center">Total de Faltas</div></td> </tr> <% do while not rs.eof %> <tr> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("AbrevDisc")%> </font></div></td> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("Falta01")%> </font></div></td> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("falta02")%> </font></div></td> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("falta03")%> </font></div></td> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("falta04")%> </font></div></td> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("falta05")%> </font></div></td> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("falta06")%> </font></div></td> <td><div align="center"><font color="#3366FF"> <%Response.Write rs.fields("TotalFaltas")%> </font></div></td> </tr> <% rs.movenext loop rs.close db.close %> </table> é neste ultimo que esta dando o erro se alguém souber abraços

alguém ??

Desligar Ai meu entra no tópico ai

Lugar errado ... Bem mas vamos para o lugar certo

Visite os topicos : tópico 1 tópico 2 Topicoi 3 Fui

www.delphi.eti.br www.activedelphi.com.br em qualquer um deles se você pesquisar sobre etiquetas vai achar.. no primeiro tem um artigo muito bom sobre o assunto. MAs qual é a sua duvida em montar um relatorio com etiquetas ?

você conhece algo do QReport? Se não conhece entre no site http://www.delphi.eti.br e pegue algumas apostilas lá ok.. ai qualquer duvida... posta novamente... abraços

Estranho, nunca passei por isso, você esta usando imagens no seu combobox?

não entendi ? que celula? Fui

o erro que deu foi este de cima mesmo ... pensei em tirar este & no final da session so que ai aparece este outro erro aqui oh Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /atenas/Faculdade/notas_int.asp, line 18, column 67 tblrs = tblrs&" where alunos.matricula = '" & Session("matricula") "'" abraços

alguém ???

você fez o que eu coloquei no link sobre o FSO ?