Lucyan Peixoto
-
Total de itens
6 -
Registro em
-
Última visita
Tudo que Lucyan Peixoto postou
-
RESOLVIDO!!! Eu estava colocando assim: where id = '"&pegaId&"' " Mas é assim: where id = "&pegaId Obrigado!
-
aqui tá a imagem da tela O id tá dentro do textfield_id, e to recuperando ele por o pegaId = request.form("textfield_id") e estou jogando ele no sql, só com ele que não funciona, se eu pegar por agencia por exemplo ele funciona, mas tipo, é um cadastro de visita, se for pelo nome vai alterar todos os agendamentos que estiver o mesmo nome. Obg!
-
testei e não funcionou... quando eu faço update pelo pegaNome, pegaAgencia, pegaCidade por qualquer um dos "PEGA" ele funciona normal, só não pelo bendito pegaId ;s
-
Resolvido, Obg!
-
'to criando uma variável "pegaId" que recebe o "id" do banco e to passando ela pela a URL pegaId = r1.fields("id") Response.Write <td align='center'><font size='2px'><a href ='editvisitaa.asp?i="&pegaId&" '>Alterar visita</a></td></tr>" 'crio outra variável "id" que recebe o valor do Id passado pela URL, converto para INTEIRO e coloco ela no textfield_id id = CInt(Request.QueryString("i")) <tr> <td bordercolor="#FFFFFF"> <input name="textfield_id" type="text" style="color:#FFFFFF; border:0" value="<%=id%>" size="1"/></td> </tr> 'crio mais uma variável "pegaId" que pega o valor do textfild_id e jogo no sql pegaId = Request.Form("textfield_id") sql_alter_visitas = "UPDATE visitaGerentes SET dia= '"&pegaDia&"', mes= '"&pegaMes&"', ano= '"&pegaAno&"', tipodevisita = '"&pegaTipoVisita&"' where id = '"&pegaId' " set r3 = conexao.Execute(sql_alter_visitas,,adCmdText) 'quando eu coloco pra atualizar os dados no banco, o navegador mostra esse erro Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /visita_agencias/salvaeditt.asp, line 40 'a linha 40 que o erro se refere é essa -> set r3 = conexao.Execute(sql_alter_visitas,,adCmdText) Desde já agradeço!
-
ESTOU TENTANDO COLOCAR OS DADOS NO FORM AO SELECIONAR UMA AGÊNCIA NO LISTBOX <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Sala das Prefeituras</title> </head> <body bgcolor="#FFFFFF"> <form name = "teste" method="POST" action="form_visitaAg.html" > Agências: <select size="1" name="agencias"> <% SQL = "SELECT * FROM dados_agencia" Set conn = Server.CreateObject("ADODB.Connection") Set result = Server.CreateObject("ADODB.Recordset") conn.Open "DBQ=" & Server.MapPath( "agendamento_visita1" ) & "; Driver={Microsoft Access Driver (*.mdb)};" result.Open SQL, conn While Not result.EOF If Not result.EOF Then pega_ag = result.Fields("nome_agencia") Response.Write "<option value="&pega_ag&">"&pega_ag&"</option>" End If result.MoveNext Wend %> </select></font></b></p> <br> <div id="botao" align="center"> <input type="submit" name="submit" value="Consultar"></div></div></input> </div> </form> <% result.Close conn.Close %> </body> </html> =========================================================================== <!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>Visita Gerentes</title> <style type="text/css"> td{font-family:Arial, Helvetica, sans-serif} #botao_salvar{ position:absolute; left:13px; top:300px; } #botao_novo{ position:absolute; left:100px; top:300px; } #botao_sair{ position:absolute; left:560px; top:300px; } #tabela{ position:absolute; top:100px; left:200px; } #cabecalho{ position:absolute; left:425px; top:50px; } </style> </head> <body> <% Dim nome_ag Dim cidade_ag Dim endereco_ag Dim telefone_ag Dim bairro_ag Dim ag SQL = "SELECT * FROM dados_agencia;" Set conn = Server.CreateObject("ADODB.Connection") Set result = Server.CreateObject("ADODB.Recordset") conn.Open "DBQ=" & Server.MapPath( "agendamento_visita1" ) & "; Driver={Microsoft Access Driver (*.mdb)};" result.Open SQL, conn While Not result.EOF If Not result.EOF Then ag = result.Fields("nome_agencia") If ag = pega_ag Then cidade_ag = result.Fields("cidade_agencia") End If End If result.MoveNext Wend %> <div id ="cabecalho"> <table> <tr> <td><a href="http://www.sr2645.al.caixa"><img src="../agendamento_visitas/caixaicone.jpg" / width="150"></a></td> </tr> </table> </div> <div id="tabela"> <form action= "../agendamento_visitas/salva_visitaGerente.asp" method="post" name="agenda_visita" onsubmit="return valida(this);"> <table width="625" border="1" bordercolor="#0000FF" align="center"> <tr> <td> <div align="center">Visita Gerentes </div></td> </tr> <tr> <td bordercolor="#FFFFFF"> Nome: <label> <input name="textfield_nome" type="text" id="textfield_nome" size="50"/> Matrícula: <input name="textfield_matricula" type="text" id="textfield_matricula" /> </label></td> </tr> <tr> <td bordercolor="#FFFFFF"> Agência: <label> <input name="textfield_agencia" type="text" id="textfield_agencia" size="40" value="<%=cidade_ag%>"/> Cidade: <input name="textfield_cidade" type="text" id="textfield_cidade" size="28"/> </label></td> </tr> <tr> <td width="615" height="26" bordercolor="#FFFFFF"> Endereço: <label> <input name="textfield_endereco" type="text" id="textfield_endereco" size="50"/> Bairro: <input name="textfield_bairro" type="text" id="textfield_bairro" size="17"/> </label></td> </tr> <tr> <td bordercolor="#FFFFFF"> UF: <label> </label> <label> <input name="textfield_" type="text" id="textfield_uf" size="1" value="AL" disabled="disabled"/> </label> Contato: <label> <input name="textfield_contato" type="text" id="textfield_contato" size="30"/> </label>%