Får upp följande felmeddelande: Prova: Om du bara ska loopa igenom recordsetet använd då: Får samma fel med följande kod: (Om jag använder if-satsen så går den aldrig igen den..... Där har du felet! Request.Form("Omrade") saknar värde! Det felet var där, nu kommer det att objektet är skrivskyddat. Du måste gå till filhanteraren och högerklicka på accessfilen och sätta den så att ALLA för fulla rättigheter till filen. Sätt i filhanteraren så att det internet-gästkontot som siten har får FULLA rättigheter till .mdb-filen. Tror att det räcker med ÄNDRA och det är ju "bättre" att hålla på säkerheten än att öppna upp för mycket.Problem med anslutning till databas
Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/RegistreraObjekt.asp, line 21
Rad 21 är sista raden nedan:
RegistreraObjekt.asp:
<%@Language=VBScript %>
<%Option Explicit %>
<!-#include virtual="\adovbs.inc"->
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("Lokaler.mdb")
objConn.Open
%>
<%
Const adLockOptimistic = 3
Const adCmdTable = 2
Dim tabell
Dim objRS
tabell=Request.Form("Omrade")
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open tabell, objConn, ,adLockOptimisticSv: Problem med anslutning till databas
objRS.Open tabell, objConn, 3, 3
Kolla även att din objConn har en korrekt anslutning till databasen:
Response.Write objConn.ConnectionString
Response.EndSv: Problem med anslutning till databas
objRS.Open tabell, objConn, adOpenForwardOnly, adLockReadOnly
Ska du däremot redigera i recordsetet. Skriver du:
objRS.Open tabell, objConn, adOpenKeyset, adLockOptimistic
<%@Language=VBScript %>
<%Option Explicit %>
<!-#include virtual="\adovbs.inc"->
<%
'Dessa konstanter behövs inte efter som adovbs är inkluderad
'Const adOpenForwardOnly = 0
'Const adOpenKeyset = 1
'Const adOpenDynamic = 2
'Const adOpenStatic = 3
'
'Const adLockReadOnly = 1
'Const adLockOptimistic = 3
'
'Const adCmdTable = 2
'Const adCmdTableDirect = 512
Dim objConn
Dim objRS
Dim tabell
tabell=Request.Form("Omrade")
If Len(tabell) > 0 Then
Set objConn = Server.CreateObject("ADODB.connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("Lokaler.mdb")
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open tabell, objConn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
End If
%>Sv: Problem med anslutning till databas
<%@Language=VBScript %>
<%Option Explicit %>
<!-#include virtual="adovbs.inc"->
<%
Dim objConn
Dim tabell
Dim objRS
Set objConn = Server.CreateObject("ADODB.connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("Lokaler.mdb")
objConn.Open
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockOptimistic = 3
Const adCmdTable = 2
Const adCmdTableDirect = 512
tabell=Request.Form("Omrade")
Response.Write("HEJ")
Set objConn = Server.CreateObject("ADODB.connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("Lokaler.mdb")
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open tabell, objConn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
Response.Write("HEJ")
objRS.AddNew
objRS("Yta")=Request.Form("Yta")
objRS("Läge")=Request.Form("Lage")
objRS("Beskrivning")=Request.Form("Beskrivning")
objRS.Update
objConn.Close
Set objConn = Nothing
%>
<HTML>
<BODY>
<H3>Listan på lediga lokaler är nu uppdaterad med:<BR><BR></H3>
Klicka här om du vill registrera ett nytt objekt!<BR><BR>
Klicka här om du vill ta bort en post i listan lediga lokaler<BR><BR>Sv: Problem med anslutning till databas
Har för mig att Request.Form() är känslig för gemener/versaler...
Kontrollera att du har ett värde i Request.Form("Omrade").Sv: Problem med anslutning till databas
Vart går man in och ändrar det???
Jag är inne i loopen nu......Sv: Problem med anslutning till databas
/PelleSv: Problem med anslutning till databas
mvh
PatrikB a.k.a mrWize