
Romero Dias
Membros-
Total de itens
591 -
Registro em
-
Última visita
Tudo que Romero Dias postou
-
Vlw Bicicleta, Meu sistema roda em uma intranet mesmo, me da uma luz ai. como faço esse componente? não tenho nem ideia... vlw.. aguardo.
-
cara, eu tava com problema parecido, eu fiz o seguinte, eu usava Banco Access, na coluna de fotos eu coloquei valor padrão: no_photo.gif se, não fosse gravado nada, o campo ficava por default: no_photo.gif espero ter ajudado.. falou
-
A impressao é feita em Navegador IE, vo pesquisar, fazer desta forma com Open Mas se tiver outra sugestao, poste ai.. vlw
-
Boa tarde pessoal, tenho um sistema de controle de cheques, que esta funcionado ok, meu problem é na hora de imprimir, gostaria de parar os eixos da impressora quando ela terminar de imprimir um cheque, pois, se o usuario imprimir dois cheques ele tem que voltar a folha, para imprimir o proximo, (os cheques são impressos um por um) esse procedimento esta danificando a impressora pois, o usuario tem que voltar a folha no rolete. Modelo da impressora: Epson Lx 300 se alguém puder me ajudar... vlw...
-
Pessoal, beleza? puxa, tambem estava atraz de um programa para criptografgar arquivos .ASP podem mandar para mim ??? email: romero@festanovale.com.br vlw
-
amigo, acredito que seu erro esteja aqui, Set oRS = Server.CreateObject("ADODB.Recordset") conex = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("Tribunal.mdb") &"; Jet OLEDB:Database Password=1234" oRs.Open conex da uma olhada.. falou
-
Essa string de conexao abaixo é usuada quando o accessa esta com senha, testa ai !! Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword; falou
-
Bom pessoal, tenho um relatorio onde uma linha é branca e a outra e cinza e assim por diante, mas o problema é que na hora que vou imprimir, a linha cinza sai branca tambem, ou seja não sai a cor de fundo da linha. como faço para sair essa cor de fundo na impressao? Exemplo . . . . <tr> <td bgcolor="#ffffff"> </td> </tr> <tr> <td bgcolor="#cccccc"> </td> </tr> . . . . . Obrigado!
-
X-MAN, assim vai funcionar, da uma olhada ai, <script Language="JavaScript"> function teste(numero){ if (numero == "0") alert('nada'); else alert('teste efetuado') } </Script> <form id="form1" name="form1" method="post" action=""> <label> <input name="radiobutton" type="radio" value="radiobutton" onclick="teste('<%=teste(1)%>');">Click </label> </form> falou
-
py2tz, eu axei algo nesse link ai http://forum.imasters.com.br/index.php?showtopic=156071 vlw
-
C@rimbeiro, você não vai conseguir fazer um GROUP BY com valores diferentes ou seja debito.valor = 52,20 debito.valor = 63,23 não tem jeito de agrupar dados diferentes, desse jeito abaixo deve dar certo CMD.CommandText ="SELECT clientes.id,clientes.empresa FROM clientes INNER JOIN debito ON clientes.id = debito.idcliente GROUP BY clientes.id,clientes.empresa" falou..abraçao
-
vlw, Beraldo, minha duvida foi esclarecida, obrigado.
-
Bom pessoal, estava programando e me ocorreu a seguinte duvida, teria alguam diferença entre os codigos abaixo? qual o melhor? <td width=20& height=10% align=center> ou <td width="20&" height="10%" align="center"> se eu deixar de colocar aspas nos atributos perdera a performance da pagina? é uma duvida cruel que venho me perguntando se alguém souber.. me da um aluz vlw
-
Acredito que a funççao FormatNumber() irá resolver seu problema, valor = 945.2933333333 response.write (FormatNumber(valor),2)
-
Quero Criar Um Página Principal Onde Apenas A Diretora Tenha Acesso
pergunta respondeu ao PRISCILA STOCHINI de Romero Dias em ASP
aqui no serviço, eu fiz um esquema de permissao tipo no DB Tabella: Login Nome: Romero User: ui0121 pass: ***** perm: 1 Ai quando o cara logar, você guarda em uma session o que estiver em perm. session("perm") = Rs("pem") 'aplicando a permissao, a pessoa so vai ter acess se ela tiver permissao 1 se não volta para default.asp if session("perm") = "1" then else response.redirect "default.asp" response.end end if qualquer duvida, poste ai -
Bom, Eu, resolveria esse problema da seguinte forma, acredito que não seria a forma mais inteligente de resolver, mas funciona, 'aqui pega todos os codigos dos produtos strSql = "SELECT id_produtos FROM tabela_pedidos_produtos GROUP BY id_produtos" Set ObjRs = ObjConn.Execute (strSql) WHILE NOT ObjRs.Eof 'aqui soma os valores pelo produto selecionado strSqlTotais = "SELECT SUM(valor) as total WHERE id_produtos = " &ObjRs("id_produtos") &" " Set ObjRsTotais = ObjConn.Execute (strSqlTotais) Response.Write "Produto : " & ObjRs("id_produtos")&" ,Total : " & ObjRsTotais("total") & "<br>" ObjRs.MoveNext WEND
-
tenta assim, acredito que possa funcionar ! <html> <head> <title>Pesquisa</title> </head> <body> <% Option Explicit Dim Filtro Filtro = Cstr(Trim((Request.Form("Criterio"))) Dim Sql Set BdWeb = Server.CreateObject("ADODB.Connection") BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb") If Filtro = "NumeroMedauto" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" &Filtro& "%'" End If If Filtro = "NumeroOriginal" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" &Filtro& "%'" End If If Filtro = "Sinonimo" Then Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" &Filtro& "%'" End If If Filtro = "NomedoProduto" Then Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" &Filtro& "%'" End If Set RsWeb = Server.CreateObject("ADODB.Recordset") RsWeb.Open Sql, BdWeb, 3 %> <% If RsWeb.BOF and RsWeb.EOF Then%> <h2 align="center">Nenhuma informação localizada ! </h2> <hr> <center><a href="busca.htm">Retorna</a></center> <%Else%> <%If Not RsWeb.BOF Then%> <h2>Resultado da Busca:</h2> <hr> <table BORDER="0" width="100%" cellpadding="3"> <% Do While Not RsWeb.EOF %> <td> <tr><b>Número Medauto :</b> <%=RsWeb("NumeroMedauto")%>  </tr><tr><b>Número Original :</b> <%=RsWeb("NumeroOriginal")%> </tr><tr><b>Sinonimo:</b> <br> <%=RsWeb("Sinonimo")%> </tr><tr><b>Nome do Produto:</b> <br> <%=RsWeb("NomedoProduto")%> </tr> <hr> <tr> </td> <p> <%RsWeb.MoveNext Loop%> <center><a href="busca.htm">Retorna</a></center> </table> <%End If%> <%End If%> <% RsWeb.Close BdWeb.Close %> </body> </html>
-
Bom pelo que eu pude perceber, o erro estava depois do MoveNext ":" para ver o erro da pagina if err <> 0 then Response.Write "Erro " & err.Description end if Set objCategorias = Server.CreateObject("ADODB.Connection") objCategorias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\informenet\banco\noticias.mdb" objCategorias = "SELECT ID, categorias FROM categorias ORDER BY categorias ASC" <form name="form1" method="post" action="Busca.asp"> <table width="242" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="144"><input name="Buscar" type="text" class="Form120x20" id="Buscar"></td> <td width="5"> </td> <td width="41"><select name="Categoria" size="1" class="Form120x20"> <% Response.Write "<option selected value='0'>Todas categorias</option>" While Not objCategorias.EOF Response.Write "<option value='"& objCategorias("ID") &"'>"& objCategorias("categorias") &"</option>" objCategorias.MoveNext [color=#FF0000]<----------- Erro estava aqui [/color] Wend %> </select></td> <td width="13"> </td> <td width="39"><input name="imageField" type="image" src="Images/BotBuscar.gif" width="43" height="19" border="0"></td> </tr> </table> </form>
-
Amigo, eu já tive uma situação parecida, o IFRAME resolveu meu problema, voce tem duas paginas uma de dormulario e a outra para cadastrar não é? na pagina do formulario você coloca um iframe FomularioLogin.asp . . . <form method=post action=ValidaLogin.asp target=insert> <input name=usuario> <input type=password name=senha> <input type=submit value=entrar> <form> <iframe name=insert width=0px height=0px></iframe> . . . . ValidaLogin.asp <% AbreConexao Dim Sql Dim RS login = Request.Form("usuario") senha = Request.Form("senha") Sql = "SELECT * FROM Admin WHERE login = '" & login & "' " Sql = Sql & "AND senha='" & senha & "' " set Rs = Conexao.Execute(Sql) if not rs.eof then Session("login") = RS("login") Session("email") = RS("email") Session("nivel") = Rs("nivel") Session("idlogin") = RS("idlogin") %> <script language=javascript> alert("Usuario OK"); </script> else %> <script language=javascript> alert("Usuario Errado"): </script> <% end if FechaConexao
-
Caro Sr. Filipe Lima Muito Obrigado pelas dicas, o Sr. se mostrou muito atencioso, Bom eu fiz de outro jeito coloquei Usuario: Romero Senha: ****** Cheques:R - somente leitura Funcionarios: RW - leitura e escrita Fornecedores : RWD - leitura, escriota e exclusao não sei se foi a melhor forma, mas está funfando file.. falou.. grande abraço,
-
Link Na Barra De Endereço
pergunta respondeu ao marceloadeo de Romero Dias em Ajax, JavaScript, XML, DOM
vai ter que usar JavaScript. window.status = 'http://meusite.com.br' essa função vai imprimir no rodape do browser o que estiver entre as aspas. falou -
E ai filipe tudo bem? cara, minha necessidade é a seguinte, tenho que implementar um perfil por exemplo: no financeiro a pesso só pode cadastrar cheque, mas também no financeiro ela pode modificar um lançamento de credito.. ou seja.. tenho que criar um pefil para cada aplicação do sistema e ai, qual a melhor forma, e que fique com uma melhor perdormance ! já ajudou muito obrigado abraço
-
Quando você usa GROUP BY, não podera agrupar informaçoes diferentes.. o erro esta aqui debito.valor
-
Bom pessoal to precisando implementar em meus sistema um perfil para usuarios por exemplo Financeiro o usuario so pode ler modificar ou excluir, hoje eu tenho uma tabela de usuarios ond faço um perfil com somente 3 criterios por exemplo: um usuario pode ser do tipo 1, 2 ou 3 mas agora precizo detalhar mais isso, qual seria a melhor forma de implementar perfil para usuario? vlw,
-
para ver o erro da sua pagina if err <> o then response.write err.description end if