hallo,
ich habe versucht bei dem folgenden Code, den Fehler stundenlang zu finden, korrigiert auch, aber die Seite wird mir nicht angezeigt, gerne würde ich das posten, falls sich jemand den kompletten Code anschauen möchte, das ist eigentlich ein sehr langer Code, ein Teil davon habe ich in einer separaten Datei gespeichert, um schneller Fehler zu finden. Die Eingabefelder sind Nummer(int), RC_Nummer(char), Beginn(datum), Ende(datum), RC_Description(char), Description (char) und Description_plausibel(char), wo könnte der Fehler sein?:
CODE <%
'Hier ändern (Hier kann ein Primärschlüssel benutzt werden)
Dim Form_action, RC_Nummer 'Schritt 1: Produkt_id durch PK-Spaltennamen ersetzen
Form_action = Request("form_action")
RC_Nummer = Request("RC_Nummer") 'Schritt 2: Produkt_id durch PK-Spaltennamen ersetzen
%>
<html>
<%
Dim objRS
Dim strConn
Dim SQLquery
Set Conn = Server.CreateObject("ADODB.Connection")
strConn = "" 'Schritt 3: BusinessData durch Datenbanknamen ersetzen
Conn.Open strConn
'Welche Funktion soll durgeführt werden, wenn der 'form_action' auf
'chg, chg_save, new, new_save oder del gesetzt ist?
Select Case Form_action
Case "chg"
ShowChangeForm()
Case "chg_save"
ChangeIt()
Case "new"
ShowNewForm()
Case "new_save"
InsertIt()
Case "del"
DeleteIt()
End Select
%></html>
<%
private function ShowNewForm()
%>
<head>
<title>TABELLE Production_Problem</title> <!-- Schritt 4: LU_PRODUKT durch Tabellennamen ersetzen -->
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor=#ffffea>
<form action="/_rootverzeichnis/change1.asp" method="post">
<input type="hidden" id="form_action" name="form_action" value="new_save">
<div>
<table align=center cellspacing=1 cellpadding=0 width="100%" border=0>
<tr><td height=25 class="headback"><font size=2><b>Production_Problem - NEUEN EINTRAG ERSTELLEN</b></font></td></tr>
<tr><td height=15 class="textback" valign=middle style="font-family:Verdana, Arial, Helvetica, sans-serif; font-size:13px">Bitte füllen Sie die Eingabefelder aus.
Bitte achten Sie weiterhin auf die korrekte Angabe Ihrer Daten:</td>
</tr>
</table>
<br>
<div>
<table border=0 width=100% align=center height="400">
<% ' Schritt 5: Produkt, Dienstleistung, Report durch Spaltennamen oder gewünschte Labelbezeichnungen ersetzen %>
<tr><td class="text"><b>Nummer:</b></td></tr>
<tr><td class="text"><input type="text" name="Nummer" size="10" maxlength="10" value=""></td></tr>
<tr><td class="text" ><b>RC_Nummer:</b></td></tr>
<tr><td class="text"><input type="text" name="RC_Nummer" size="10" maxlength="10" value=""></td></tr>
<tr><td class="text"><b>Beginn:</b>
<select name="tag">
<%
datum_Beginn = Now()
For i=1 To 31
Response.Write("<option value = " &i)
If i=Day(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><select name=monat>")
For i=1 To 12
Response.Write("<option value = " &i)
If i=Month(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
newdate = DateAdd("yyyy", 2, datum_Beginn)
newYear = Year(newdate)
Response.Write("<select name=jahr>")
For i = Year(datum_Beginn) To newYear
Response.Write("<option value = " &i)
If i=Year(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
Response.Write(" ")
Response.Write("<select name=stunde>")
For i = 0 To 23
Response.Write("<option value = " &i)
If i = Hour(datum_Beginn) Then
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><b>:</b><select name=Minute>")
For i= 0 To 59
Response.Write("<option value=" &i)
If i = Minute(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
%>
</select></td></tr>
<tr><td class="text"><b>Ende:</b>
<select name="tag">
<%
datum_Ende = Now()
For i=1 To 31
Response.Write("<option value = " &i)
If i=Day(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><select name="monat">")
For i=1 To 12
Response.Write("<option value = " &i)
If i=Month(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
newdate = DateAdd("yyyy", 2, datum_Ende)
newYear = Year(newdate)
Response.Write("<select name=jahr>")
For i = Year(datum_Ende) To newYear
Response.Write("<option value = " &i)
If i=Year(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
Response.Write(" ")
Response.Write("<select name=stunde>")
For i = 0 To 23
Response.Write("<option value = " &i)
If i = Hour(datum_Ende) Then
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><b>:</b><select name=Minute>")
For i= 0 To 59
Response.Write("<option value=" &i)
If i = Minute(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
%>
</select></td></tr>
<tr><td class="text"><b>RC_Description:</b></td></tr>
<tr><td class="text"><textarea name="RC_Description" rows=5 cols=30></textarea></td></tr>
<tr><td class="text"><b>Description:</b></td></tr>
<tr><td class="text"><textarea name="Description" rows=5 cols=30></textarea></td></tr>
<tr><td>Ist die Description plausibel?</td></tr>
<tr><td><input type=radio value="Ja" name="Description_plausibel" checked>Ja&nbsp;<input type=radio value="Nein" name="Description_plausibel">Nein</td></tr>
</table></div><br>
<table width=100% align=center>
<tr><td width=100% height=40 class="textback"><center><input type="submit" value="Neuen Eintrag speichern" >&nbsp;
<input type="button" value="Abbrechen" style="width:7em" onClick="self.close()" ></center></td></tr>
</table></form>
</body>
<% end function
private function InsertIt()
'****************************************************************************************
'*** Funktion zum Hinzufügen der in die Eingabefelder eingetragene Werte in die Tabelle
'*** Eingabe: ---
'*** Ausgabe: eingetragene Daten werden durch das Request eingelesen
'*** Vorbedingungen: 1. Es werden keine doppelten Einträge für das Feld "Produkt" übernommen, sonst Meldung
'*** 2. "Produkt" und "Dienstleistung" müssen einen Wert beinhalten
'****************************************************************************************
%>
<head>
<title>Eintrag speichern</title>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<%
'Das Request-Objekt enthält vom Browser gesendete und vom Server generierte Daten. Es wird beispiesweise verwendet, um Formulareingaben zu verarbeiten.
'Schritt 9: Produkt, Dienstleistung und Report durch Spaltennamen oder gewünschte Labelbezeichnungen ersetzen
Nummer= Request("Nummer")
RC_Nummer= Request("RC_Nummer")
datum_Beginn = Request.Querystring("tag") & "." & Request.Querystring("monat") & "." & Request.Querystring("jahr") & chr(32) & Request.Querystring("stunde") & chr(32) & Request.Querystring("Minute")
datum_Beginn=CDate(datum_Beginn)
datum_Ende = Request.Querystring("tag") & "." & Request.Querystring("monat") & "." & Request.Querystring("jahr") & chr(32) & Request.Querystring("stunde") & chr(32) & Request.Querystring("Minute")
datum_Ende=CDate(datum_Ende)
RC_Description= Request("RC_Description")
Description = Request("Description")
Description_plausibel= Request("Description_plausibel")
'Schritt 10: Report durch Spaltennamen(e) ersetzen die Null-Einträge haben dürfen
If (RC_Description="") Then RC_Description=Null 'Wenn beim "Report" nichts eingegeben, kann das Eingabefeld leer bleiben
'Schritt 11: Produkt, Dienstleistung durch Spaltennamen(e) ersetzen die keine Null-Einträge haben dürfen
If ((Nummer="") OR (RC_Nummer="")) Then 'Wenn nichts bei "Produkt" eingegeben oder bei "Dienstleistung" asugewählt wurde:
%>
<body bgcolor=#ffffea>
<table align=center><tr><td class="textback">Sie haben nicht alle benötigten Felder ausgefüllt.
Klicken Sie auf den Zurück-Button in Ihrem Browser, um die Eingaben zu ergänzen</td></tr></table>
<br><br>
<p align="center"><input type="button" value="Zurück" onClick="history.back()"></p>
</body>
<% Else %>
<%
'Durch SQL_test und RS_test wird geprüft ob es in der Datenbank das eingegebene "Produkt" schon in der Tabelle mehrmals vorkommt
Dim SQL_test
Set objRS=Server.CreateObject("ADODB.Recordset")
'Schritt 12: Lu_Produkt durch Tabellennamen und Produkt durch Spaltennamen ersetzen, d.h. welche Spalte(n) in der Tabelle dürfen keine doppelte Einträge beinhalten
SQL_test="SELECT COUNT(*) FROM Production_Problem WHERE RC_Nummer='" & Request("RC_Nummer") & "'"
Set RS_test=Conn.Execute(SQL_test)
If RS_test(0)=0 Then 'wenn das nicht der Fall wäre:
objRS.Cursortype = 1 'adOpenKeyset223, der Cursortype des Recordsets vor Öffnen des Recordsets wird auf adOpenKeyset gesetzt.
objRS.Locktype = 3 'adLockOptimistic, Datenbank-Locking, das ein Benutzen der Update bzw. UpdateBatch Methoden erlaubt, dabei wird die LockType Eigenschaft auf adLockOptimistic (für Update) gesetzt
SQLquery="SELECT * from Production_Problem" 'Schritt 13: alle Tabellen aus der einzusetzenden Tabelle auswählen
objRS.Open SQLquery, strConn
objRS.AddNew
'Schritt 14: Produkt, Dienstleistung und Report durch Spaltennamen ersetzen objRS("Spaltenname") = Labelbezeichnung
objRS("Nummer") = Nummer
objRS("RC_Nummer") = RC_Nummer
objRS("Beginn") = datum_Beginn
objRS("Ende") = datum_Ende
objRS("RC_Description") = RC_Description
objRS("Description") = Description
objRS("Description_plausibel") = Description_plausibel
objRS.Update 'Benutzen der ADO Methoden Update oder UpdateBatch: Dabei wird ein (leeres) ADO Recordset geöffnet, mittels der AddNew Methode ein neuer Datensatz oder mehrere Datensätze angefügt, und das geänderte Recordset dann durch Ausführen der Update (bzw. UpdateBatch) Methode wieder in die Tabelle geschrieben.
objRS.UpdateBatch
objRS.close
Set objRS=Nothing
Conn.Close
%>
<head>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor="#ffffea">
<table><tr><td class="textback" height=15>Sie haben folgenden Datensatz in die Tabelle hinzugefügt:</td></tr></table>
<% 'Schritt 15: Produkt, Dienstleistung und Report durch Labelbezeichnungen ersetzen %>
<p ><b>Nummer:</b>&nbsp;<%= Nummer %></p>
<p ><b>RC_Nummer:</b>&nbsp;<%= RC_Nummer %></p>
<p ><b>Beginn:</b>&nbsp;<%= datum_Beginn %></p>
<p ><b>Ende:</b>&nbsp;<%= datum_Ende %></p>
<p ><b>RC_Description:</b>&nbsp;<%= RC_Description %></p>
<p ><b>Description:</b>&nbsp;<%= Description %></p>
<p ><b>Ist die Description plausibel?:</b>&nbsp;</p>
<%
If Description_plausibel = "Ja" Then
Response.Write("<p>Ja</p>")
Else
Response.Write("<p>Nein</p>")
End If %>
<center><p ><b><font color="#003366">Ihr Eintrag wurde gespeichert!</font></b></p></center>
<br>
<p align="center"><input type="button" value="Schließen" onclick="self.close()" ></p>
</body>
<%
'falls der Eintrag mehrmals in der Datenbank vorkommt
Else %>
<head>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor="#ffffea">
<table align=center><tr><td class="textback" height=15>
<% 'Schritt 16: Produkt durch Labelbezeichnung ersetzen, die LB entspricht die Spalte(n) in der Tabelle die keine doppelten Einträge haben dürfen %>
Die RC_Nummer <b><%= RC_Nummer %></b>&nbsp;existiert schon in der Tabelle.<br>Die von Ihnen hinzugef&uuml;ten Daten an der Tabelle konnten nicht vorgenommen werden, da der Index, Prim&auml;rschl&uuml;ssel oder die Beziehung mehrfach vorkommende Werte enthalten w&uuml;rde.</td></tr></table>
<br><br>
<p align="center"><input type="button" value="Zurück" onclick="history.back()"></p>
</body>
<% End If %>
<% End If %>
<% end function
private function DeleteIt()
'****************************************************************************************
'*** Funktion zum Löschen des ausgewählten Datensatzes
'*** Eingabe: ---
'*** Ausgabe: Datensatz wird mit Hilfe der SQL Anweisung DELETE aus der Tabelle gelöscht
'****************************************************************************************
%>
<head><title>TABELLE Production_Problem</title>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor="#ffffea">
<table align="center" width="380" height="40">
<td class="textback" align="center"><b>Der Datensatz wurde erfolgreich gelöscht!</b></td>
</table><br>
<p align="center"><input type="button" value="Schliessen" onclick="self.close()"></p>
<%
'Schritt 28: LU_Produkt durch Tabellennamen, Produkt_id durch PK-Spaltennamen ersetzen
SQLquery = "DELETE FROM Production_Problem WHERE RC_Nummer='" & Request("RC_Nummer") & "'"
Set objRS = Conn.Execute(SQLquery)
%>
<% end function %>
</body>
</html>
ich habe versucht bei dem folgenden Code, den Fehler stundenlang zu finden, korrigiert auch, aber die Seite wird mir nicht angezeigt, gerne würde ich das posten, falls sich jemand den kompletten Code anschauen möchte, das ist eigentlich ein sehr langer Code, ein Teil davon habe ich in einer separaten Datei gespeichert, um schneller Fehler zu finden. Die Eingabefelder sind Nummer(int), RC_Nummer(char), Beginn(datum), Ende(datum), RC_Description(char), Description (char) und Description_plausibel(char), wo könnte der Fehler sein?:
CODE <%
'Hier ändern (Hier kann ein Primärschlüssel benutzt werden)
Dim Form_action, RC_Nummer 'Schritt 1: Produkt_id durch PK-Spaltennamen ersetzen
Form_action = Request("form_action")
RC_Nummer = Request("RC_Nummer") 'Schritt 2: Produkt_id durch PK-Spaltennamen ersetzen
%>
<html>
<%
Dim objRS
Dim strConn
Dim SQLquery
Set Conn = Server.CreateObject("ADODB.Connection")
strConn = "" 'Schritt 3: BusinessData durch Datenbanknamen ersetzen
Conn.Open strConn
'Welche Funktion soll durgeführt werden, wenn der 'form_action' auf
'chg, chg_save, new, new_save oder del gesetzt ist?
Select Case Form_action
Case "chg"
ShowChangeForm()
Case "chg_save"
ChangeIt()
Case "new"
ShowNewForm()
Case "new_save"
InsertIt()
Case "del"
DeleteIt()
End Select
%></html>
<%
private function ShowNewForm()
%>
<head>
<title>TABELLE Production_Problem</title> <!-- Schritt 4: LU_PRODUKT durch Tabellennamen ersetzen -->
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor=#ffffea>
<form action="/_rootverzeichnis/change1.asp" method="post">
<input type="hidden" id="form_action" name="form_action" value="new_save">
<div>
<table align=center cellspacing=1 cellpadding=0 width="100%" border=0>
<tr><td height=25 class="headback"><font size=2><b>Production_Problem - NEUEN EINTRAG ERSTELLEN</b></font></td></tr>
<tr><td height=15 class="textback" valign=middle style="font-family:Verdana, Arial, Helvetica, sans-serif; font-size:13px">Bitte füllen Sie die Eingabefelder aus.
Bitte achten Sie weiterhin auf die korrekte Angabe Ihrer Daten:</td>
</tr>
</table>
<br>
<div>
<table border=0 width=100% align=center height="400">
<% ' Schritt 5: Produkt, Dienstleistung, Report durch Spaltennamen oder gewünschte Labelbezeichnungen ersetzen %>
<tr><td class="text"><b>Nummer:</b></td></tr>
<tr><td class="text"><input type="text" name="Nummer" size="10" maxlength="10" value=""></td></tr>
<tr><td class="text" ><b>RC_Nummer:</b></td></tr>
<tr><td class="text"><input type="text" name="RC_Nummer" size="10" maxlength="10" value=""></td></tr>
<tr><td class="text"><b>Beginn:</b>
<select name="tag">
<%
datum_Beginn = Now()
For i=1 To 31
Response.Write("<option value = " &i)
If i=Day(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><select name=monat>")
For i=1 To 12
Response.Write("<option value = " &i)
If i=Month(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
newdate = DateAdd("yyyy", 2, datum_Beginn)
newYear = Year(newdate)
Response.Write("<select name=jahr>")
For i = Year(datum_Beginn) To newYear
Response.Write("<option value = " &i)
If i=Year(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
Response.Write(" ")
Response.Write("<select name=stunde>")
For i = 0 To 23
Response.Write("<option value = " &i)
If i = Hour(datum_Beginn) Then
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><b>:</b><select name=Minute>")
For i= 0 To 59
Response.Write("<option value=" &i)
If i = Minute(datum_Beginn) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
%>
</select></td></tr>
<tr><td class="text"><b>Ende:</b>
<select name="tag">
<%
datum_Ende = Now()
For i=1 To 31
Response.Write("<option value = " &i)
If i=Day(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><select name="monat">")
For i=1 To 12
Response.Write("<option value = " &i)
If i=Month(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
newdate = DateAdd("yyyy", 2, datum_Ende)
newYear = Year(newdate)
Response.Write("<select name=jahr>")
For i = Year(datum_Ende) To newYear
Response.Write("<option value = " &i)
If i=Year(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select>")
Response.Write(" ")
Response.Write("<select name=stunde>")
For i = 0 To 23
Response.Write("<option value = " &i)
If i = Hour(datum_Ende) Then
Response.Write(">")
Response.Write(i)
Next
Response.Write("</select><b>:</b><select name=Minute>")
For i= 0 To 59
Response.Write("<option value=" &i)
If i = Minute(datum_Ende) Then
Response.Write("selected")
Response.Write(">")
Response.Write(i)
Next
%>
</select></td></tr>
<tr><td class="text"><b>RC_Description:</b></td></tr>
<tr><td class="text"><textarea name="RC_Description" rows=5 cols=30></textarea></td></tr>
<tr><td class="text"><b>Description:</b></td></tr>
<tr><td class="text"><textarea name="Description" rows=5 cols=30></textarea></td></tr>
<tr><td>Ist die Description plausibel?</td></tr>
<tr><td><input type=radio value="Ja" name="Description_plausibel" checked>Ja&nbsp;<input type=radio value="Nein" name="Description_plausibel">Nein</td></tr>
</table></div><br>
<table width=100% align=center>
<tr><td width=100% height=40 class="textback"><center><input type="submit" value="Neuen Eintrag speichern" >&nbsp;
<input type="button" value="Abbrechen" style="width:7em" onClick="self.close()" ></center></td></tr>
</table></form>
</body>
<% end function
private function InsertIt()
'****************************************************************************************
'*** Funktion zum Hinzufügen der in die Eingabefelder eingetragene Werte in die Tabelle
'*** Eingabe: ---
'*** Ausgabe: eingetragene Daten werden durch das Request eingelesen
'*** Vorbedingungen: 1. Es werden keine doppelten Einträge für das Feld "Produkt" übernommen, sonst Meldung
'*** 2. "Produkt" und "Dienstleistung" müssen einen Wert beinhalten
'****************************************************************************************
%>
<head>
<title>Eintrag speichern</title>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<%
'Das Request-Objekt enthält vom Browser gesendete und vom Server generierte Daten. Es wird beispiesweise verwendet, um Formulareingaben zu verarbeiten.
'Schritt 9: Produkt, Dienstleistung und Report durch Spaltennamen oder gewünschte Labelbezeichnungen ersetzen
Nummer= Request("Nummer")
RC_Nummer= Request("RC_Nummer")
datum_Beginn = Request.Querystring("tag") & "." & Request.Querystring("monat") & "." & Request.Querystring("jahr") & chr(32) & Request.Querystring("stunde") & chr(32) & Request.Querystring("Minute")
datum_Beginn=CDate(datum_Beginn)
datum_Ende = Request.Querystring("tag") & "." & Request.Querystring("monat") & "." & Request.Querystring("jahr") & chr(32) & Request.Querystring("stunde") & chr(32) & Request.Querystring("Minute")
datum_Ende=CDate(datum_Ende)
RC_Description= Request("RC_Description")
Description = Request("Description")
Description_plausibel= Request("Description_plausibel")
'Schritt 10: Report durch Spaltennamen(e) ersetzen die Null-Einträge haben dürfen
If (RC_Description="") Then RC_Description=Null 'Wenn beim "Report" nichts eingegeben, kann das Eingabefeld leer bleiben
'Schritt 11: Produkt, Dienstleistung durch Spaltennamen(e) ersetzen die keine Null-Einträge haben dürfen
If ((Nummer="") OR (RC_Nummer="")) Then 'Wenn nichts bei "Produkt" eingegeben oder bei "Dienstleistung" asugewählt wurde:
%>
<body bgcolor=#ffffea>
<table align=center><tr><td class="textback">Sie haben nicht alle benötigten Felder ausgefüllt.
Klicken Sie auf den Zurück-Button in Ihrem Browser, um die Eingaben zu ergänzen</td></tr></table>
<br><br>
<p align="center"><input type="button" value="Zurück" onClick="history.back()"></p>
</body>
<% Else %>
<%
'Durch SQL_test und RS_test wird geprüft ob es in der Datenbank das eingegebene "Produkt" schon in der Tabelle mehrmals vorkommt
Dim SQL_test
Set objRS=Server.CreateObject("ADODB.Recordset")
'Schritt 12: Lu_Produkt durch Tabellennamen und Produkt durch Spaltennamen ersetzen, d.h. welche Spalte(n) in der Tabelle dürfen keine doppelte Einträge beinhalten
SQL_test="SELECT COUNT(*) FROM Production_Problem WHERE RC_Nummer='" & Request("RC_Nummer") & "'"
Set RS_test=Conn.Execute(SQL_test)
If RS_test(0)=0 Then 'wenn das nicht der Fall wäre:
objRS.Cursortype = 1 'adOpenKeyset223, der Cursortype des Recordsets vor Öffnen des Recordsets wird auf adOpenKeyset gesetzt.
objRS.Locktype = 3 'adLockOptimistic, Datenbank-Locking, das ein Benutzen der Update bzw. UpdateBatch Methoden erlaubt, dabei wird die LockType Eigenschaft auf adLockOptimistic (für Update) gesetzt
SQLquery="SELECT * from Production_Problem" 'Schritt 13: alle Tabellen aus der einzusetzenden Tabelle auswählen
objRS.Open SQLquery, strConn
objRS.AddNew
'Schritt 14: Produkt, Dienstleistung und Report durch Spaltennamen ersetzen objRS("Spaltenname") = Labelbezeichnung
objRS("Nummer") = Nummer
objRS("RC_Nummer") = RC_Nummer
objRS("Beginn") = datum_Beginn
objRS("Ende") = datum_Ende
objRS("RC_Description") = RC_Description
objRS("Description") = Description
objRS("Description_plausibel") = Description_plausibel
objRS.Update 'Benutzen der ADO Methoden Update oder UpdateBatch: Dabei wird ein (leeres) ADO Recordset geöffnet, mittels der AddNew Methode ein neuer Datensatz oder mehrere Datensätze angefügt, und das geänderte Recordset dann durch Ausführen der Update (bzw. UpdateBatch) Methode wieder in die Tabelle geschrieben.
objRS.UpdateBatch
objRS.close
Set objRS=Nothing
Conn.Close
%>
<head>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor="#ffffea">
<table><tr><td class="textback" height=15>Sie haben folgenden Datensatz in die Tabelle hinzugefügt:</td></tr></table>
<% 'Schritt 15: Produkt, Dienstleistung und Report durch Labelbezeichnungen ersetzen %>
<p ><b>Nummer:</b>&nbsp;<%= Nummer %></p>
<p ><b>RC_Nummer:</b>&nbsp;<%= RC_Nummer %></p>
<p ><b>Beginn:</b>&nbsp;<%= datum_Beginn %></p>
<p ><b>Ende:</b>&nbsp;<%= datum_Ende %></p>
<p ><b>RC_Description:</b>&nbsp;<%= RC_Description %></p>
<p ><b>Description:</b>&nbsp;<%= Description %></p>
<p ><b>Ist die Description plausibel?:</b>&nbsp;</p>
<%
If Description_plausibel = "Ja" Then
Response.Write("<p>Ja</p>")
Else
Response.Write("<p>Nein</p>")
End If %>
<center><p ><b><font color="#003366">Ihr Eintrag wurde gespeichert!</font></b></p></center>
<br>
<p align="center"><input type="button" value="Schließen" onclick="self.close()" ></p>
</body>
<%
'falls der Eintrag mehrmals in der Datenbank vorkommt
Else %>
<head>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor="#ffffea">
<table align=center><tr><td class="textback" height=15>
<% 'Schritt 16: Produkt durch Labelbezeichnung ersetzen, die LB entspricht die Spalte(n) in der Tabelle die keine doppelten Einträge haben dürfen %>
Die RC_Nummer <b><%= RC_Nummer %></b>&nbsp;existiert schon in der Tabelle.<br>Die von Ihnen hinzugef&uuml;ten Daten an der Tabelle konnten nicht vorgenommen werden, da der Index, Prim&auml;rschl&uuml;ssel oder die Beziehung mehrfach vorkommende Werte enthalten w&uuml;rde.</td></tr></table>
<br><br>
<p align="center"><input type="button" value="Zurück" onclick="history.back()"></p>
</body>
<% End If %>
<% End If %>
<% end function
private function DeleteIt()
'****************************************************************************************
'*** Funktion zum Löschen des ausgewählten Datensatzes
'*** Eingabe: ---
'*** Ausgabe: Datensatz wird mit Hilfe der SQL Anweisung DELETE aus der Tabelle gelöscht
'****************************************************************************************
%>
<head><title>TABELLE Production_Problem</title>
<link rel="stylesheet" type="text/css" href="../_rootverzeichnis/format.css">
</head>
<body bgcolor="#ffffea">
<table align="center" width="380" height="40">
<td class="textback" align="center"><b>Der Datensatz wurde erfolgreich gelöscht!</b></td>
</table><br>
<p align="center"><input type="button" value="Schliessen" onclick="self.close()"></p>
<%
'Schritt 28: LU_Produkt durch Tabellennamen, Produkt_id durch PK-Spaltennamen ersetzen
SQLquery = "DELETE FROM Production_Problem WHERE RC_Nummer='" & Request("RC_Nummer") & "'"
Set objRS = Conn.Execute(SQLquery)
%>
<% end function %>
</body>
</html>