Adicionando Registros com o método ADO Add New
Adicionando Registros com o método
ADO Add New.
1 <TITLE>dbnewADO.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 Set RS = Server.CreateObject("ADODB.Recordset")
13 RS.Open "autores",Conn,3,3
14 RS.AddNew
15 RS("AU_ID")=auid
16 RS("autor") = aunome
17 RS("ano_nasc")= int(auano)
18 RS.Update
19 RS.Close
20 Conn.Close
21 If err.number>0 then
22 response.write "Ocorreram Erros:" &
"<P>"
23 response.write "Número=" & err.number
& "<P>"
24 response.write "Descrição="
& err.description & "<P>"
25 response.write "Help Context=" & err.helpcontext
& "<P>"
26 response.write "Help Path=" & err.helppath
& "<P>"
27 response.write "Native Error=" & err.nativeerror
& "<P>"
28 response.write "Source=" & err.source
& "<P>"
29 response.write "SQLState=" & err.sqlstate
& "<P>"
30 else
31 response.write "Nenhum erro apareceu!"
& "<P>"
32 end if
33 IF conn.errors.count> 0 then
34 response.write "Ocorreram erros no Database!"
& "<P>"
35 for counter= 0 to conn.errors.count
36 response.write "Número " & conn.errors(counter).number
& "<P>"
37 response.write "Descrição ->
" & conn.errors(counter).description &
"<P>"
38 next
39 else
40 response.write "Nenhum ocorreu no Database!"
& "<P>"
41 end if
42 %>
43 </BODY>
44 </HTML>
Matérias especiais e reportagens conduzidas internamente pela Redação iMasters. Acompanhe no Twitter @imasters e no Instagram/Threads @portalimasters
