Efter att man har fyllt i ett formulär så Vad får du för felmeddelande ? Glöm inte att städa efter dej, alltså att stänga Recordsetet och fimpa anslutningen till databasen. Du anger inte att recordsetet skal öppnas med din SQL fråga. Eller vilka cursors den skall öppnas med:Öppna och lägg till i access-databas
registrera.asp anropas där följande kod finns.
Jag har en tabell i samma mapp som heter medlem och
tabellen som finns i databasen heter tblmedlem. Jag får inte
registreringen att fungera, har det smygit sig in ett fel i koden?
Hittar i så fall inte det....
<HTML>
<HEAD>
<TITLE>Registrera</TITLE>
</HEAD>
<BODY>
<CENTER>Du är nu registrerad.<BR><%=Now%></CENTER>
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("medlem.mdb")&";"
SQL ="SELECT * From tblmedlem"
rs.Open MinCon
rs.AddNew
rs("namn") = Request.Form("namn")
rs("epost") = Request.Form("epost")
rs("födelseår") = Request.Form("födelseår")
rs("postnummer") = Request.Form("postnummer")
rs("ort") = Request.Form("ort")
rs("meddelande") = Request.Form("meddelande")
rs.Update
rs.Close
%>
</BODY>
</HTML>Sv: Öppna och lägg till i access-databas
Jag skulle ändra:
>> MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("medlem.mdb")&";"
till
MinCon.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("medlem.mdb")
och
>> rs.Open MinCon
till
rs.Open MinCon, Connect, 3, 3
/TomasSv: Öppna och lägg till i access-databas
<%
RS.Close
Set RS = Nothing
Connect.Close
Set Connect = Nothing
%>
/TomasSv: Öppna och lägg till i access-databas
<code>
<HTML>
<HEAD>
<TITLE>Registrera</TITLE>
</HEAD>
<BODY>
<CENTER>Du är nu registrerad.<BR><%=Now%></CENTER>
<%
Dim SQL
Dim rs
Dim MinCon
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("medlem.mdb") & ";"
SQL ="SELECT * From tblmedlem"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, MinCon, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("namn") = Request.Form("namn")
rs("epost") = Request.Form("epost")
rs("födelseår") = Request.Form("födelseår")
rs("postnummer") = Request.Form("postnummer")
rs("ort") = Request.Form("ort")
rs("meddelande") = Request.Form("meddelande")
rs.Update
rs.Close
Set rs = Nothing
MinCon.Close
Set MinCon = Nothing
%>
</BODY>
</HTML>
</code>
Desutom har jag deklarerart variablerna och ändrat från ODBC till OLEDB drivrutinen för access.