Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

bbtrion

inserir o Sql = "SELECT + Sql = "INSERT INTO

Por , em ASP Clássico

Recommended Posts

bbtrion    0

bbtrion
Postado

Boa Noite Pessoal,

 

Tenho um grande problema com minha conexão access, eu tenho uma pagina que inseri os formulários textbox no banco de dados access, ate ai tudo bem,

 

Agora eu queria puxar a textbox "codigo" que já esta cadastrada no banco de dados pelo "id = " , com código <%=rs("codigo")%> , com isso puxando automático o campo "código" que já esta cadastrado no banco de dados, e voltando a inserir os demais campos que faltam manual, e retornando a envia para o banco de dados.

 

Enfim Resumindo:

 

Queria que a textbox do campo "Codigo" abrisse automático de acordo com "id = " usando <%=rs("codigo")%> , e adicionasse as outras textbox manualmente, e voltar a enviar pro banco de dados.

 

Código abaixo.

 

 

 

<% AbreConexao
acao = request.querystring("acao")
select case acao
case "addfile"
%>
<% If Request.form("enviado") = "sim" Then
Sql = "SELECT * FROM download WHERE id = "& 10 & " "
Sql = "INSERT INTO download (codigo,nome,categoria,url,descricao,tamanho,idioma,adicionado,licenca) "
Sql = Sql & "VALUES('" & Request.Form("codigo") & "','" & Request.Form("nome") & "','" & Request.Form("categoria") & "', '" & Request.Form("url") & "','" & Request.Form("descricao") & "','" & Request.Form("tamanho") & "','" & Request.Form("idioma") & "', '" & Request.Form("adicionado") & "','" & Request.Form("licenca") & "')"
Conexao.Execute(Sql) %>
</font>

 

 

Tenho esse código na parte de alterar os campos que funciona direito, ele puxa os dados acima automático de acordo com "id= " para a textbox, mais da maneira de alterar o iten no banco de dados e não adicionar um novo.

 

			  <% Sql = "SELECT * FROM download"
			  Set rs = Conexao.Execute(Sql)
			  while not rs.EOF%>
			  <option value="<%=rs("id")%>"><%=rs("nome")%></option>
			  <% rs.MoveNext
			  wend %>
              </select></font><font size="2">
        </td>
    </tr>
        <tr>
      <td bgcolor="#FFFFFF" width="411">
      <p align="center">
      <font face="Verdana">
      <input type="submit" value="Deletar" name="B1"></font><font size="2">
		</font>
      </p>
      </td>
    </tr>
      </table>
</div>
</form>
<font size="2">
<% end if %>

<% case "modfile" 
passo = request.querystring("passo")
select case passo
case "1"
Sql = "SELECT * FROM download WHERE id = "& 10 & " "
Set rs = Conexao.Execute(Sql) %>
</font>
<form method="POST" action="file.asp?acao=modfile&passo=2">
<font face="Verdana">
<input type="hidden" name="enviado" value="sim">
<input type="hidden" name="id" value="<%=Request.Form("arquivo")%>">
</font>
<div align="center">
  <table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF">
        <p align="center"><font size="2">Alterar Arquivo</font></p>
      </td>
    </tr>
        <tr>
      <td bgcolor="#FFFFFF" width="411">
          <div align="center">
            <center>
          <table border="0" cellpadding="0" cellspacing="0">
          <tr>
<font face="Verdana">
            <td><font size="2">Código:</td>
<font face="Vijaya">
            <td><font face="Verdana">
			<input type="text" name="codigo" size="20" value="<%=rs("codigo")%>"></font><font size="2">
			</font>
              </td>
          </tr>
          <tr>
<font face="Verdana">
            <td><font size="2">Nome:</td>
            <font face="Verdana">
            <td><font face="Verdana"><input type="text" name="nome" size="20" value="<%=rs("nome")%>"></font><font size="2">
			</font>
              </td>
          </tr>
          <font face="Vijaya">
          <tr>
            <td><font size="2">Categoria:</td>
