Cannot update. Database or object is read-only.
please some one enlighten me about this issue when i'm trying to add
new data to the database i got the above arror msg
Error Type:
Microsoft JET Database Engine (0x80040E09)
Cannot update. Database or object is read-only.
/addnew.asp, line 21
AND THIS IS MY CODES
AND THIS IS THE CONNECTION
<%
Dim strDatabaseType
'Choose one of the following two lines, and comment out the other
strDatabaseType = "Access"
'strDatabaseType = "MSDE"
'Now we use this selection to specify the connection string
If strDatabaseType = "Access" Then
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\Inetpub\wwwroot\Movie2000.mdb;" & _
"Persist Security Info=False"
Else
strConnect = "Provider=SQLOLEDB;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=Movie;" & _
"Initial File Name=C:\MSSQL7\Data\Movie2000.mdf" End If
/////////////////////////////////////XXXXXX//////////////////////////
<%
Option Explicit
Dim strConnect
%>
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<HTML>
<HEAD>
<TITLE>Adding a New Record</TITLE>
</HEAD>
<BODY>
<%
Dim objRS, intIDForNewRecord
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "Movies", strConnect, adOpenStatic, adLockOptimistic, adCmdTable
objRS.MoveLast
intIDForNewRecord = objRS("MovieID") + 1
objRS.AddNew ' add a new record
objRS("MovieID") = intIDForNewRecord
objRS("Title") = "Psycho"
objRS.Update
objRS.Close
objRS.Open "SELECT * FROM Movies WHERE MovieID=" & intIDForNewRecord, _
strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
If objRS.EOF Then
Response.Write "New record not found - something went wrong"
Else
Response.Write "You've successfully added a new record:<BR> " & _
"Movie title = '" & objRS("Title") & "'<BR>" & _
"MovieID = " & objRS("MovieID")
End If
objRS.Close ' now close and clean up
Set objRS = Nothing
%>
</BODY>
</HTML>
|
