halakaluf
-
Total de itens
188 -
Registro em
-
Última visita
Tudo que halakaluf postou
-
valeu... Procurei na net mas não achei nada!! Se encontrar algo posto aqui!!!
-
alguém sabe se é possivel??? Se fopr onde tem um tutorial??? Obrigado.
-
alguém pode me ensinar como??? Obrigado.
-
salve programadores Asp, Mais uma vez eu preciso da ajuda de vocês no meu codigo eu boto bd.RecordCount so que não me retorna o numero de entradas encontradas no bd ele retorna -1. porque???? alguém sabe como resolver? <% If NOT Session("logado") = true Then Response.redirect("erro.asp") Response.End End If %> <html> <head> <title>ASP Consulta</title> </head> <body> <center><font face="Arial" size="4"><b>Formulário de Consulta</b></h2></center> <table border=0 width="80%" align=center> <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb") & ";Persist Security Info=False" ComandoSQL = "select * from clientes where Month(Data) = "&Month(Date)&" AND Year(Data) = "&Year(Date()) Set bd = Conexao.Execute(ComandoSQL) If Not bd.EOF Then bd.Move Request.QueryString("n") %> <tr> <td align=right valign=top> <font face="Arial" size="2">data:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("data")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">cidade:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("cidade")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">nome:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("nome")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">email:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("email")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">telefone:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("telefone")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Mensagem:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("textarea")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2"><a href="excluir.asp?numero=<%=bd("numero")%>">Excluir</a></font></td></tr> <% Else %> <tr> <td align="center"><font face="Arial" size="2"><b> Nenhum valor encontrado</b></font> </td> </tr> <tr> <td align="center"><font face="Arial" size="2"><b> <% response.write("<center><a href="&"javascript:history.back()"&">voltar</a></center>")%></b></font> </td> </tr> <% End If %> </table><br><center> <% If Request.QueryString("n") > 0 then Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & "><< Anterior</a> " End If if not bd.EOF then bd.MoveNext end if If Not bd.EOF then Response.Write " <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo >></a>" End If Conexao.Close Set bd = Nothing Set Conexao = Nothing %> </table> </body> </html> Obrigado.
-
Ae consegui já hehehe... valeu mesmo assim.
-
Ai gente pelo amor de deus eu já não sei mais onde procurar isso? alguém sabe? como eu faço isso?
-
Salve programadores Asp, Eu não faço a menor ideia de como se faz um pop up que abri uma pag asp. Tipo: Eu tenho uma page noticias.asp que tem esse link : <a href='view.asp?id=" & id & "'>" & date1 & "</a> So que eu queria que esse link levasse a um pop up como faz isso?
-
Ae guto, Eu acho que eu te amo!!!
-
Ae programadores, alguém pode me ajudar? Tipo: Eu tenho um banco = cadastro.mdb com uma tabela = clientes onde tem o campos data Eu quero selecionar todos os clientes que tenhao a data igual ao mesmo mes que eu estou?(ex: se eu estou em junho eu quero todos clientes com o mes 06 na data) sendo que tem que ser do mesmo ano!!! alguém pode me ajudar Obrigado.
-
Poooooo, valeu guto brigadão!!!!
-
alguém sabe o que ta errado nesse form? Ele não ta enviando a data, o resto ta indo!!! PS: eu to tratando a data certo? -------------------------------------Inicio-Codigo------------------------------------------------- <form name="formulario" method="post" action="test.asp"> <input type="hidden" name="data" value="<% date() %>"> 'esse não envia <!-- <input type="hidden" name="assunto" value="Formulario : respostas"> --> <!-- <input type="hidden" name="campos_faltando_redirecionar" value="pagina_erro.html"> --> <!-- <input type="hidden" name="redirecionar" value="pagina_sucesso.html"> --> <table width="100" border="0" cellspacing="0" cellpadding="0" align="center"> <tr bgcolor="#F4F4F4"> <td width="100" valign="top" nowrap bgcolor="#FFCC66"><font class="texto">Nome*:</font></td> <td bgcolor="#FFCC66"> <input class="form_campos" type="text" name="nome" size="34"> </td> </tr> <tr bgcolor="#EFEFEF"> <td width="100" valign="top" nowrap bgcolor="#FFCC99"><font class="texto">Telefone:</font></td> <td bgcolor="#FFCC99"> <input name="telefone" id="telefone" size="20" maxlength="2o" > </td> </tr> <tr bgcolor="#F4F4F4"> <td width="100" valign="top" nowrap bgcolor="#FFCC66"><font class="texto">Cidade:</font></td> <td bgcolor="#FFCC66"> <input class="form_campos" type="text" name="cidade" size="11"> </td> </tr> <tr bgcolor="#EFEFEF"> <td width="100" valign="top" nowrap bgcolor="#FFCC99"><font class="texto">E-mail*:</font></td> <td bgcolor="#FFCC99"> <input class="form_campos" type="text" name="email" size="34"> </td> </tr> </table> </form> -------------------------Fim-Codigo---------------------------------------------------------------
-
Nunca ouvi falar em Replace!!! você pode me dizer o que e? e como usar?
-
Salve Grande Urso, Brigado pela atentativa mas não funciono não!!! e agora quem podera me salvar??????
-
Salve programadores, Estou com um problema. Essa e minha page de UPDATE: <html> <% nomenovo = request.form("nome_novo") nomecd = request.form("nome_cd") if nomenovo = "" then response.write("<center><h3><b>Para procurar você tem que digitar algo!!!</center></h3></b><br>") response.write("<center>"&"<a href="&"javascript:history.back()"&">voltar</a>"&"<br>") else Set Conexao = Server.CreateObject("ADODB.Connection") Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./bds/cds.mdb") & ";Persist Security Info=False" Conexao.open Caminho ComandoSQL = " UPDATE cds1 set nome_cd =" ComandoSQL = ComandoSQL & "'"& nomenovo &"'" ComandoSQL = ComandoSQL & "WHERE nome_cd = " ComandoSQL = ComandoSQL & "'" & nomecd & "'" Set Rs = conexao.execute(ComandoSQL) response.redirect("resultaltera.asp") end if %> <head> <title> </title> </head> <body> Ela ta funcionando normal. Se a variavel não tiver espaço no meio tipo: nome_cd = "Araketo" ele autera sem problemas. Mas se ela tiver espaço tipo: se o nome_cd for = "Rita Lee" ele não consegue alterar porque? Eu to achando que ele ta procurando um cd que tenha o nome = Rita (nesse caso para poder alterar, mas como o nome do cd e Rita lee ele não altera.) alguém sabe como eu resolvo esse problema?
-
Valeu Guto, Mas eu já tinha entendido. E Muito Obrigado Mariofdf...
-
Mariofdf, Tipo aqui não funfo... Tipo meu bd e assim: Nome bd = CDS1 Nome Tabela = musicas Campos: musica_cd numero_cd ficaria assim? SQL = "SELECT COUNT(musica_cd) as TOTAL FROM musicas WHERE musica_cd LIKE '"& pchave & "%'" RS = Connexao.Execute(SQL) Mas quando eu coloco desse jeito eu não posso usar o Rs("numero_cd") Como concerta isso?
-
Salve programadores, alguém sabe como eu faço para ter o numero total de dados encontrados em uma busaca no bd?
-
man, você já deu uma revisada no codigo da page do formulario que envia os dados??? o que pode ta avendo e que os request não estao recebendo os dados. Tipo você ta esquecendo de fechar a tag do Script!!! O resto do codigo ta certo...
-
man, faz o seguinte usa duas conexoes uma pra ler a tabela a e outra pra ler a tabela b. Tipo assim: Conexao para pegar dados na tabela a: Set Conexao = Server.CreateObject("ADODB.Connection") Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd.mdb") & ";Persist Security Info=False" conexao.CursorLocation = 3 'adUseClient Conexao.open Caminho Set Rs = Server.CreateObject("ADODB.Recordset") ComandoSQL = "SELECT * FROM tabela Rs.open ComandoSQL, Conexao quando você quiser usar os dados da tabela a você usa: Rs("A30caixa_detalhe") Rs("ID") Rs("Documento") Rs("cliente") Rs("Dt_Movto") Rs("Quantidade") Rs("Vl_Venda_C") Rs("Vl_Cliente") Conexao para pegar dados na tabela b: Set Conexao1 = Server.CreateObject("ADODB.Connection") Caminho1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd.mdb") & ";Persist Security Info=False" conexao1.CursorLocation = 3 'adUseClient Conexao1.open Caminho1 Set Rs1 = Server.CreateObject("ADODB.Recordset") ComandoSQL1 = "SELECT * FROM tabelab Rs1.open ComandoSQL1, Conexao1 quando você quiser usar os dados da tabela b você usa: Rs1("Nome") Rs1("KM") Rs1("Carro") Eu faço assim... se alguém souber um meio melhor... fique a vontade. qualquer duvida tamo ai!!!
-
Bota o codigo todo aqui pra nois ver!!!!
-
Ae Guto, Valeu pelo help... Achei o erro ... Essa e a linha certa: While controle < Rs.PageSize and not Rs.EOF Não faço a menor ideia porque não funfo do outro geito, se Rs.Pagesize recebe pag_tam quando eu declaro ela.
-
Implementar Uma Pilha Em Pascal
pergunta respondeu ao Humb de halakaluf em Outras Linguagens de Programação
Salve Humb, Olha Muito facil... Tudo ai ne???? Man tenta fazer que se eu ficar te dando assim você não aprende... Ve esse site aqui tpilha=record ----- aqui você esta criando a pilha!!! base,topo,alt,altmax:integer; pilha:ARRAY[1..max] of char end; Procedure inipi(var pi:tpilha; altmax:integer); ------- Aqui você inicia a pilha vazia begin pi.topo:=0; pi.base:=0; pi.alt:=0; pi.altmax:=altmax; end; function retirapi(var pi:tpilha ; var retirado:char):boolean; --------aqui você retira um item da pilha begin if(pi.alt = 0) then retirapi:= false; if (pi.topo = pi.base) then begin retirado:= pi.pilha[pi.topo]; inipi(pi,pi.altmax); end else begin retirado:=pi.pilha[pi.topo]; dec(pi.topo); dec(pi.alt); end; end; function inserepi(var pi:tpilha; letra:char):boolean; ------ aqui você insere begin if pi.alt = pi.altmax then inserepi:=false else begin if pi.base = 0 then begin inc(pi.topo); inc(pi.base); inc(pi.alt); pi.pilha[pi.topo]:=letra; inserepi:=true; end else begin inc(pi.topo); inc(pi.alt); pi.pilha[pi.topo]:=letra; inserepi:=true; end; end; end; -
Olha gente eu to setando o meu Rs.PageSize = 10 e ele ta colocando todos os itens que tem no bd!!! Olha so o codigo: <% Dim cont_page, pchave, tbusca, tam_page, pag_atual pchave = request.QueryString("p_chave") tbusca = request.QueryString("tprocura") tam_page = request.QueryString("result")' aqui eu to passando como 10 eu tenho certeza absoluta!!!! pag_atual = request.QueryString("pag_atual") %> <html> <head> <title>Procura por CD...</title> </head> <body> <% 'Procurar por CD 'Procurar por CD 'Procurar por CD 'Procurar por CD Set Conexao = Server.CreateObject("ADODB.Connection") Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./bds/cds.mdb") & ";Persist Security Info=False" conexao.CursorLocation = 3 'adUseClient Conexao.open Caminho Set Rs = Server.CreateObject("ADODB.Recordset") Rs.PageSize = tam_page 'Define o Tamanha da Page Rs.CacheSize = tam_page 'Não sei pra que serve, mas me falaram que era bom, ai eu botei. ComandoSQL = "SELECT * FROM cds1 where nome_cd LIKE '"& pchave & "%'" Rs.open ComandoSQL, Conexao cont_page = Rs.PageCount If Rs.EOF Then Response.Write("Nenhum dado encontrado no banco de dados"&"<BR>"&"<BR>") Response.Write("<a href="&"javascript:history.back()"&">voltar</a>") Response.End() else if pag_atual = "" then pag_atual = 1 end if if pag_atual < 1 then pag_atual = 1 end if end if Rs.AbsolutePage = pag_atual controle = 1 %> <center><font face="Arial" size="4"><b>CDs Encontrados</b> <H2></H2></center> <table border="0" width="80%" align="center"> <% while controle < tam_page and not Rs.EOF response.write("<tr> <td>"& Rs("nome_cd") &" </td> <td> link excluir </td> <td>link Altera </td> </tr>") Rs.MoveNext controle = controle + 1 wend %> </table> <table border ="0" width ="80%" align ="center"> <tr> <td><% if pag_atual > 1 then response.write("<a href=" & "procuracd.asp?Pag_atual=" & (pag_atual - 1) & ">" & "<<< Anterior" & "</a>") end if %> </td> <td><% if StrComp(pag_atual,cont_page) <> 0 then response.write("<a href=" & "procuracd.asp?Pag_atual=" & (pag_atual + 1) & ">" & "Proximo >>>" & "</a>") end if %> </td> </tr> <% Rs.Close Conexao.Close Set Rs = Nothing Set Conexao = Nothing %> </table> </body> </html> Obrigado...