Kan ik update db

Fejlen skyldes som regel fordi man ikke har angivet en LockType for recordsetet:
rs.Open strSQL, strDSN, 1 [, mangler]

Default for LockType er nemlig adLockReadOnly eller 1. Så angiv en anden LockType som tillader man kan opdatere sit recordset:

rs.Open strSQL, strDSN, 1, 2

Hmm det giver stadig:

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/guestbook/admin_paging.asp, line 125

Bare lige en tanke - hvad med:

rs.Open strSQL, strDSN, 1, 1

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/guestbook/admin_paging.asp, line 126

giver det

har du kigget på om du har de rette skrive rettigheder i mappen, hvor databasen ligger

Dim oConn, oRs, filePath, Index

            ' Map authors database to physical path
            filePath = Server.MapPath("db2.mdb")

            ' Create ADO Connection Component to connect with sample database           
            Set oConn = Server.CreateObject("ADODB.Connection")
            oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
            Set oRs = Server.CreateObject("ADODB.Recordset")
   
            strSQL = "Select * FROM gb WHERE id = " & Session("id") & ";"
   
            Response.Write(strSQL)
' Udfør forespørgsel (rss indeholder nu resultatet)
            Set rss = oConn.Execute(strSQL)
            Response.Write(rss("Name"))
'            rss("Name") = "Svend"
'            rss("Email") = "Svend@Svendsen"
'            rss("Homepage") = "Svendsen.dk"
        strSQL = "UPDATE gb SET Name = '" & Request.Form("Name") & "' , Email = '" & Request.Form("Email") & "' , Homepage = '" & Request.Form("HomePage") & "' WHERE id = " & Session("id")
        response.Write(strSQL)
        oConn.Execute(strSQL)

har ændret koden til dette:

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/fipsGbook.mdb")
strSQL = "UPDATE gb SET Name = '" & Request.Form("navn") & "' , Email = '" & Request.Form("email") & "' , Homepage = '" & Request.Form("homepage") & "' WHERE id = " & Request.QueryString("ID")



response.Write(strSQL)
oConn.Execute(strSQL)

og får følgende fejl:

UPDATE gb SET Name = 'theis poulsen' , Email = 'henrikemiljensen@hotmail.com' , Homepage = '' WHERE id = 1089
Microsoft VBScript runtime error '800a01a8'

Object required: ''
/guestbook/admin_paging.asp, line 127

line 127 er:
oConn.Execute(strSQL)

ps. ja kan godt skrive til databasen med andre scripts.... er bare det her der driller

ok så prøv at rette koden til dette så oConn defineres  og åbner forbindelse til db'en:


Set rs = Server.CreateObject("ADODB.RecordSet")
Set oConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/fipsGbook.mdb")
oConn.Open strDSN
strSQL = "UPDATE gb SET Name = '" & Request.Form("navn") & "' , Email = '" & Request.Form("email") & "' , Homepage = '" & Request.Form("homepage") & "' WHERE id = " & Request.QueryString("ID")



response.Write(strSQL)
oConn.Execute(strSQL)

Ok det virker, pånær hvis et af felterne er tomme.. Hvordan gør man så de gerne må være tomme?

Hvis du får en fjel at kolonne skal indeholde en værdi så skal du ind i Access, åbne tableen og vælge egenskaber/properties på den kolonne du ønsker må indeholde en tom streng. Find Tilladnullængde og set den til "Ja"

ok ja det virker :) Kan du så se hva fejlen er her?

strSQL = "UPDATE gb SET Name = '" & Request.Form("navn") & "' , Email = '" & Request.Form("email") & "' , Homepage = '" & Request.Form("homepage")  "' , Entry = '" & Request.Form("entry") & "' , Kommentar = '" & Request.Form("Kommentar") & "' WHERE id = " & Request.QueryString("ID")

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/guestbook/admin_paging.asp, line 124

strSQL = "UPDATE gb SET Name = '" & Request.Form("navn") & "' , Email = '" & Request.Form("email") & "' , Homepage = '" & Request.Form("homepage")  "' , Entry = '" & Request.Form("entry") & "' , Kommentar = '" & Request.Form("Kommentar") & "' WHERE id = " & Request.QueryString("ID")
----------------------------------------------------------------------------------------------------------------------------------------------------^

?

Der mangler et & tegn  imellem Request.Form("homepage")  og "' ,Entry.... så prøv sådan her:


strSQL = "UPDATE gb SET Name = '" & Request.Form("navn") & "' , Email = '" & Request.Form("email") & "' , Homepage = '" & Request.Form("homepage") & "' , Entry = '" & Request.Form("entry") & "' , Kommentar = '" & Request.Form("Kommentar") & "' WHERE id = " & Request.QueryString("ID")

tak tak kom med et svar og få point

Ja her et svar ;)