Conteúdo de baladaclick - Página 5

Soma E Subtração De Produtos

pergunta respondeu ao baladaclick de baladaclick em ASP

Andrea, qualquer coisa é só tirar os rs. ah foi a forma que eu achei p funcionar. e funfou obrigado

Soma E Subtração De Produtos

pergunta respondeu ao baladaclick de baladaclick em ASP

mesmo erro Tipo de erro: ADODB.Recordset (0x800A0E7D) A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto. /sistema/somaprodutos.asp, line 7 <% Set db = server.createobject("adodb.connection") db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb") db.CursorLocation = 3 db.Open db_conn set rs = server.createobject("adodb.recordset") rs.open "select (select sum(qtde_entrada) from entrada) - (select sum(qtde_saida) from saida) as total" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <% response.Write rs("total") %> </body> </html> não precisa mais não, fucei aqui e fiz de uma outra forma que deu certo vou postar p pessoal que quiser saber <% Set db = server.createobject("adodb.connection") db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb") db.CursorLocation = 3 db.Open db_conn set rs1 = server.createobject("adodb.recordset") set rs2 = server.createobject("adodb.recordset") rs1.open "select (sum(saida.qtde_saida)) as resultado_saida from saida", db rs2.open "select (sum(entrada.qtde_entrada)) as resultado_entrada from entrada", db %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <label> <p>Entrada <input name="textfield" type="text" value="<%response.Write rs2("resultado_entrada")%>"/> Saida <input name="textfield" type="text" value="<%response.Write rs1("resultado_saida")%>"/> </p> <p>Total <label> <input type="text" name="textfield2" value="<%response.Write rs2("resultado_entrada") * rs1("resultado_saida")%>"/> </label> </p> </body> </html>

Selecionando A Listbox E Carregando Campo De Texto Ao Lado C/ Ajax

pergunta respondeu ao baladaclick de baladaclick em Ajax, JavaScript, XML, DOM

Como Seria em AJAX?

Soma E Subtração De Produtos

pergunta respondeu ao baladaclick de baladaclick em ASP

tipo, minha entrada e saida estao em tabelas diferentes. embaixo veja se eu fiz corretamente peguei o tabela1.campo1 - tabela2.campo1. mas está dando erro: tipo de erro: ADODB.Recordset (0x800A0E7D) A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto. /sistema/somaprodutos.asp, line 9 Att, Iuri <% Set db = server.createobject("adodb.connection") db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb") db.CursorLocation = 3 db.Open db_conn set rs = server.createobject("adodb.recordset") rs.open "select (sum(entrada.qtde_entrada) - sum(saida.qtde_saida)) as TOTAL from entrada, saida " %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <% response.Write ("TOTAL")%> </body> </html>

Soma E Subtração De Produtos

pergunta respondeu ao baladaclick de baladaclick em ASP

pode ser, quero um jeito de fazer esta soma e dpois subtrair. me passa um exemplo p eu tentar fazer. as duvidas vou postando aqui. desculpe andrea pelo tópico duplicado obrigado! Galera me ajudem

Soma E Subtração De Produtos

uma questão postou baladaclick ASP

Galera, estou fazendo um sisteminha de estoque com os produtos cadastrados em um banco, já fiz a tabela de entrada e saida. minha duvida é a seguinte, quero fazer a soma e a subtração dos produtos que entraram e saíram respectivamente. não sei por onde começar este módulo. no formuilario tenho os campos FILIAL / QTDE / PRODUTO / DATA valeu Moçada

Selecionando A Listbox E Carregando Campo De Texto Ao Lado C/ Ajax

uma questão postou baladaclick Ajax, JavaScript, XML, DOM

GALERA AGORA A DUVIDA É A SEGUINTE, TENHO A LISTBOX que PUXA OS DADOS DO BANCO. BOM EU QUERIA QUE NA HORA QUE SELECIONASSE A OPÇÃO CARREGASSE A ID NO CAMPO DE TEXTO AO LADO LISTBOX CODE <select name="regional" id="regional"> <% rs2.Open "SELECT * FROM regional",db while not rs2.eof %> <option selected><%=rs2("regionais")%></option> <% rs2.movenext wend %> </select> ABRAÇO GALERA!

Problema Com LaÇo A Listbox

pergunta respondeu ao baladaclick de baladaclick em ASP

kkkkkkkkkk deu certo. falta de atenção!!!! valeu olivio!!!!

Problema Com LaÇo A Listbox

uma questão postou baladaclick ASP

Galera, to com problemas com laço em uma listbox. ele lista o primeiro registro várias vezes. no banco tenho 9 registros de cidades diferentes. ele lista 9 vezes o primeiro registro. preciso de um help p variar valeu Moçada <select name="regional" id="regional"> <% rs2.Open "SELECT * FROM regional",db while not rs2.eof %> <option selected><%=rs("regionais")%></option> <% rs2.movenext wend %> </select>

2 Selects Com Request.querystring

uma questão postou baladaclick ASP

Galera o que seria este erro??? da uma olhadinha no meu code <% PagAtual = Request.QueryString("PagAtual") 'página atual Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = " SELECT entrada.qtde_entrada, entrada.produto_entrada, entrada.data_entrada, saida.qtde_saida, saida.produto_saida, saida.data_saida, saida.consultor_saida, saida.venda_saida FROM entrada, saida WHERE id_regional="&request.querystring("id") RS.Open SQL, conn, 3 %> valeu pessoal

Request.querystring

uma questão postou baladaclick ASP

