rothen ecotronics Bern: ASP-Skript "ASP fortgeschrittene DB-Techniken: Datensätze in Oracle-DB einfügen und mit Key wieder auslesen"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

'Kein Resultat
'Achtung Funktioniert nur mit der entsprechenden Oracle-DB!

'*****************************************************************
'Variablendeklarationen
Dim objcon
Dim objrscategory
Dim objrskey
Dim sngkey
Dim strcon
Dim strsqlselcategory

'*****************************************************************
'Variableninitialisierung
strcon = "DSN=dsnsrtest;UID=bc4j;PWD=bc4j;SERVER=srtest"

'Änderbar, vorwärts- und rückwärts scrollbar, Änderungen anderer User nicht sichtbar
Const adOpenKeyset = 1

'Records werden nur beim Aufdatieren gesperrt
Const adLockOptimistic = 3

'*****************************************************************
'Anfang <html>
%>

<html>
  <head>
    <title>ASP fortgeschrittene DB-Techniken: Datensätze in Oracle-DB einfügen und mit Key wieder auslesen</title>
    <meta name="description" content="ASP-Code zeigt, wie man Datensätze in Oracle-DB einfügt und mit Key wieder ausliest" />
    <meta name="keywords" content="ASP, Oracle, DB, einfügen, Key auslesen" />

  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open strcon

'Select
Set objrscategory = Server.CreateObject("ADODB.Recordset")
strsqlselcategory = "SELECT * FROM category WHERE id = 0"
objrscategory.Open strsqlselcategory, objcon, adOpenKeyset, adLockOptimistic

'Einfügen mit Addnew
objrscategory.AddNew
objrscategory("id") = objcon.Execute("SELECT category_seq.NEXTVAL id FROM DUAL")(0)
objrscategory("name") = "Versuch"
objrscategory.Update

Response.Write("ID: " & objrscategory("ID") & "<br />" & vbCrLf)
Response.Write("Category: " & objrscategory("name") & "<br />" & vbCrLf)

objrscategory.Close()
set objrscategory = Nothing
objcon.Close()
set objcon = Nothing
%>

</body>
</html>

Letzter Update: 26.12.2021 17:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch