014_Curso-de-Active-Server-Pages-da-UFPI
43 pág.

014_Curso-de-Active-Server-Pages-da-UFPI

Disciplina:ALGORITMOS6.527 materiais91.253 seguidores
Pré-visualização9 páginas
Delete Elimina um registro de um Recordset consequentemente, de uma
tabeladoBancodeDados.

Paraexibirosvaloresdoscamposde todosos registrosdeumRecorsetusamosa
coleçãodeobjetosFields:

DoWhilenotTabela.EOF
Response.WriteTabela.Fields(0).Value&“<BR>”
Response.WriteTabela.Fileds(“Nome”)&“<BR>”
Response.WriteTabela.Fields(“email”)&“<BR>”
Response.WriteTabela.Fields(“DataN”)&“<HR>”
Tabela.MoveNext
Loop

Exemplo24.1banco1.asp

<%@LANGUAGE=VBSCRIPT%>
<%OPTIONEXPLICIT%>
<%DIMCONEXAO,TABELA
SETCONEXAO=SERVER.CREATEOBJECT(“ADODB.CONNECTION”)
CONEXAO.OPEN“CursoASP”
SETTABELA=CONEXAO.EXECUTE(“SELECT*FROMPESSOA”)%>

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais 42de43

<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD><BODY><CENTER>
<H1>RELAÇÃODEPESSOAS</H1>
<%

DoWhilenotTabela.EOF
Response.WriteTabela.Fields(0).Value&“<BR>”
Response.WriteTabela.Fileds(“Nome)&“<BR>”
Response.WriteTabela.Fields(“email”)&“<BR>”
Response.WriteTabela.Fields(“DataN”)&“<HR>”
Tabela.MoveNext
Loop

%>
</CENTER></BODY></HTML>

ParaefetuaroperaçõesdeInclusão,DeleçãoouModificaçãonumBancodeDados
utilizamos comandos SQL do tipo INSERT, DELETE e UPDATE, respectivamente, no
métodoExecutedoConnection:

Exemplo24.2banco2.asp?Codigo=1APAGAR

<%@LANGUAGE=VBSCRIPT%>
<%OPTIONEXPLICIT%>
<%DIMCONEXAO,SQL
SETCONEXAO=SERVER.CREATEOBJECT(“ADODB.CONNECTION”)
CONEXAO.OPEN“CursoASP”
SQL=“DELETEFROMPESSOAWHERECODIGO=”&REQUEST(“CODIGO”)
CONEXAO.EXECUTE(SQL)%>
<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD><BODY><CENTER>
PessoadeCódigoiguala<%=REQUEST(“CODIGO”)%>foiexcluidadoBanco!
</CENTER></BODY></HTML>

Exemplo24.3banco3.asp?codigo=1&email=lineulima@yahoo.comALTERAR

<%@LANGUAGE=VBSCRIPT%>
<%OPTIONEXPLICIT%>
<%DIMCONEXAO,SQL
SETCONEXAO=SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONEXAO.OPEN"CursoASP"
SQL="UPDATEPESSOASET"
SQL=SQL&"EMAIL='"&REQUEST("EMAIL")&"'"
SQL=SQL&"WHERECODIGO="&REQUEST("CODIGO")
CONEXAO.EXECUTE(SQL)%>
<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD><BODY><CENTER>
Novoemaildapessoa<%=REQUEST("CODIGO")%>é<%=REQUEST("email")%>
</CENTER></BODY></HTML>

Exemplo24.4banco4.asp?Nome=Lineu&Email=lsantos@ufpi.br&Datan=02/10/1978
INSERE

<%@LANGUAGE=VBSCRIPT%>
<%OPTIONEXPLICIT%>

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais 43de43

<%DIMCONEXAO,SQL
SETCONEXAO=SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONEXAO.OPEN"CursoASP"
SQL="INSERTINTOPESSOA(NOME,EMAIL,DATAN)VALUES("
SQL=SQL&"'"&REQUEST("NOME")&"',"
SQL=SQL&"'"&REQUEST("EMAIL")&"',"
SQL=SQL&"#"&REQUEST("DATAN")&"#)"
CONEXAO.EXECUTE(SQL)%>
<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD><BODY><CENTER>
<%=REQUEST("NOME")%>foiinserido(a)noBanco!
</CENTER></BODY></HTML>

Aseguir,códigodapáginaFORMBANCO.aspquecontémformuláriosparaacessar
aspáginasanteriores.
FORMBANCO.asp

<%@LANGUAGE=VBSCRIPT%>
<HTML><HEAD><TITLE>CursodeASP</TITLE></HEAD>
<BODY><CENTER>
<H1>INSERIRUSUÁRIO</H1>
<FORMACTION="Banco4.asp"METHOD=GET>
Nomedousuário<BR>
<INPUTTYPE=TEXTNAME="Nome"MAXLENGTH=50><BR>
Emaildousuário<BR>
<INPUTTYPE=TEXTNAME="email"MAXLENGTH=50><BR>
DatadeNascimento<BR>
<INPUTTYPE=TEXTNAME="datan"MAXLENGTH=10
VALUE="<%=DATE%>"><BR>
<INPUTTYPE=SUBMITVALUE="INSERIR"><BR>
</FORM>
<HR>
<H1>APAGARUSUÁRIO</H1>
<FORMACTION="Banco2.asp"METHOD=GET>
Códigodousuário<BR>
<INPUTTYPE=TEXTNAME="Codigo"MAXLENGTH=5><BR>
<INPUTTYPE=SUBMITVALUE="APAGAR"><BR>
</FORM>
<HR>
<H1>ALTERAREMAIL</H1>
<FORMACTION="Banco3.asp"METHOD=GET>
Códigodousuário<BR>
<INPUTTYPE=TEXTNAME="Codigo"MAXLENGTH=5><BR>
E-maildousuário<BR>
<INPUTTYPE=TEXTNAME="email"MAXLENGTH=50><BR>
<INPUTTYPE=SUBMITVALUE="MODIFICAR"><BR>
</FORM>
<HR>
</CENTER>
</BODY>
</HTML>