Galera é o seguinte, to tentando fazer um sisteminha de estoque. no meu banco tenho 2 tabelas, Regionais (onde estao cadastrados todas as filiais) com os campos Id_regional e Regional e a tabela Entrada (onde são cadastrados todos os produtos que entram) com os campos Id_regional, qtde_entrada, produto_entrada e data_entrada. no banco access eu relacionei o id_regional da Regional com o id_regional da Entrada. tenho uma pagina que printa todas as regionais, mas quando eu clico em qualquer regional ele não está pegando as entradas que eu fiz na respectiva regional. será que deu p entender? tipo assim, quero que exiba todas as entradas da regional ribeirao preto(id_regional). vou postar meu code regionais.asp <% PagAtual = Request.QueryString("PagAtual") 'página atual Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../banco/estoque.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = " SELECT * FROM regionais " RS.Open SQL, conn, 3 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <style type="text/css">  </style> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="center" class="style33">Regionais</div></td> </tr> <tr> <td> </td> </tr> <tr> <td><div align="center" class="style34"> <% '############## paginacao Introdução ################# '------- Coloque aqui a quantidade de registros que você deseja por página -------- SELECT CASE np CASE "1" NumPorPage = "1" CASE "15" NumPorPage = "15" CASE ELSE NumPorPage = "10" END SELECT 'Const NumPorPage = 20 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If 'Cria conexão com o Banco de Dados, já abrir anteriormente 'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") '>>> FIZ EM CIMA RS.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros 'Cria a String SQL '>>> FIZ EM CIMA Dim SQLpag '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos" '>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet RS.MoveFirst 'Move o RecorSet para o início RS.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = RS.PageCount RS.AbsolutePage = PagAtual 'Configura a página atual '############## paginacao Introdução - FIM ################# Count = 0 'Zera o contador 'Inicia a Função DO, utilizando a quantidade de páginas especificadas 'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#000000" else cor = "#000000" end if '------------------------------- %> <a href="relatorio.asp?id=<%= rs("id_regional")%>"> <% = rs("regionais")%> </a></div></td> </tr> <tr> <td><span class="style38"></span></td> </tr> <tr> <td><div align="center"><span class="style35"><span class="style38"><span class="style38"><span class="style35"><span class="style38"></span></span></span></span></span></div></td> </tr> <tr> <td><div align="center" class="style39"> <p> <% i = i+1 Count = Count + 1 'paginacao RS.MoveNext LOOP 'também paginacao %> </p> <p> </p> </div></td> </tr> <tr> <td><div align="center" class="style39"> <% '#####################inicio da paginação#################### Response.Write("<B><font color=""#006600"" size=""1"" face=""arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> <br> ") 'Mostra os botões: Anterior e Próxima, utilizando da opção de IF IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='relatorio.asp?PagAtual=" & 1 & "'>") Response.Write("Primeira") Response.Write("</a></font></B>  ") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='relatorio.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write("Anterior") Response.Write("</a></font></B>  ") Else Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Primeira") Response.Write("</font></B>  ") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Anterior") Response.Write("</font></B>  ") End If '------------------- numero ------------------------- '---------- Numero de numeros para ser mostrados ---- max_n_mostrados = 10 intervalo = Int(max_n_mostrados /2) inicio = PagAtual - intervalo final = PagAtual + intervalo If CInt(inicio) <1 Then inicio = 1 final = 10 END IF If CInt(final) > CInt(TotalPages) Then final = TotalPages For i = inicio To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#000000"" size=""1"" face=""arial"">[ <B>" & i & "</B> <font color=""#000000"" size=""1"" face=""arial"">]</font>  " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='relatorio.asp?PagAtual=" & i & "'>" & i & "</a>  " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='relatorio.asp?PagAtual=" & i & "'>" & i & "</a>  " END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN 'Se estiver na última página, mostra apenas o botão Anterior e Primeira Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='relatorio.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("Próxima") Response.Write("</a></font></B>  ") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='relatorio.asp?PagAtual=" & TotalPages & "'>") Response.Write("Ultima") Response.Write("</a></font></B>  ") Else Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Próxima") Response.Write("</font></B>  ") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Ultima") Response.Write("</font></B>  ") End If '################## fim paginação ######################## %> </div></td> </tr> </table> </body> </html> relatorio.asp <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../banco/estoque.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = " SELECT * FROM regionais WHERE id_regional="&request.querystring("id") RS.Open SQL, conn, 3 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <style type="text/css">  </style> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="4">Regional - <span class="style39" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("id_regional")%></span></td> </tr> <tr> <td colspan="4"> </td> </tr> <tr> <td colspan="4"><strong>Entradas</strong></td> </tr> <tr> <td width="18%"><div align="center">Qtde</div></td> <td width="37%"><div align="center">Produto</div></td> <td width="29%"><div align="center">Data</div></td> <td width="16%"><div align="center"></div></td> </tr> <tr> <td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("qtde_entrada")%></span></div></td> <td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("produto_entrada")%></span></div></td> <td><div align="center"><span class="style32" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("data_entrada")%></span></div></td> <td> </td> </tr> </table> </body> </html> acredito que deva ser alguma coisa errada no querystring. sei la. quem puder me ajudar... valeu Galera da SB

2 Select Do Mesmo Banco

pergunta respondeu ao baladaclick de baladaclick em ASP

beleza marcio deu certo aqui. valeu irmao

2 Select Do Mesmo Banco

pergunta respondeu ao baladaclick de baladaclick em ASP

<% PagAtual = Request.QueryString("PagAtual") 'página atual Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = " SELECT entrada.regional_entrada, entrada.qtde_entrada, entrada.produto_entrada, entrada.data_entrada, FROM entrada INNER JOIN saida saida.regional_saida, saida.qtde_saida, saida.produto_saida, saida.data_saida, saida.consultor_saida, saida.venda_saida " RS.Open SQL, conn, 3 %> ainda continua com erros Tipo de erro: Microsoft JET Database Engine (0x80040E14) A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta. /sistema/relatorio.asp, line 11 mas verifiquei todos os campos e não tem nenhum incorreto ou faltando desculpem a a enchessão. mas to tentando aprender

2 Select Do Mesmo Banco

pergunta respondeu ao baladaclick de baladaclick em ASP

Andrea, Boa Tarde, Como Inner Join? é só substituir o select por Inner Join e colocar as tabelas? é isso? Abraço

2 Select Do Mesmo Banco

uma questão postou baladaclick ASP

Galera Boa Tarde, queria saber como faço um select de duas tabelas no mesmo banco meu code é esse <% PagAtual = Request.QueryString("PagAtual") 'página atual Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * FROM entrada" RS.Open SQL, conn, 3 %> Tenho a tabela entrada e saida e quero colocar os campos das duas tabelas para gerar o print. quem puder me ajudar valeu Abraço galera

Request Querystring

pergunta respondeu ao baladaclick de baladaclick em PHP

era o que eu tinha começao a pesquisar. vou ver c dá certo ! ai eu posto p todos aqui, valeu Feras

Request Querystring

uma questão postou baladaclick PHP

Salve Galera!!! seguinte. eu tenho uma determinada lista de cadastros ondeno 1ºmomento listo nome das pessoas cadastradas, somente o nome, e queria uma solução que é a seguinte. clico no nome dela e me aparece os detalhes da pessoa que cliquei. entenderam? mas somente os detalhes desta pessoa. meu banco está pronto, cadastros estão prontos e cada cadastro tenho uma ID, só me falta isso. c não entenderam grita aí. no PHP não sei c é Request.QueryString, sei trabalhar com isso no ASP. Dá uma luz ai pessoal valeu!!!

Problema Com DuplicaÇÃo De BotÃo

pergunta respondeu ao baladaclick de baladaclick em Flash & ActionScript

GALERA não CONSEGUI FAZER... TEM ALGUM TEXTO POR AI que EXPLICA MAIS ASSIM??? valeu

Problema Com DuplicaÇÃo De BotÃo

pergunta respondeu ao baladaclick de baladaclick em Flash & ActionScript

beleza IRMAO. VOU TENTAR AQUI, QUALQUER COISA EU GRITO.. valeu FERAS

Problema Com DuplicaÇÃo De BotÃo

uma questão postou baladaclick Flash & ActionScript

aí GALERA. SEGUINTE, FIZ UM BOTA ANIMADO tal, AI EU FUI DUPLICAR ELE P não FICAR FAZENDO TD D NOVO. SÓ QUE AI QUANDO MUDO O TEXTO DO BOTAO, O OUTRO também MUDA JUNTO. também TENTEI DUPLICAR O SIMBOLO E COLOCAR NOMES DIFERENTES AI DÁ CERTO MAS quando A AÇÃO OVER É ACIONADA ELE MUDA O DO OUTRO BOTAO também. ALGUÉM ENTENDEU? C ENTENDEU ME AJUDA aí.. valeu maiorÇADA.........

Anti Inject Sql

pergunta respondeu ao baladaclick de baladaclick em PHP

está ai p quem precisar do anti_injection function anti_injection($sql) { $seg = preg_replace(sql_regcase("/(from|select|insert|delete|where|drop table|show tables|#|\*|--|\\\\)/"),"",$sql); //remove palavras que contenham a sintaxe sql $seg = trim($seg); //limpa espaços vazios $seg = strip_tags($seg); // tira tags html e php $seg = addslashes($seg); //adiciona barras invertidas a uma string return $seg; }

Entrar

baladaclick

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que baladaclick postou

Soma E Subtração De Produtos

Soma E Subtração De Produtos

Selecionando A Listbox E Carregando Campo De Texto Ao Lado C/ Ajax

Soma E Subtração De Produtos

Soma E Subtração De Produtos

Soma E Subtração De Produtos

Selecionando A Listbox E Carregando Campo De Texto Ao Lado C/ Ajax

Problema Com LaÇo A Listbox

Problema Com LaÇo A Listbox

2 Selects Com Request.querystring

Request.querystring

2 Select Do Mesmo Banco

2 Select Do Mesmo Banco

2 Select Do Mesmo Banco

2 Select Do Mesmo Banco

Request Querystring

Request Querystring

Problema Com DuplicaÇÃo De BotÃo

Problema Com DuplicaÇÃo De BotÃo

Problema Com DuplicaÇÃo De BotÃo

Anti Inject Sql

Anti Inject Sql

Anti Inject Sql

Data

Depois Do Login Mostrar Dados Do Usuário Logado

Navegação

Atividades