rothen ecotronics Bern: ASP-Skript "ASP fortgeschrittene DB-Techniken: Prepared Statements in Oracle"

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

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

'*****************************************************************
'Variablendeklarationen
'Die folgenden 2 Konstanten stammen aus adovbs.inc
Const adVarChar = 200
Const adParamInput = &H0001

Dim objcon
Dim objcommand
Dim objrs
Dim strcon
Dim strprepsql

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

'Prepared Statement = SQL-Statement mit ? anstelle von bestimmten Werten
strprepsql = "SELECT * FROM wwwsortart WHERE wwwsortart = ?"

set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open strcon

'Das Prepared Statement wird der CommandText eines Befehls
set objcommand = Server.CreateObject("ADODB.Command")
objcommand.CommandType = adCmdText
objcommand.ActiveConnection = objcon
objcommand.CommandText = strprepsql

'Nun wird der Parameter definiert
objcommand.Parameters.Append objcommand.CreateParameter( _
  "@wwwsortart", adVarChar,adParamInput, 40, "2149")

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

<html>
  <head>
    <title>ASP fortgeschrittene DB-Techniken: Prepared Statements in Oracle</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />

  </head>
<body>
  <h1>Prepared Statements in Oracle</h1>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite

set objrs = objcommand.Execute

Do While Not objrs.EOF
  Response.Write(objrs("wwwsortart") & "<br />" & vbCrLf)
  objrs.MoveNext
Loop

'Recordset und Connection schliessen
objrs.Close
set objrs = Nothing
objcon.Close
set objcon = Nothing

%>

</body>
</html>

Letzter Update: 26.12.2021 16:48

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