Har suttit bra länge med en kod och kan inte komma på vad som är fel. Får följande felmedelande "Microsoft OLE DB Provider for ODBC Drivers fel '80004005' Testa med att öppna det som adOpenKeyset: Hjälpte inget. Du försöker inte peta in något Null-värde i databasen där fältet inte tolererar det? Tack Danne. Så enkelt var det, jag kunde verkligen inte komma på vad jag gjorde för fel. Jag har två fält där jag skriver i namn på bildfiler, dem fick inte vara tomma. Jag får titta på det imorgon på något sätt måste det gå att göra så man kan låta formulärfälten vara tomma. Är bara att ändra i Access så att fälten tolererar Null (Tillåt nollängd)lägg till produkter i databas (löst)
[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad
/shop_iq/post.asp, rad 20 "
Rad 20 är: Rs.Update
Så här ser koden ut.
<code>
<!-- #include file="adovbs.inc"-->
<%
Dim Conn, Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/shop")
Addera = "SELECT * FROM shItems"
Rs.Open Addera, Conn, adOpenStatic, adLockOptimistic
Rs.AddNew
Rs("category") = Request.Form("categori")
Rs("title") = Request.Form("titel")
Rs("description") = Request.Form("beskrivning")
Rs("price") = Request.Form("pris")
Rs("large") = Request.Form("stor")
Rs.Update
Rs.Close
Conn.Close
Response.Redirect "default.asp"
%>
</code> Sv: lägg till produkter i databas
<code>
Rs.Open Addera, Conn, adOpenKeyset, adLockOptimistic
</code>Sv: lägg till produkter i databas
Har skrivit om koden lite.
Det blev dock inga förbättringar utan klagar fortfarande på samma fel som innan. Vad kan jag ha missat?
<code>
<%
Response.Buffer = True
Dim Conn, Rs, SQL
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/shop")
SQL = "SELECT * FROM shItems"
Rs.Open SQL, Conn 3,3
Rs.AddNew
Rs("category") = Request.Form("categori")
Rs("title") = Request.Form("titel")
Rs("description") = Request.Form("beskrivning")
Rs("price") = Request.Form("pris")
Rs("large") = Request.Form("stor")
Rs.Update
Rs.Close
Conn.Close
Response.Redirect "default.asp"
%>
</code>Sv: lägg till produkter i databas
Kolla att det följer med något från formuläret genom att skriva ut det på skärmen
Response.Write Request.Form("categori")
o.s.v
/DanneSv: lägg till produkter i databas
Sv: lägg till produkter i databas
/Danne