/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Fejlmelding
Fra : Lars Klingenberg


Dato : 09-04-01 02:12

Hi,

Kan følgende fejlmelding betyde manglende skriveadgang til databasen? Eller
er der noget galt i koden (se herunder)

Error Type:
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.

--
Med venlig hilsen
Lars Klingenberg
[lklingenberg@ifi.ku.dk]


ASP-kode:

<%
dim strInsert, strValues, adCmdText, objConn, vCS, oRS, maxnum

if request.form("Action") = "Add" then

'building SQL strings with required fields
strInsert = "INSERT INTO tblKalender
(dato_start,dato_slut,klok,art,lokale,url,info"
strValues = "VALUES('" & cstr(request.form("dato_start")) & "','" &
cstr(request.form("dato_slut")) & "','" & cstr(request.form("klok")) & "','"
& cstr(request.form("art")) & "','" & cstr(request.form("lokale")) & "','" &
cstr(request.form("url")) & "','" & cstr(request.form("info")) & "'"

'create and open the database object
set objConn = server.createobject("ADODB.Connection")
vCS = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=h:\inetpub\wwwroot\naturdidak\database\cnddb.mdb;"
objConn.connectionstring = vCS
objConn.Open
set objCmd = server.createobject("ADODB.Command")

'set the command object properties
adCmdText = 1
Set objCmd.ActiveConnection = objConn
objCmd.CommandText = strInsert & ") " & strValues & ")"
objCmd.CommandType = adCmdText
objCmd.Execute

'display the insert string
Response.Write "Aktiviteten er blevet optaget i databasen med følgende
oplysninger:<P>"
Response.Write "<b>" & strInsert & ")<br>" & strValues & ")</b>"

End If

'Get Autonumberfield
strInsert = "SELECT Max(ID) AS maxnum FROM tblKalender"
set oRS = objConn.Execute(strInsert)
maxnum = oRS("maxnum").Value
Response.Write "<p>Aktiviteten er tildelt nummeret:&nbsp;<b>" & maxnum &
"</p>"


'Close and dereference database objects
Set objCmd = Nothing
objConn.Close
Set objConn = Nothing
Set strInsert = Nothing
Set strValues = Nothing
Set adCmdText = Nothing
Set vCS = Nothing
Set oRS = Nothing

%>




 
 
Kim Søvø Pedersen (09-04-2001)
Kommentar
Fra : Kim Søvø Pedersen


Dato : 09-04-01 07:41


"Lars Klingenberg" <lklingenberg@ifi.ku.dk> skrev i en meddelelse
news:9ar27v$l20$1@news.inet.tele.dk...
> Hi,
>
> Kan følgende fejlmelding betyde manglende skriveadgang til databasen?
Eller
> er der noget galt i koden (se herunder)
>

Ja - det er manglende skriveadgang til databasen..

Kim



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408877
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste