rothen ecotronics Bern: ASP-Skript "ASP fortgeschrittene DB-Techniken: Aufruf von Stored Procedures in SQL-Server und Oracle"

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

'Kein Resultat

'Default, nur vorwärts scrollbar, nicht änderbar, Änderungen anderer User nicht sichtbar
Const adOpenForwardOnly = 0
'Änderbar, vorwärts- und rückwärts scrollbar, Änderungen anderer User nicht sichtbar
Const adOpenKeyset = 1
'Änderbar, vorwärts- und rückwärts scrollbar, Änderungen anderer User sichtbar
Const adOpenDynamic = 2
'Nicht änderbar, vorwärts- und rückwärts scrollbar, Änderungen anderer User nicht sichtbar
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
'Nicht änderbar
Const adLockReadOnly = 1
'Records werden bereits beim Einlesen gesperrt
Const adLockPessimistic = 2
'Records werden nur beim Aufdatieren gesperrt
Const adLockOptimistic = 3
'Records werden nur beim Batch-Update gesperrt
Const adLockBatchOptimistic = 4

Dim objcon, strsqlselartikel, objrsartikelzeilen
Dim objrsimageid
Dim objrs
Dim intsession, rseinmalig

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

<html>
  <head>
    <title>ASP fortgeschrittene DB-Techniken: Aufruf von Stored Procedures in SQL-Server und Oracle</title>

  </head>
<body>
Diese Seite funktioniert nicht, sie zeigt nur die Syntax für den Aufruf
von Stored Procedures
<%
'*****************************************************************
'Code innerhalb der HTML-Seite

Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open "DSN=testdb;UID=shopuser;PWD=guest"

'Aufruf einer Stored Procedure in Oracle innerhalb von SQL
'In Oracle kann eine Stored Procedure bis Version 7 kein Recordset zurückliefern
strsqlselartikel = "SELECT wwwbestart.artnr, www.bestart.bestmenge, "&vbCrLf&_
  "  FU_ARTPREIS(wwwbestart.artnr,'mng',1,'D') preis, "&vbCrLf&_
  "FROM wwwbestart "&vbCrLf &_
  "WHERE wwwbestart.bestnr = 493049"
Set objrsartikelzeilen = Server.CreateObject("ADODB.Recordset")
objrsartikelzeilen.Open strsqlselartikel, objcon, adOpenForwardOnly, adLockReadOnly

'Aufruf einer Stored Procedure in SQL-Server
'liefert ein Recordset zurück
Set objrsimageid = objcon.Execute("prozedurname 'Argument'" )

'Erzeugen eines eindeutigen Schlüssels in einer Oracle-DB mit einer Sequence
'wwwbestnr ist nicht eine Tabelle, sondern eine Oracle Sequence
Set objrs = objcon.Execute("SELECT wwwbestnr.NEXTVAL FROM DUAL")

'Beispiel: Erzeugen eines eindeutigen zufälligen Schlüssels in einer Tabelle
Randomize()
Do
  intsession = Int((900000000000000) * Rnd() + 100000000000000)
  set rseinmalig = objcon.Execute("SELECT COUNT(*) Anzahl "&_
    "FROM wwwsession WHERE wwwsession = "&intSession)
Loop Until CInt(rseinmalig("Anzahl")) = 0
%>

</body>
</html>

Letzter Update: 26.12.2021 16:48

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