Exemplo
Completo
1a. Parte
Vamos analisar 3 exemplos de
script.
O primeiro exemplo (1a. parte) mostra uma tabela
parecida com o exemplo de tabelas que foi visto anteriormente,
com exceção dos links que aparecerão nas colunas iniciais.
Clicando em um dos links o segundo exemplo será chamado e
receberá um ID como parâmetro. No segundo exemplo será
permitido alterar as informações e após clicar no botão
Submit, o exemplo 3 será chamado para processar as informações
e atualizá-las no banco em SQL. Vamos por partes...
Exemplo 1
1 <html>
2 <head>
3 <title>dbfull1.asp</title>
4 </head>
5 <body
bgcolor="#FFFFFF">
6 <body
bgcolor="#FFFFFF">
7 <%
8 '
Conexão com o banco
9 set
conntemp=server.createobject("adodb.connection")
10 conntemp.open
"Estudante","Estudante","magic"
11
12 set
rstemp=conntemp.execute("select * from autores where
AU_ID<100")
13 qtde_campos=rstemp.fields.count
-1
14 %>
15 <table
border="1">
16 <tr>
17 <td
valign="top">---</td>
18 <% 'Preenche a
primeira linha com o nome dos campos
19 for
i=0 to qtde_campos %>
20
<td><b><%=rstemp(i).name
%></b></td>
21 <% next %>
22 </tr>
23 <% ' Preenche a
tabela com os registros do banco
24 do
while not rstemp.eof %>
25 <tr>
26 <td
valign="top"><a
HREF="dbfull2.asp?str_ID=<%=rstemp("AU_ID")%>">Editar</a></td>
27 <% for i = 0 to
qtde_campos%>
28 <td
valign="top"><% = rstemp.fields(i).value
%></td>
29 <% next %>
30 </tr>
31 <% rstemp.movenext
32 loop
33 conntemp.close%>
34 </table>
35 </body>
36 </html>
Exemplo 2 (2a. Parte)
1 <html>
2 <head>
3 <title>dbfull2.asp</title>
4 </head>
5 <body
bgcolor="#FFFFFF">
6 </body>
7 </html>
8 <html>
9 <% ' Conecta com o
banco e pega o valor do str_ID permitindo a edicao do registro
10 set
conntemp=server.createobject("adodb.connection")
11 conntemp.open
"Estudante","Estudante","magic"
12
13 ID=request.querystring("str_ID")
14 sqltemp="select
* from autores where AU_ID=" & ID
15 set
rstemp=conntemp.execute(sqltemp)
16 atual_ID=rstemp("AU_ID")
17 atual_nome=rstemp("autor")
18 atual_ano_nasc=rstemp("ano_nasc")
19 %>
20 <body>
21 <form
name="meu_autor" action="dbfull3.asp"
method="GET">
22 <p>ID:
<input type="TEXT" name="id"
value="<%=atual_id%>"></p>
23 <p> Nome do
autor: <input type="TEXT" name="nome"
value="<%=atual_nome%>"></p>
24 <p> Ano de
Nascimento: <input type="TEXT" name="ano"
value="<%=atual_ano_nasc%>"></p>
25 <p> <input
type="SUBMIT"> </p>
26 </form>
27 </body>
Exemplo 3 (3a. Parte)
1 <HTML><HEAD>
2 <TITLE>dbfull3.asp</TITLE>
3 <body
bgcolor="#FFFFFF"></HEAD>
4 <%
5 on
error resume next
6 au_nome=request.querystring("nome")
7 '
Corrige os apóstrofos
8 au_nome=Replace(au_nome,
"'", "''")
9
10 au_ano=request.querystring("ano")
11 au_ID=request.querystring("ID")
12 Set
Conn = Server.CreateObject("ADODB.Connection")
13 conn.open
"Estudante","Estudante","magic"
14
15 SQLstmt
= "UPDATE autores "
16 SQLStmt
= SQLstmt & "SET autor='" & au_nome &
"',"
17 SQLstmt
= SQLstmt & "ano_nasc=" & au_ano
18 SQLStmt
= SQLStmt & " WHERE AU_ID=" & au_ID
19 Set
RS = Conn.Execute(SQLStmt)
20 If
err.number>0 then
21
response.write "Ocorreram erros no script:" &
"<P>"
22
response.write "Número=" & err.number &
"<P>"
23
response.write "Descrição=" & err.description
& "<P>"
24
response.write "Help Context=" & err.helpcontext
& "<P>"
25
response.write "Help Path=" & err.helppath &
"<P>"
26
response.write "Native Error=" & err.nativeerror
& "<P>"
27
response.write "Source=" & err.source &
"<P>"
28
response.write "SQLState=" & err.sqlstate &
"<P>"
29 else
30
response.write "Nenhum problema aconteceu!" &
"<P>"
31 end
if
32 IF
conn.errors.count> 0 then
33
response.write "Ocorreram erros com o banco de dados"
& "<P>"
34
response.write SQLstmt & "<P>"
35 for
counter= 0 to conn.errors.count
36
response.write "Número do erro:" &
conn.errors(counter).number & "<P>"
37
response.write "Descrição --> " &
conn.errors(counter).description & "<P>"
38 next
39 else
40
response.write "Parece que tudo está ok. O Autor foi
atualizado!" & "<P>"
41 end
if
42 Conn.Close
43 %>
44 </BODY>
45 </HTML>
Copyright (c) 1998 - Alexandre Barreto