Atualizando
Registros
Esta página
demonstra a funcionalidade de se atualizar registros em um
database através de uma consulta SQL. Supomos que o arquivo ASP
seja chamado da seguinte forma:
dbupdate.asp?nome=Alexandre&id=9000&ano=1901
O script abaixo faz uma atualização no sql através do statement Update. É aconselhável que todas as inclusões, alterações e exclusões no sql seja feita através de Stored Procedures. Assim, fica mais fácil controlar permissões de execução e segurança ainda maior com relação aos códigos.
1 <TITLE>dbupdate.asp</TITLE>
2 <body
bgcolor="#FFFFFF">
3 <HTML>
4 <%
5 on
error resume next
6 aunome=request.querystring("nome")
7 auano=request.querystring("ano")
8 auID=request.querystring("ID")
9 Set
Conn = Server.CreateObject("ADODB.Connection")
10 conn.open
"Estudante","Estudante","magic"
11
12 SQLstmt
= "UPDATE autores "
13 SQLStmt
= SQLstmt & "SET autor='" & aunome &
"',"
14 SQLstmt
= SQLstmt & "ano_nasc=" & auano
15 SQLStmt
= SQLStmt & " WHERE AU_ID=" & auid
16 Set
RS = Conn.Execute(SQLStmt)
17 If
err.number>0 then
18
response.write "Ocorreram erros no Script:" &
"<P>"
19
response.write "Número =" & err.number &
"<P>"
20
response.write "Descrição =" & err.description
& "<P>"
21
response.write "Help Context=" & err.helpcontext
& "<P>"
22
response.write "Help Path=" & err.helppath &
"<P>"
23
response.write "Native Error=" & err.nativeerror
& "<P>"
24
response.write "Source=" & err.source &
"<P>"
25
response.write "SQLState=" & err.sqlstate &
"<P>"
26 else
27
response.write "Nenhum problema aconteceu!" &
"<P>"
28 end
if
29 IF
conn.errors.count> 0 then
30
response.write "Ocorreram erros com o Database" &
"<P>"
31 for
counter= 0 to conn.errors.count
32
response.write "Número " &
conn.errors(counter).number & "<P>"
33
response.write "Descrição -> " &
conn.errors(counter).description & "<P>"
34 next
35 else
36
response.write "Tudo parece ok. O Autor foi atualizado!"
& "<P>"
37 end
if
38 Conn.Close
39 %>
40 </BODY>
41 </HTML>
Copyright (c) 1998 - Alexandre Barreto