<font face="Verdana">
            <td><font face="Verdana"><select size="1" name="categoria">
			  <% Sql1 = "SELECT * FROM empreiteiras"
			  Set rs1 = Conexao.Execute(Sql1)
			  while not rs1.EOF%>
			  <option value="<%=rs1("id")%>"><%=rs1("nome")%></option>
			  <% rs1.MoveNext
			  wend %>
              </select></font></td>
          </tr>
          <tr>
            <td><font size="2">Ferramenta:</td>
<font face="Vijaya">
            <td><font face="Verdana"><input type="text" name="url" size="20" value="<%=rs("url")%>"></font></td>
          </tr>
          <tr>
<font face="Verdana">
            <td><font size="2">Quantidade:</td>
            <td><font face="Verdana"><input type="text" name="tamanho" size="20" value="<%=rs("tamanho")%>"></font></td>
          </tr>
          <tr>
<font face="Verdana">
            <td><font size="2">Valor:</td>
            <td><font face="Verdana"><input type="text" name="idioma" size="20" value="<%=rs("idioma")%>"></font></td>
          </tr>
          <tr>
<font face="Verdana">
            <td><font size="2">Status:</font></td>
            <td><font face="Verdana"><input type="text" name="licenca" size="20" value="<%=rs("licenca")%>"></font></td>
          </tr>
          <tr>
<font face="Verdana">
            <td valign="top"><font size="2">Observação:</font></td>
            <td><font face="Verdana" color="#000000"><textarea rows="2" name="descricao" cols="20"><%=rs("descricao")%></textarea></font></td>
          </tr>
        </table>
            </center>
            </div>
            </font>
<font face="Vijaya">
        </td>
    </tr>
        <tr>
      <td bgcolor="#FFFFFF" width="411">
      <p align="center">
      <font face="Verdana">
      <input type="submit" value="Alterar" name="B1"></font><font size="2">
		</font>
      </p>
      </td>
    </tr>
      </table>
</div>
</form>

<font size="2">

<% case "2" %> 
<% Sql = "UPDATE download SET codigo = '" & Request.Form("codigo") & "',nome = '" & Request.Form("nome") & "',categoria = '" & Request.Form("categoria") & "',url = '" & Request.Form("url") & "',descricao = '" & Request.Form("descricao") & "',tamanho = '" & Request.Form("tamanho") & "',idioma = '" & Request.Form("idioma") & "',licenca = '" & Request.Form("licenca") & "' WHERE id = " & Request.Form("id")  & " "
Conexao.Execute(Sql) %>
</font>
<div align="center">
  <table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF">
        <p align="center"><font size="2">Arquivo Alterado</font></p>
      </td>
    </tr>
        <tr>
      <td bgcolor="#FFFFFF" width="411">
        <font size="2">Arquivo "<%=Request.Form("nome")%>"
        alterado </font>
        </td>
    </tr>
      </table>
</div>

<font size="2">

<% case else %>

 

Aguardo!

 

Obrigado Pela Atenção

 

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este link

Compartilhar este post

Link para o post
Compartilhar em outros sites

bbtrion    0

bbtrion
Postado

Xanburzun olhei seu post la, peguei uma base pra conexao com bd access mais ta dando uma pagina em branco sem erro sem nada.

 

adic.asp

 

 

 

