Incluir registro

TeixeiraRamos · Maio 22, 2010

Como já informei anteriormente, nunca tinha visto nada sobre ASP a não ser navegando pela internet encontrar uma página que no final consta .asp.

Frequentando esse forum consegui colocar os registros de uma tabela no browser, de um banco de dados em Access.

Contudo, estou gostando muito de trabalhar com ASP mas, tenho necessidade de continuar aprendendo como por exemplo: Inclui, Alterar, Excluir registro de uma tabela via pagina em "asp". Estive vendo alguns exemplos mas a conexão do bando é via ODBC e fiquei confuso se devo continuar fazendo a conexão da mesma forma que faço para mostrar os registro de uma tabela ou terei que usar outro método.

Fui tentar fazer um exemplo mas só consegui colocar os registro no browser e assim mesmo retirando do exemplo as linhas onde consta "Set rs.MoveNext" "Loop" e "Conn.Clone".

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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>Leitura de Registro na Tabela</title>

<%
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("/Estudo ASP/dados/Nwind.mdb")

Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring

'crio o rs
 set rs=Server.CreateObject("ADODB.Recordset")
	 
'crio o SQL
SQL="SELECT * FROM Customers Order By ContactName"
rs.open SQL,conexao,1,3
%>

</head>

<body>
<h1><div align="center">Leitura da Tabela"</div></h1>
<br />
<br />

<table align="center">
<tr>
	<th>Nome Contato</th>
	<th>Telefone</th>
</tr>

<%while not rs.eof%>
<tr>
	<td><%=rs("ContactName")%></td>
	<td><%=rs("Phone")%></td>
</tr>

<% rs.movenext
   wend
   Set rs=nothing
   Set conexao=nothing
%>
<div align="center">
<a href="insertar.html">Acrescentar um novo registro</a><br />
<a href="actualizar1.asp">Atualizar registro existente</a><br />
<a href="apagar1.asp">Apagar um registro</a><br />
</div>

<%
Set rs.MoveNext
Loop

Conn.Clone
%>

</table>
</body>
</html>

Aparece erro na linha:

<%
Set rs.MoveNext
Loop

Conn.Clone
%>

Dessa forma, como estou sem base ainda, solicito informa se para Incluir, Alterar, Excluir, devo criar a mesma conexão, criar o recordset, criar variável e o que devo fazer para Incluir, Alterar, Excluir um registro de uma tabela.

Por que apresenta erro na linha que consta:

<%
Set rs.MoveNext
Loop

Conn.Clone
%>

Se conseguir aprender essa parte poderei exercitar mais.

Obrigado.

jothaz · Maio 22, 2010

Tanta assim:

<%
 rs.MoveNext
Loop

Conn.Clone
%>

você tem algum conhecimento básicos de programação e lógica?

TeixeiraRamos · Maio 22, 2010

Muito obrigado pela atenção.

Sim, mas ha muitos anos.

Com relação a minha dúvida perdão mas o que está no tutorial é justamente o que você colocou e estava dando erro. Como não tenho um exemplo tentei colocando "Set". Vou retirar e colocar da forma que você orientou mas pode ter certeza que colando o que você orientou apresenta o seguinte erro no navegador Firefox.

"Informações técnicas (para a equipe de suporte)

* Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A040E)

'loop' sem 'do'

/estudo asp/trabalhar banco dados.asp, line 57

Loop "

Deve ter algo mais errado se fosse só isso correria tudo bem. Como mencionei estou usando o mesmo método para apresentar os registros de uma tabela no navegador. O que muda é só o que você orientou para incluir? Se for isso tem mais coisas erradas no meu código errado.

Você deve está notando que a forma como estou pergundo demonstra falta de conhecimento. Mas é isso mesmo. Nunca trabalhei com ASP na minha vida e fica ruim até para explicar. Ha muitos anos fiz aqui no Rio de Janeiro um curso de VB6, autodidata em ColdFusion e aqueles cursos de pacotes que inclui logica de programação. Fiz poucas coisas com VB6, CF mas tive que parar devido a outros atividade. Se tivesse continuado hoje seria mais fácil, mas nunca é tarde.

xanburzum · Maio 22, 2010

olha este exemplo

TeixeiraRamos · Maio 23, 2010

Muito obrigado.

Vou cair dentro.

Abraços. Valeu!

xanburzum,

Sugiram dúvidas fazendo o exemplo que você indicou que por sinal é muito bom. Era isso mesmo que estava procurando:

Criei a Logincli_form_triena.asp e coloquei todo o código dentro do

<body>. Está correto?

Reparei que ele foi fechado em:

end select %>

Mas não foi aberto. Nesse caso eu abri em:

<%Select case varmsgeof

Está correto? Não apresentou erro.

Fui para a segunda.

Conexao1.asp coloquei o código todo dentro do <body>. Não deu erro, mas está correto?

Depois fui para a LoginCli_action_treina.asp

Também coloquei tudo dentro do <body> mas apresentou erro. Aponta para <% Option Explicit

Reparei que ao digitar a variável - varsenha=Replace(varsenha,”‘”,”") já apresenta erro. Não entendo se

varsenha=Replace(varsenha,”‘”,”") é diferente de varsenha=Trim(request.form(“senha”)) não deveria apresentar erro.

Não gostaria de perder essa oportunidade de aprender.

<% Option Explicit

    ‘declara as var

    dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data

    ‘recupera as var

    varlogin=Trim(request.form(“login”))

    varsenha=Trim(request.form(“senha”))

    varlogin=Replace(varlogin,”‘”,”")

    varsenha=Replace(varsenha,”‘”,”")

    if varlogin=”" then

    response.redirect(“logincli_form_treina.asp?msgeof=1″)

    end if

    if varsenha=”" then

    response.redirect(“logincli_form_treina.asp?msgeof=2″)

    end if

    if Session(“logado”)=True then

    response.redirect(“logincli_form_treina.asp?msgeof=5″)

    end if

    %>

Não abro mão de digitar todo o código para ir aprendendo mas independente disso seria bom se tivesse meios de gravar todo esse exemplo para saber o que está acontecendo. Já analisei linha por linha e não entendo porque apresenta erro ao digitar a variavel

varsenha=Replace(varsenha,”‘”,”")

Muito obrigado e afirmo que com esse exemplo vou aprender. Só mais um pouco de paciência e vou chegar lá.

Abraços

Com relação a instrução Opton Explicit tem que fica antes de todos os comandos HTML.

Vou refazer e retorno.

Tem algo mais errado? Está igual ao exemplo e apresenta erro.

Por favor o que pode ser?

xanburzum · Maio 23, 2010

alguns códigos ficarão em cima de tudo, linha 1, principalmente os que comtem <% Option Explicit,

segua os scripts na mesma sequencia, ele esta gerando algum numero de erro ???

TeixeiraRamos · Maio 23, 2010

Seria melhor eu informar todos os scripts para saber onde estou errando. Talvéz com isso nas demais não erre mais.

A página Logincli_form_triena.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!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>

<%

Select case varmsgeof

case 1 'login vazio

response.Write("<script>novajan();</script>")

case 2 'senha vazia

response.Write("<script>novajan();</script>")

case 3 'login inválido

response.Write("<script>novajan();</script>")

case 4 'senha incorreta

response.Write("<script>novajan();</script>")

case 5 'se usar já logado

response.Write("<script>novajan();</script>")

case 6 'user naun está está logado, por isso tem permisão para entra em atualização/suporte

response.Write("<script>novajan2();</script>")

end select%>

</body>

</html>

Correto?

Conexao1.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!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>

<%

' este arq. serve para estabelecer a conexao com o BD em Access

' de nome quaddra.mdb

sub abreconexao

constring="provider=microsoft.JET.OLEDB.4.0;Data Souce="& Server.MapPath("db/quaddra.mdb")

Set conexao.open constring

end sub

sub fechaconexao

Set conexao=nothing

end sub

%>

</body>

</html>

Correto?

E A ultima LoginCli_action_treina. asp que digitei que apresenta erro no navegador Firefox:

"Informações técnicas (para a equipe de suporte)

* Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/banco de dados paginas asp/LoginCli_action_treina.asp, line 5

Option Explicit"

<%@LANGUAGE="VBSCRIPT"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<% Option Explicit

‘declara as var

dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data

‘recupera as var

varlogin=Trim(request.form(“login”))

varsenha=Trim(request.form(“senha”))

varlogin=Replace(varlogin,”‘”,”")

varsenha=Replace(varsenha,”‘”,”")

if varlogin=”" then

response.redirect(“logincli_form_treina.asp?msgeof=1?)

end if

if varsenha=”" then

response.redirect(“logincli_form_treina.asp?msgeof=2?)

end if

if Session(“logado”)=True then

response.redirect(“logincli_form_treina.asp?msgeof=5?)

end if

%>

<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>

<!–#include file=”conn/conexao1.asp”–>

<%

call abreconexao

‘cria o recordset

Set rs=Server.CreateObject(“ADODB.Recordset”)

SQL=”SELECT * FROM login WHERE login=’”&varlogin&”‘”

rs.open SQL,conexao,1,3

if rs.eof then

response.redirect(“logincli_form_treina.asp?msgeof=3?)

else

if Lcase (varsenha) <> Lcase(rs(“senha”)) then

response.redirect(“logincli_form_treina.asp?msgeof=4?)

session(“logado”)=False

else

session(“logado”)=True

session(“senha”)=varsenha

session(“login”)=varlogin

response.Redirect(“administracao_treina.asp”)

end if

end if

set rs=nothing

call fechaconexao%>

</body>

</html>

Isso foi tudo que fiz até agora.

xanburzum · Maio 23, 2010

aparentemente, esta tudo OK...

verifique se não esta gerando nenhum erro...

TeixeiraRamos · Maio 23, 2010

Como informado acima vem apresentado erro na LoginCli_action_treina.asp

E A ultima LoginCli_action_treina. asp que digitei que apresenta erro no navegador Firefox:

"Informações técnicas (para a equipe de suporte)

* Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/banco de dados paginas asp/LoginCli_action_treina.asp, line 5

Option Explicit"

Todos os scripts estão digitados no local certo?

xanburzum · Maio 23, 2010

qual é a linha ?

TeixeiraRamos · Maio 24, 2010

Na linha onde consta:

Option Explicit"

Conforme informei:

E A ultima LoginCli_action_treina. asp que digitei que apresenta erro no navegador Firefox:

"Informações técnicas (para a equipe de suporte)

* Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/banco de dados paginas asp/LoginCli_action_treina.asp, line 5

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Option Explicit"

Todos os scripts estão digitados no local certo?

xanburzum · Maio 24, 2010

coloque o <% Option Explicit

en cima , em primeiro, antes de todo o code

<% Option Explicit%>

TeixeiraRamos · Maio 24, 2010

Continua dando erro. No seu exemplo não está fechando %> em Option Explict.

Será que não tem mais nada para fechar ou abrir. Não está faltando nada?

Continua apontando para <%Option Explicit%>

No seu exemplo você não coloca %> fechar porque é lógico que tem que fechar por isso simplifica não colocando?

Quem está no início fica perdido e não consegue descobrir.

Digitei o seu exemplo com muita cautela mas continua parando em Option Ecplicit.

Erro

informações técnicas (para a equipe de suporte)

* Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/banco de dados paginas asp/LoginCli_action_treina.asp, line 3

Option Explicit

A linha 3 é Option Explicit.

Todo o código

<%@LANGUAGE="VBSCRIPT"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<%Option Explicit%>

‘declara as var

dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data

‘recupera as var

varlogin=Trim(request.form(“login”))

varsenha=Trim(request.form(“senha”))

varlogin=Replace(varlogin,”‘”,”")

varsenha=Replace(varsenha,”‘”,”")

if varlogin=”" then

response.redirect(“logincli_form_treina.asp?msgeof=1?)

end if

if varsenha=”" then

response.redirect(“logincli_form_treina.asp?msgeof=2?)

end if

if Session(“logado”)=True then

response.redirect(“logincli_form_treina.asp?msgeof=5?)

end if

<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>

<!–#include file=”conn/conexao1.asp”–>

<%

call abreconexao

‘cria o recordset

Set rs=Server.CreateObject(“ADODB.Recordset”)

SQL=”SELECT * FROM login WHERE login=’”&varlogin&”‘”

rs.open SQL,conexao,1,3

if rs.eof then

response.redirect(“logincli_form_treina.asp?msgeof=3?)

else

if Lcase (varsenha) <> Lcase(rs(“senha”)) then

response.redirect(“logincli_form_treina.asp?msgeof=4?)

session(“logado”)=False

else

session(“logado”)=True

session(“senha”)=varsenha

session(“login”)=varlogin

response.Redirect(“administracao_treina.asp”)

end if

end if

set rs=nothing

call fechaconexao%>

</body>

</html>

xanburzum · Maio 24, 2010

tira o trecho do código

<%@LANGUAGE="VBSCRIPT"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

deixa apenas o

<%Option Explicit%>
‘declara as var
dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data
‘recupera as var

varlogin=Trim(request.form(“login”))

TeixeiraRamos · Maio 27, 2010

Agora apresenta o seguinte erro:

Informações técnicas (para a equipe de suporte)

* Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01F4)

Variável não definida: 'abreconexao'

/banco de dados paginas asp/LoginCli_action_treina.asp, line 44

Observei que no seu exemplo, se você fechou:

<%Option Explicit%>

Porque fechou depois em LoginCli_action_treina.asp aqui:

response.redirect("logincli_form_treina.asp?msgeof=5")

end if

%>

Não tem algo errado?

Independente disso o erro que está dando "Variável não definida: 'abreconexao'"

Não está sendo chamada em:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!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>

<%

' este arq. serve para estabelecer a conexao com o BD em Access

' de nome quaddra.mdb

sub abreconexao

constring="provider=microsoft.JET.OLEDB.4.0;Data Souce="& Server.MapPath("db/quaddra.mdb")

Set conexao=Server.CreateObject("ADODB.Connection")

conexao.open constring

end sub

sub fechaconexao

Set conexao=nothing

end sub

%>

</body>

</html>

Tem alguma coisa pegando ainda.

O negócio não é mole não.

Mas vou aprender!!

Ainda não foi possível uma solução.

Existem realmente enganos o exemplo?

Obrigado

Arquivado

Incluir registro

Recommended Posts

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

jothaz 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante