Desert: In Datenbanken Schreiben?

Beitrag lesen

SELF-Forum

In Datenbanken Schreiben?

Desert
– Informationen zu den Bewertungsregeln

Ich hab 3 Bücher gewälzt und bin immer noch nicht schlauer.
Ich hab nur einen ganz normalen ASP Server Laufen.
Das Auslesen aus der Datenbank hat wunderbar geklappt, nur beim Schreiben bekomme Ich Folgende Fehlermeldung:
---------------------------------------

Beispieldaten eingeben
Datenbank mit Beispielwerten füllen

objConn: Provider=MSDASQL.1;Extended Properties="DSN=Telefonliste;DBQ=C:\hp\inhome 28-04-03\datenbanken\Telefonliste.mdb;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"

SqlCommand: SELECT Name, Stelle, Telfonnummer FROM un WHERE 1 < 0

adOpenStatic: 3

adLockOptimistic: 3

Datansetze Inhalt:
Name: Test-Holger
Stelle: Holger@test.de
Telefon:123

Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005'
[Microsoft][ODBC Microsoft Access Driver] Aktualisieren nicht möglich; Datenbank oder Objekt ist schreibgeschützt.
/daten/1 schwarzes-brett/daten eingeben.asp, line 63

--------------------------------------------

Hier mein Code: Was ist Falsch?

--------------------------------------------
<% Response.Expires=0 %>

<html>
<head>
 <titel>Beispieldaten eigeben</titel>
</head>
<body>
<h3>Datenbank mit Beispielwerten füllen</h3><hr>

<%
' Verbindungsdetails
db_dsn = "Telefonliste"
db_table = "un"
db_user = ""
db_password = ""

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
 objConn.Open "dsn=" & db_dsn & ";uid=" & db_user & ";pwd=" & db_password

Dim sqlCommand
 sqlCommand =  "SELECT Name, " & _
     "Stelle, " & _
     "Telfonnummer " & _
     "FROM   "&db_table &" "& _
     "WHERE  1 < 0"

%>
<i>
 objConn: <%=objConn%><br><br>
 SqlCommand: <%=sqlCommand%><br><br>
 adOpenStatic: <%=adOpenStatic%><br><br>
 adLockOptimistic: <%=adLockOptimistic%>
 <hr>
</i>

<%

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
'    objRS.CursorLocation = adUseClient
     objRS.Open sqlCommand, objConn, adOpenStatic, adLockOptimistic

If objRS.Supports(adAddNew) Then

objRS.AddNew
  objRS.Fields("name")  = "Test-Holger"
  objRS.Fields("Stelle")  = "Holger@test.de"
  objRS.Fields("Telfonnummer")= "123"

%>
  <b>
  <font face="Courier New">Datansetze Inhalt:<br>
  Name:   <%=objRS.Fields("name")  %><br>
  Stelle: <%=objRS.Fields("Stelle")  %><br>
  Telefon:<%=objRS.Fields("Telfonnummer")  %></font>
  <hr>
  </b>

<%
  objRS.Update

Response.Write "Der Datensatz wurde eingefügt."

Else

Response.Write "Einfügen nicht möglich"

End if

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%>

Beitrag melden
–
Informationen zu den Bewertungsregeln