Adicionando Registros com Statement SQL
Esta página demonstra como
adicionar registros em um Database com um statement
sql !
1 <TITLE>dbnewrecSQL.asp</TITLE>
2 <body bgcolor="#FFFFFF">
3 <HTML↳HTML45 conteúdosA importância do HTML e CSS para quem trabalha com UI Design e Design SystemProduto & UX · dez 2024Como hostear seu site HTML gratuitamente com GitHub PagesDev (Back & Front) · jun 2025SQL Server – Como criar um versionamento de código das suas Stored Procedures em HTML e com comentários da alteraçãoData · nov 2020Ver tudo em Dev (Back & Front) →>
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>







