Adicionando
Registros com Statement SQL
Esta página
demonstra como adicionar registros em um Database com um
statement sql. Para melhor entender o exemplo, suponha que a
página chamada seja: http://www.geap.com.br/tutorial_asp/asp_dbnewSQL.asp?nome="Alexandre
Barreto"&id=9000&ano=1974
1 <TITLE>dbnewrecSQL.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 '
DSN usuário senha
11 conn.open
"Estudante","Estudante","magic"
12 SQLStmt
= "INSERT INTO autors (AU_ID,autor,ano_nasc) "
13 SQLStmt
= SQLStmt & "VALUES (" & auid
14 SQLStmt
= SQLStmt & ",'" & aunome & "'"
15 SQLStmt
= SQLStmt & "," & int(auano) &
")"
16 Set
RS = Conn.Execute(SQLStmt)
17 If
err.number>0 then
18
response.write "Ocorreram Erros:" &
"<P>"
19
response.write "Erro 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 "Não ocorreram erros!!" &
"<P>"
28 end
if
29 IF
conn.errors.count> 0 then
30
response.write "Ocorreram erros no 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 "Não ocorreram erros no Database!"
& "<P>"
37 end
if
38 Conn.Close
39 %>
40 </BODY>
41 </HTML>
Copyright (c) 1998 - Alexandre Barreto