<!--#include file="conectar.asp"-->
<% AbreConexao
acao = request.querystring("acao")
select case acao
case "id"
Sql = "SELECT * FROM download WHERE id = "& 10 & " "
Set rs = Server.CreateObject("ADODB.Recordset")
If Request.form("enviado") = "sim" Then
Sql = "INSERT INTO download (nome,categoria,url,descricao,tamanho,idioma,adicionado,licenca) "
Sql = Sql & "VALUES('" & Request.Form("nome") & "','" & Request.Form("categoria") & "', '" & Request.Form("url") & "','" & Request.Form("descricao") & "','" & Request.Form("tamanho") & "','" & Request.Form("idioma") & "', '" & Request.Form("adicionado") & "','" & Request.Form("licenca") & "')"
Conexao.Execute(Sql)%>
<div align="center">
</div>
<% else %>
<form method="POST" action="file.asp?acao=addfile">
<input type="hidden" name="enviado" value="sim">
<input type="hidden" name="adicionado" value="">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="3">Adicionar Arquivo</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font size="2">Nome:</td>
<td><input type="text" name="nome" size="20">
</td>
</tr>
<tr>
<td><font size="2">Categoria:</td>
<td><select size="1" name="categoria">
<% Sql = "SELECT * FROM categorias"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<option value="<%=rs("id")%>"><%=rs("nome")%></option>
<% rs.MoveNext
wend %>
</select></td>
</tr>
<tr>
<td><font size="2">URL:</td>
<td><input type="text" name="url" size="20" value="http://"></td>
</tr>
<tr>
<td><font size="2">Tamanho:</td>
<td><input type="text" name="tamanho" size="20"></td>
</tr>
<tr>
<td><font size="2">Idioma:</td>
<td><input type="text" name="idioma" size="20"></td>
</tr>
<tr>
<td><font size="2">Licença:</font></td>
<td><input type="text" name="licenca" size="20"></td>
</tr>
<tr>
<td valign="top"><font size="2">Descrição:</font></td>
<td><textarea rows="2" name="descricao" cols="20"></textarea></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<p align="center">
<input type="submit" value="Adicionar" name="B1">
</p>
</td>
</tr>
</table>
</div>
</form>
<% end if %>
<%
end select %>

 

Quando eu coloco pra abrir a pagina com essa url : http://localhost/teste/adic.asp?acao=10 aparece a pagina em branco, acredito que estou errando quando eu coloco os dois codigos Sql = "SELECT e Sql = "INSERT INTO, e a pagina conectar.asp esta funcioando normal pras outras paginas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

bbtrion    0

bbtrion
Postado

Meus problemas também se resolvem assim, no parâmetro de modificar o item no banco de dados, ele inserir um novo

 

Esse código e pra alterar o item no banco de dados:

 

 

 

<% case "2" %>
<% Sql = "UPDATE download SET codigo = '" & Request.Form("codigo") & "',nome = '" & Request.Form("nome") & "',categoria = '" & Request.Form("categoria") & "',url = '" & Request.Form("url") & "',descricao = '" & Request.Form("descricao") & "',tamanho = '" & Request.Form("tamanho") & "',idioma = '" & Request.Form("idioma") & "',licenca = '" & Request.Form("licenca") & "' WHERE id = " & Request.Form("id") & " "
Conexao.Execute(Sql) %>

 

tem algum jeito de invés de alterar com "update", ele "INSERT INFO" inserir um novo arquivo no banco de dados ?

 

aqui ta o codigo total:

 

file.asp

 

 

 

<!--#include file="restrito.asp"-->
<!--#include file="conectar.asp"-->
<html>
<head>
<title></title>
</head>
<body>
<font face="Verdana">
<!--#include file="barra_sup.asp"-->
<hr size="1" color="#FFFFFF"><font size="2"><br>
<% AbreConexao
acao = request.querystring("acao")
select case acao
case "addfile" %>
<% If Request.form("enviado") = "sim" Then
Sql = "INSERT INTO download (codigo,nome,categoria,url,descricao,tamanho,idioma,adicionado,licenca) "
Sql = Sql & "VALUES('" & Request.Form("codigo") & "','" & Request.Form("nome") & "','" & Request.Form("categoria") & "', '" & Request.Form("url") & "','" & Request.Form("descricao") & "','" & Request.Form("tamanho") & "','" & Request.Form("idioma") & "', '" & Request.Form("adicionado") & "','" & Request.Form("licenca") & "')"
Conexao.Execute(Sql)%>
</font>
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="2">Arquivo Adicionado</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<font size="2">Arquivo "<%=Request.Form("nome")%>"
adicionado </font>
</td>
</tr>
</table>
</div>
<font size="2">
<% else %>
<% dia=Day(now())
mes=Month(now())
ano=Year(now())
If dia > "10" Then
dia = "0" & dia
end if
If mes > "10" Then
mes = "0" & mes
end if
data = dia & "/" & mes & "/" & ano %>
</font>
<form method="POST" action="file.asp?acao=addfile">
<input type="hidden" name="enviado" value="sim">
<input type="hidden" name="adicionado" value="<%=data%>">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="2">Adicionar Arquivo</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<font face="Verdana">
<td><font size="2">Código:</td>
<td><font face="Verdana"><input type="text" name="codigo" size="20"></font><font size="2">
</font>
</td>
</tr>
<tr>
<td><font size="2">Nome:</td>
<td><font face="Verdana"><input type="text" name="nome" size="20"></font><font size="2">
</font>
</td>
</tr>
<font face="Vijaya">
<tr>
<td><font size="2">Categoria:</td>
</font>
<font face="Verdana">
<td><font face="Verdana"><select size="1" name="categoria">
<% Sql = "SELECT * FROM empreiteiras"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<option value="<%=rs("id")%>"><%=rs("nome")%></option>
<% rs.MoveNext
wend %>
</select></font></td>
</tr>
<tr>
<td><font size="2">Ferramenta:</td>
<td><font face="Verdana"><input type="text" name="url" size="20"></font></td>
</tr>
<tr>
<td><font size="2">Quantidade:</td>
<td><font face="Verdana"><input type="text" name="tamanho" size="20"></font></td>
</tr>
<tr>
<td><font size="2">Valor:</td>
<td>
<font face="Verdana">
<input type=text name=idioma length=15 onKeyPress="return(currencyFormat(this,',','.',event))" size="20"></font> <SCRIPT LANGUAGE="JavaScript">
function currencyFormat(fld, milSep, decSep, e) {
var sep = 0;
var key = '';
var i = j = 0;
var len = len2 = 0;
var strCheck = '0123456789';
var aux = aux2 = '';
var whichCode = (window.Event) ? e.which : e.keyCode;
if (whichCode == 13) return true; // Enter
key = String.fromCharCode(whichCode);
if (strCheck.indexOf(key) == -1) return false;
len = fld.value.length;
for(i = 0; i < len; i++)
if ((fld.value.charAt(i) != '0') && (fld.value.charAt(i) != decSep)) break;
aux = '';
for(; i < len; i++)
if (strCheck.indexOf(fld.value.charAt(i))!=-1) aux += fld.value.charAt(i);
aux += key;
len = aux.length;
if (len == 0) fld.value = '';
if (len == 1) fld.value = '0'+ decSep + '0' + aux;
if (len == 2) fld.value = '0'+ decSep + aux;
if (len > 2) {
aux2 = '';
for (j = 0, i = len - 3; i >= 0; i--) {
if (j == 3) {
aux2 += milSep;
j = 0;
}
aux2 += aux.charAt(i);
j++;
}
fld.value = '';
len2 = aux2.length;
for (i = len2 - 1; i >= 0; i--)
fld.value += aux2.charAt(i);
fld.value += decSep + aux.substr(len - 2, len);
}
return false;
}
</script>
</head>
<body>
</body>
<body>
</td>
</tr>
<tr>
<td><font size="2">Status:</font></td>
<td><select size="1" name="licenca">
<option>Pendente</option>
<option>Sem débitos</option>
</select></td>
</tr>
<tr>
<td valign="top"><font size="2">Observação:</font></td>
<td><font face="Verdana" color="#000000">
<textarea rows="4" name="descricao" cols="20"></textarea></font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<p align="center">
<font face="Verdana">
<input type="submit" value="Adicionar" name="B1"></font><font size="2">
</font>
</p>
</td>
</tr>
</table>
</div>
</form>
<font size="2">
<% end if %>
<% case "delfile" %>
<% If Request.form("enviado") = "sim" Then
Sql = "DELETE * FROM download WHERE id=" & Request.Form("arquivo") & " "
Conexao.Execute(Sql) %>
</font>
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="2">Arquivo Deletado</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<font size="2">Arquivo "<%=Request.Form("arquivo")%>" deletado
</td>
</tr>
</table>
</div>
<font size="2">
<% else %>
</font>
<form method="POST" action="file.asp?acao=delfile">
<input type="hidden" name="enviado" value="sim">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="2">Deletar Arquivo</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<font size="2">Arquivo: </font>
</font>
<font face="Vijaya">
<font face="Verdana">
<font face="Verdana" color="#A8E6FD" size="2"> <select size="1" name="arquivo">
<% Sql = "SELECT * FROM download"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<option value="<%=rs("id")%>"><%=rs("nome")%></option>
<% rs.MoveNext
wend %>
</select></font><font size="2">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<p align="center">
<font face="Verdana">
<input type="submit" value="Deletar" name="B1"></font><font size="2">
</font>
</p>
</td>
</tr>
</table>
</div>
</form>
<font size="2">
<% end if %>
<% case "modfile"
passo = request.querystring("passo")
select case passo
case "1"
Sql = "SELECT * FROM download WHERE id = "& Request.Form("arquivo") & " "
Set rs = Conexao.Execute(Sql) %>
</font>
<form method="POST" action="file.asp?acao=modfile&passo=2">
<font face="Verdana">
<input type="hidden" name="enviado" value="sim">
<input type="hidden" name="id" value="<%=Request.Form("arquivo")%>">
</font>
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="2">Alterar Arquivo</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<font face="Verdana">
<td><font size="2">Código:</td>
<font face="Vijaya">
<td><font face="Verdana">
<input type="text" name="codigo" size="20" value="<%=rs("codigo")%>"></font><font size="2">
</font>
</td>
</tr>
<tr>
<font face="Verdana">
<td><font size="2">Nome:</td>
<font face="Verdana">
<td><font face="Verdana"><input type="text" name="nome" size="20" value="<%=rs("nome")%>"></font><font size="2">
</font>
</td>
</tr>
<font face="Vijaya">
<tr>
<td><font size="2">Categoria:</td>
<font face="Verdana">
<td><font face="Verdana"><select size="1" name="categoria">
<% Sql1 = "SELECT * FROM empreiteiras"
Set rs1 = Conexao.Execute(Sql1)
while not rs1.EOF%>
<option value="<%=rs1("id")%>"><%=rs1("nome")%></option>
<% rs1.MoveNext
wend %>
</select></font></td>
</tr>
<tr>
<td><font size="2">Ferramenta:</td>
<font face="Vijaya">
<td><font face="Verdana"><input type="text" name="url" size="20" value="<%=rs("url")%>"></font></td>
</tr>
<tr>
<font face="Verdana">
<td><font size="2">Quantidade:</td>
<td><font face="Verdana"><input type="text" name="tamanho" size="20" value="<%=rs("tamanho")%>"></font></td>
</tr>
<tr>
<font face="Verdana">
<td><font size="2">Valor:</td>
<td><font face="Verdana"><input type="text" name="idioma" size="20" value="<%=rs("idioma")%>"></font></td>
</tr>
<tr>
<font face="Verdana">
<td><font size="2">Status:</font></td>
<td><font face="Verdana"><input type="text" name="licenca" size="20" value="<%=rs("licenca")%>"></font></td>
</tr>
<tr>
<font face="Verdana">
<td valign="top"><font size="2">Observação:</font></td>
<td><font face="Verdana" color="#000000"><textarea rows="2" name="descricao" cols="20"><%=rs("categoria")%></textarea></font></td>
</tr>
</table>
</center>
</div>
</font>
<font face="Vijaya">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<p align="center">
<font face="Verdana">
<input type="submit" value="Alterar" name="B1"></font><font size="2">
</font>
</p>
</td>
</tr>
</table>
</div>
</form>
<font size="2">
<% case "2" %>
<% Sql = "UPDATE download SET codigo = '" & Request.Form("codigo") & "',nome = '" & Request.Form("nome") & "',categoria = '" & Request.Form("categoria") & "',url = '" & Request.Form("url") & "',descricao = '" & Request.Form("descricao") & "',tamanho = '" & Request.Form("tamanho") & "',idioma = '" & Request.Form("idioma") & "',licenca = '" & Request.Form("licenca") & "' WHERE id = " & Request.Form("id") & " "
Conexao.Execute(Sql) %>
</font>
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="2">Arquivo Alterado</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<font size="2">Arquivo "<%=Request.Form("nome")%>"
alterado </font>
</td>
</tr>
</table>
</div>
<font size="2">
<% case else %>
</font>
<form method="POST" action="file.asp?acao=modfile&passo=1">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="421" bordercolorlight="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF">
<p align="center"><font size="2">Selecione o Arquivo</font></p>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<font size="2">Arquivo: </font>
</font>
<font face="Vijaya">
<font face="Verdana">
<select size="1" name="arquivo">
<% Sql = "SELECT * FROM download"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<option value="<%=rs("id")%>"><%=rs("nome")%></option>
<% rs.MoveNext
wend %>
</select><font size="2"> </font>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="411">
<font face="Verdana">
<input type="submit" value="Selecionar" name="B1"></font><font size="2">
</font>
</td>
</tr>
</table>
</div>
</form>
<font size="2">
<% end select %>
<% case else
Response.Redirect "admin.asp"
end select %>
</font>
</body>
</html>

 

Agradeço desde já a atenção.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

só faz uma verificação antes no bd, caso exista use o UPDATE, senão dá um INSERT nele

Compartilhar este post

Link para o post
Compartilhar em outros sites

bbtrion    0

bbtrion
Postado

Fiz o seguindo no no case "2" coloquei INSERT nele e retirei o campo WHERE no final, meso assim continua com erro.

 

 

 

<% Sql = "INSERT INTO download SET codigo = '" & Request.Form("codigo") & "',nome = '" & Request.Form("nome") & "',categoria = '" & Request.Form("categoria") & "',url = '" & Request.Form("url") & "',descricao = '" & Request.Form("descricao") & "',tamanho = '" & Request.Form("tamanho") & "',idioma = '" & Request.Form("idioma") & "',licenca = '" & Request.Form("licenca") & " "
Conexao.Execute(Sql) %>

 

Original:

 

 

 

<% case "2" %>
<% Sql = "UPDATE download SET codigo = '" & Request.Form("codigo") & "',nome = '" & Request.Form("nome") & "',categoria = '" & Request.Form("categoria") & "',url = '" & Request.Form("url") & "',descricao = '" & Request.Form("descricao") & "',tamanho = '" & Request.Form("tamanho") & "',idioma = '" & Request.Form("idioma") & "',licenca = '" & Request.Form("licenca") & "' WHERE id = " & Request.Form("id") & " "
Conexao.Execute(Sql) %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Humberto Oliveira Pinto    8

Humberto Oliveira Pinto
Postado

Tenta adapta ai

    set conn = CreateObject("ADODB.Connection") 
    conn.open MM_conn_STRING 
    sql = "INSERT INTO tabela (campo) VALUES ('valor');"
    set rs = conn.execute(sql) 
	sql = " SELECT @@IDENTITY" 	
    set rs = conn.execute(sql) 
	campo = rs(0)
    rs.close: set rs = nothing 
    conn.close: set conn = nothing 

Response.write campo

Compartilhar este post

Link para o post
Compartilhar em outros sites

bbtrion    0

bbtrion
Postado

Obrigado pela ajuda!

 

Adaptei o código assim:

 

 

 

<% set conn = CreateObject("ADODB.Connection")
conn.open MM_conn_STRING
sql = "INSERT INTO download (codigo,nome,categoria,url,descricao,tamanho,idioma,adicionado,licenca) VALUES ('" & Request.Form("codigo") & "','" & Request.Form("nome") & "','" & Request.Form("categoria") & "', '" & Request.Form("url") & "','" & Request.Form("descricao") & "','" & Request.Form("tamanho") & "','" & Request.Form("idioma") & "', '" & Request.Form("adicionado") & "','" & Request.Form("licenca") & "');"
set rs = conn.execute(sql)
sql = " SELECT @@IDENTITY"
set rs = conn.execute(sql)
campo = rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
Response.write campo
Conexao.Execute(Sql) %>

 

mesmo assim continua com erro, posso ter errado em alguma coisa do codigo ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

qual o erro gerado ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

bbtrion    0

bbtrion
Postado

Testei com esse codigo tambem, sem sucesso. Eu estava pesquisando no forum e achei que te jeito de fazer pelo metodo de ajax buscando pelo banco de dados access e autocompletando isso ia me satisfazer 100% a ideia seria a seguinte:

 

tenho 5 campos:

 

Codigo: 1122222

 

Nome:

CPF:

Cargo:

Endereço:

 

digitando o campo "código" ele autocompletava os demais buscando pelo bd, e possível adaptar nessa pagina "file.asp" ? Tem algum tutorial ou código pronto ? sou iniciante em asp

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum número de erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito