Ir para conteúdo
Fórum Script Brasil

lucascabs

Membros
  • Total de itens

    28
  • Registro em

  • Última visita

Tudo que lucascabs postou

  1. ***** so uma duvida ... conforme você disse ... ta buscando a ultima linha preenchida! mas e se eu alterar a planilha teria como especificar por exemplo, que o saldo anterior é sempre a celula J24 e a outra a E24??
  2. lucascabs

    VBA - Buscar Campo

    obrigado ... esse tópico poderia ate ser apagado! desculpa ae! Lucas
  3. a planilha é um controle de contas ... ta td beleza ... tudo funcionando em relação a planilha! ai vem a parte da macro, ela vai funcionar assim: toda vez que voce que clicar no botao do proximo ele vai copiar a planilha atual e criar uma outra igual, porém limpando as informações que não serão necessárias! para criar uma nova você tem que estar sempre na última plan, e cada vez que criar vai pedir pra digitar um nome novo da plan nova para não haver nomes iguais! ela vai também atualizar fórmulas de acordo com o necessário! meu problema é que eu precisava que no campo "G12" (saldo anterior dos cheques) buscasse na planilha anterior o campo "j74" e o campo "g28" (saldo anterior caixa) buscasse na planilha anterior o campo "i74" manualmente é tranquilo, mais imagina que eu va criando e toda hora tem que ver o saldo anterior manualmente é embaçado, preciso que cada vez que criar a plan ele sempre busque na última planilha esse saldo (entendeu??) PS. a planilha com o nome "básico" ... é so para teste mesmo! o arquivo é esse: http://www.megaupload.com/?d=F7NJFLC0 PS II - Eu coloquei essa mesma duvida no tópico de VISUAL BASIC (desculpa não prestei atenção), estou postando por aqui, no office, porém se ainda tiver no errado por favor, alguém poderia colocar no lugar certo?!
  4. lucascabs

    VBA - Buscar Campo

    a planilha é um controle de contas ... ta td beleza ... tudo funcionando em relação a planilha! ai vem a parte da macro, ela vai funcionar assim: toda vez que voce que clicar no botao do proximo ele vai copiar a planilha atual e criar uma outra igual, porém limpando as informações que não serão necessárias! para criar uma nova você tem que estar sempre na última plan, e cada vez que criar vai pedir pra digitar um nome novo da plan nova para não haver nomes iguais! ela vai também atualizar fórmulas de acordo com o necessário! meu problema é que eu precisava que no campo "G12" (saldo anterior dos cheques) buscasse na planilha anterior o campo "j74" e o campo "g28" (saldo anterior caixa) buscasse na planilha anterior o campo "i74" manualmente é tranquilo, mais imagina que eu va criando e toda hora tem que ver o saldo anterior manualmente é embaçado, preciso que cada vez que criar a plan ele sempre busque na última planilha esse saldo (entendeu??) PS. esquece que a planilha com o nome "básico" existe... é so para teste mesmo! o arquivo é esse: http://www.megaupload.com/?d=F7NJFLC0
  5. lucascabs

    VBA - Buscar Campo

    Boa noite, fiz uma planilha em excel e criei uma macro que copia a planilha inteira anterior e cria uma nova! ela atualiza valores em branco e algumas fórmulas! já existe uma programação feita que funciona perfeitamente ... porém preciso acrescentar mais uma coisa! eu precisava que o saldo anterior da planilha atualizasse de acordo com a plan criada! por ex. Na plan 1 (já existente) no item F15 (saldo anterior) o valor seria =Master!K94 quando eu criar uma plan (EX. Plan 2) o item F15 (saldo anterior) o valor seria ='1'!F15 e assim sucessivamente! entenderam?? eu não entendo nada de vba e precisava disso para concluir uma planilha só que sem mandar ela fica dificil ... como faço para mandar?
  6. meu resultado final ficou em branco! os campos ainda não aparecem mas acho que é falha da instrução sql SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" ... deve ser não é???? o codigo final da pagina ficou assim: <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao,codigo,ultimocodigo,proximocodigo,id,senha,login SQL = "SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <body> <table> <tr><td colspan="4">Login:<%Response.Write Session("login")%></td></tr> <tr><td colspan="4">Senha:<%Response.Write Session("senha")%></td></tr> </table> </body>
  7. do meu jeito da isso: [MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 e do seu: Object required: 'DRIVER={MySQL ODBC 5' eu ate pensei que faltava esse drive na minha maquina, então coloquei no ar e persistiu o erro! o servidor é locaweb entendi cara! então na realidade eu estava usando o request.query.string para fazer esse relatorio! como não consegui e graças a ajuda do Rafael Spilki parti para esse lance do session! vou atribuir o session aos campos e posto o resultado valeu! abraço
  8. deu certo o que você passou! mas ta retornando erro de mysql! vou dar uma verificada depois... o erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 /html/cadastro_distancia2/relatorio_distancia.asp, line 32 a linha do erro é essa: " CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" " o codigo ficou exatamente assim: <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao,ultimocodigo,proximocodigo,id,senha,login SQL = "SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("campo_codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %> brigado a ajuda
  9. obrigado hein cara ... Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '1 codigo from usuarios ORDER BY codigo desc' at line 1 /html/cadastro_distancia2/relatorio_distancia.asp, line 15 tava qui pensando, acho q o select top não funciona no mysql tenho que usar isso: " SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1 "???
  10. ahh entendi, obrigado! então a variavel conexao foi declarada em outra pagina então eu declarei de novo! ficou assim: <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% dim SQL, objRs, conexao SQL = "Select top 1 campo_codigo from sua_tabela ORDER BY codigo desc" Set objRs = conexao.Execute(SQL ) ultimocodigo = objRs ("campo_codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %> mas deu o mesmo erro que o anterior! Microsoft VBScript runtime error '800a01a8' Object required: '' /html/cadastro_distancia2/relatorio_distancia.asp, line 15
  11. desculpa ae cara, não to colocando a linha! segue de novo com a linha do erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /html/cadastro_distancia2/relatorio_distancia.asp, line 15 pra te ajudar, precisamente na expressão: " Set objRs = objConn.Execute(SQL) " tem que colocar assim sera : Set objRs = objConn.Execute("SQL") ??? [edit] tentei aqui fazer isso e não é porque retornou o mesmo erro! [edit]
  12. então ficou declarado: Dim sql, objRs, objconn eu fiz e deu o erro(kkk) : Microsoft VBScript runtime error '800a01a8' Object required: ''
  13. otimo esse conselho! kkk cara deu esso erro: Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'SQL' PS. eu não declarei quando disse que: " SQL = "Select top 1 codigo from usuarios ORDER BY codigo desc" " ???
  14. tu é o cara! fica assim então? <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% SQL = "Select top 1 codigo from usuarios ORDER BY codigo desc" Set objRs = objConn.Execute(SQL ) ultimocodigo = objRs ("campo_codigo") proximocodigo = ultimocodigo + 1 id = session("proximocodigo") senha = session("senha") login = session("login") %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios where codigo = "&id&"" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %> aqui não da para testar mas acho q é isso não é??? valeu abraço!
  15. é tipo assim, vamos dizer que o cadastro so tenha senha e login! a pessoa entra no site, digita os 2 campos e manda o submit, pronto ta criado o usuario no banco de dados (se não tiver repetido o login claro)! so que minha tabela no banco contem 3 campos: codigo, login, senha! o campo codigo é um campo com autonumeração, então so de cadastrar, o codigo é colocado automaticamente! pela ajuda que voce me deu, voce me passou que conforme o usuario cadastra-se ficava no session a senha, como colocar o codigo nesse session??? é que o que você me passou funcionou perfeito cara! mas ai vendo depois não era isso que eu queria! =/ ele mostra o relatorio de acordo com a senha! mas vamos dizer que um cidadão e se cadastrou, beleza?! mas depois de sei la quanto tempo um outro cidadão cadastre uma senha igual! então o relatório mostra o primeiro cara que se cadastrou! então é mais facil trabalhar com o codigo da tabela para não ter esse problema nunca! foi esse meu problema quando cadastrei por preguiça dois cara com senha igual! kkkkkk PS. minha duvida principal é como colocar o campo codigo no session ao invés da senha! sendo que o usuario nunca vai cadastrar na tela de cadastro o campo codigo! ele é gerado automaticamente na minha tabela do banco de dados! se tem outro jeito mais facil melhor ainda! essa maneira é beleza, mas não sei como o fazer! se você me ajudar cara vou ficar devendo essa! obrigado mesmo pela ajuda! so iniciante mas vou ficar bom nisso! xD Lucas de Almeida
  16. não deu certo! valeu a ajuda cara!
  17. cara deu certo! mas não era bem isso q eu queria! é tipo assim! o que estou fazendo é uma tela de cadastro! conforme o aluno preencher as informações e clicar no botão cadastrar, vai enviar para um banco de dados meu e retornar para ele uma tela com as informações que ele preencheu para ele poder imprimir! tendeu?? o que foi passado funcionou beleza, mas ele ta gerando o relatorio de acordo com a senha que ele se cadastrou mas na realidade não é isso! eu queria que quando o cara cadastra abre uma tela com os dados dele e quando um outro cadastrar apareca no relatorio os dados do outro! expliquei bem?? PS. o request.querystring eu so usei com a senha so para teste!
  18. Apresentou o seguinte erro: Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'senha /html/cadastro_distancia/relatorio_distancia.asp, line 14
  19. muito obrigado cara, vou testar agora e te respondo se funcionou ou não! mas existe uma maneira mais facil de fazer isso??? porque o q eu quero é que quando o cliente após cadastrar, jogue as informações no Banco de dados e retorne uma pagina com os dados que ele acabou de cadastrar! acho que deu para entender não é?? so um comentario, com o codigo q eu havia feito ele cadastrava, mas retornava a página com as informações do 1 codigo! sendo que o cliente que cadastrou, por exemplo, é o 15! Obrigado pela atenção Lucas de Almeida
  20. oi, boa tarde a todos! bom to com um problema com Request.QueryString e estou pedindo ajuda ao pessoal do forum! estou desenvolvendo um site que na qual existe uma pagina de cadastro, que apos informações preenchidas, ela joga no banco de dados, e depois abre um relatório com essas informações! até a parte do banco de dados está funcionando perfeitamente, mas o relatório não é capaz de funcionar! se puderem agradeceria e muito a ajuda de todos! xD (abaixo segue um resumo dos códigos utilizados) Formulário de Cadastro - "cadastro.asp" <form name="cadastro" method="post" action="cadastrar.asp" onSubmit="return Verifica(this);"> <table width="970" border="0" cellpadding="3" cellspacing="0" bordercolor="#F4F4F4" bgcolor="#F4F4F4"> <tr> <td align="right" height="20"><font face="arial" size="2">Login:</font></td> <td><input name="txtLogin" type="text" id="txtLogin"> *</td> </tr> <tr> <td align="right" height="20"><font face="arial" size="2">Senha:</font></td> <td><input name="txtSenha" type="password" id="txtSenha" size="12" maxlength="12"> *</td> </tr> </table> </form> Cadastro no Banco de Dados - "cadastrar.asp" <!--#include file="conexao.asp"--> <% Dim conexao Login = Request.form("txtLogin") Senha = Request.form("txtSenha") strInsert = " INSERT into usuarios" strInsert = strInsert & "(login, senha)" strInsert = strInsert + "VALUES ('" + Login + "'," strInsert = strInsert + "'" + Senha + "')" Call abreConexao Set rsInsert = conexao.Execute(strInsert) Call fechaConexao Set rsInsert = Nothing Response.redirect("relatorio.asp") %> Conexão com o Banco de Dados - "conexao.asp" <% Dim string string = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") Sub AbreConexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open string end sub Sub FechaConexao Conexao.Close Set Conexao = Nothing End Sub %> Relatório com as informações cadastradas - "relatorio.asp" <% Dim MM_conn_STRING MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;") %> <% dim conn set conn = SERVER.CreateObject("ADODB.Connection") conn.Open MM_conn_STRING %> <% IF REQUEST.QueryString("txtSenha") = " " THEN RESPONSE.Redirect("pg_relatorio.asp?codigo="&REQUEST.QueryString("txtSenha")) END IF %> <% Dim CA1 Set CA1 = Server.CreateObject("ADODB.Recordset") CA1.ActiveConnection = MM_conn_STRING CA1.Source = "SELECT codigo,login, senha FROM usuarios" CA1.Open() %> <body> <table> <tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr> <tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr> </table> </body> <% CA1.Close() Set CA1 = Nothing %> <% conn.Close() Set conn = Nothing %> Obrigado pela atenção Lucas de Almeida
  21. eu tenho certeza que é muito fácil o que eu quero ... so não sei explicar! é bem simples ... mas não pode ser feito em flash nem em frame! segue abaixo os codigos ... // principal da pagina do site (apaguei o que não é util) <html> <head> &lt;script> try { xmlhttp = new XMLHttpRequest(); } catch(ee) { try{ xmlhttp = new ActiveXObject('Msxml2.XMLHTTP'); } catch(e) { try{ xmlhttp = new ActiveXObject('Microsoft.XMLHTTP'); } catch(E) { xmlhttp = false; } } } function carrega(_idContainer, _endereco){ xmlhttp.open('GET',_endereco,true); xmlhttp.onreadystatechange=function() { if (xmlhttp.readyState==4){ retorno=xmlhttp.responseText; var tag_container = document.getElementById(_idContainer); tag_container.innerHTML=retorno; } } xmlhttp.send(null) } </script> &lt;script language="JavaScript" type="text/JavaScript"> <!-- function MM_swapImgRestore() { //v3.0 var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc; } function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function MM_swapImage() { //v3.0 var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3) if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];} } //--> </script> <title>teste</title></head> <body> <table width="970" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td><table width="200"> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_x.php')" onMouseOver="MM_swapImage('img_x','','img/img_x2.jpg',1);java script:carrega('conteudo', 'site_x.php')"><img src="img/img_x.jpg" name="img_x" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_y.php')" onMouseOver="MM_swapImage('img_y','','img/img_y2.jpg',1);java script:carrega('conteudo', 'site_y.php')"><img src="img/img_y.jpg" name="img_y" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_z.php')" onMouseOver="MM_swapImage('img_z','','img/img_z2.jpg',1);java script:carrega('conteudo', 'site_z.php')"><img src="img/img_z.jpg" name="img_z" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_a.php')" onMouseOver="MM_swapImage('img_a','','img/img_a2.jpg',1);java script:carrega('conteudo', 'site_a.php')"><img src="img/img_a.jpg" name="img_a" width="200" height="25" border="0"></a></td> </tr> <tr> <td width="200" height="25"><a href="#" onMouseOut="MM_swapImgRestore();java script:carrega('conteudo', 'site_b.php')" onMouseOver="MM_swapImage('img_b','','img/img_b2.jpg',1);java script:carrega('conteudo', 'site_b.php')"><img src="img/img_b.jpg" name="img_b" width="200" height="25" border="0"></a></td> </tr> </table></td> <td width="770"><div id='conteudo'></div> </table> </body> </html> // site x (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> XXXXX </td> </tr> </table> </body> </html> // site y (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> YYYYY </td> </tr> </table> </body> </html> // site Z (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> ZZZZZ </td> </tr> </table> </body> </html> // site A (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> AAAAA </td> </tr> </table> </body> </html> // site B (apaguei o que não é util) <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>teste</title></head> <body> <table width="98%" height="140" border="0" cellpadding="0" cellspacing="0" bgcolor="#F4F4F4"> <tr> <td> BBBBB </td> </tr> </table> </body> </html> so lembrando a todos que funcionou perfeitamente! so não funciona no navegador IE obrigado a atenção LUCAS
  22. não ... simplesmente o efeito não funciona ((o efeito seria de abrir os conteudos html naquele espaço determinado)) você entendeu a duvida?? quer que te mande arquivos?? abraço Lucas
×
×
  • Criar Novo...