Ir para conteúdo

POWERED BY:

Arquivado

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

joaogil

caixa de texto

Por , em ASP Clássico

Recommended Posts

joaogil    1

joaogil
Postado

É fácil mas eu não sei fazer. Por exemplo, eu tenho uma pagina.htm com um formulário form1 e uma caixa de texto txtnome. Qual o código em asp que eu ponho pra que o valor digitado nessa caixa de texto vá para uma tabela do access e se não for digitado nada retorna falso, ou seja, não aumenta o registro da tabela ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

bfraga    0

bfraga
Postado

caixa = request.form("form")If caixa <> ""sql = Insert into... você deve saber fazer essa instruçãoconn.execute(sql)Elseresponse.write "Não foi possível inserir nada, caixa está vazio"End IfAcho que é isso que entendi.

Compartilhar este post

Link para o post
Compartilhar em outros sites

rockbilly    0

rockbilly
Postado

É mais ou menos isso:

if Request.Form("campo_da_caixa_de_texto") <> "" then

SQL = "INSERT INTO tabela(campo_nome_da_tabela)VALUES('Request.Form("nome_do_campo_da_caixa_de_texto)'"

Set RS = conecta.execute(SQL)

else

Response.Write "Verifique um dos campos em branco!"

end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

joaogil    1

joaogil
Postado

Coloquei o código, arrumei as aspas e o nome dos campos mas continua dando esse erro:

Erro de compilação do Microsoft VBScript error '800a0401'

 

Fim da instrução esperado

 

/webpub/exemplo.asp, line 14

 

SQL = "INSERT INTO tab_ex(nome)VALUES('request.form("nome")')"

-----------------------------------------------------^

 

O nome da cixa de texto é "nome" e a tabela só possui dois campos um "id" e outro "nome", olhem o código:

 

Nome:<% nome = request.form ("nome")

response.write nome & "<br>"

if request.form("nome") <> "" then

SQL = "INSERT INTO tab_ex(nome)VALUES('request.form("nome")')"

Set RS = conecta.execute(SQL)

else

Response.Write "Verifique um dos campos em branco!"

end if %>

 

<% Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db_res_form.mdb")

SQL = "Insert into tab_ex (nome)" & "values ('"&nome&"')"

Conexao.Execute(SQL)

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tente assim:

SQL = "INSERT INTO tab_ex(nome)VALUES('"& request.form("nome") &"')"

Compartilhar este post

Link para o post
Compartilhar em outros sites

joaogil    1

joaogil
Postado

Pessoal estou quase chegando lá com ajuda de vocês, essa semana voltei a mexer nesse código, arrumei tudo direitinho e continua dando o seguinte erro:

 

Nome:xcvxcv

 

Erro de tempo de execução do Microsoft VBScript error '800a01a8'

 

Objeto necessário: ''

 

/webpub/exemplo.asp, line 13

 

Olhem o código:

 

<html>

<head>

<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>exemplo.asp</title>

</head>

<body>

Nome:<% nome = request.form ("nome")

response.write nome & "<br>"

if request.form("nome") <> "" then

SQL = "INSERT INTO tab_ex(nome) VALUES('"&request.form("nome")&"')"

Set RS = conecta.execute(SQL)

else

Response.Write "Verifique um dos campos em branco!"

end if %>

 

<% Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db_res_form.mdb")

SQL = "Insert into tab_ex (nome)" & "values ('"&nome&"')"

Conexao.Execute(SQL)

%></body>

</html>

 

Ajudem-me por favor !!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tente com esse, fiz uma pequena alteração e cortei um pedaço "duplicado":

<html>
<head>
<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>exemplo.asp</title>
</head>
<body>
Nome:<% nome = request("nome")
response.write nome & "<br>"
if nome <> "" then
SQL = "INSERT INTO tab_ex(nome) VALUES('"& nome &"')"
Set RS = conecta.execute(SQL)
else
Response.Write "Verifique um dos campos em branco!"
end if %>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

joaogil    1

joaogil
Postado

Valeu + uma vez Salgado mas o mesmo erro continua, sinceramente não sei o que é, BD é access e possui 2 campos "id" que é do tipo "autonumeração" e outro campo "nome" que é do tipo "texto".

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