15. juni 2002 - 12:04Der er
8 kommentarer og 3 løsninger
Hvad er der galt i denne kode
Jeg skal have nogle oplysninger ind i en access database, men det vil overhovedet ikke lade sig gøre. Er der nogen der kan se hvor fejlen(e) ligger i denne kode:
<% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/nyheder.mdb")
'Hvis brugeren har submittet formularen if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld if (Request.Form("Title") <> "" AND Request.Form("Nyhed") <> "" AND Request.Form("IndsatAf") <> "") then
'Tilføjer brugeren til databasen Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select * from nyheder" rs.Open strsql, conn, 1, 3
'Tilføjer brugeren til databasen og sender ham/hende til login siden rs.AddNew rs("Title") = Server.HTMLEncode(Request("Title")) rs("Nyhed") = (Request("Nyhed")) rs("IndsatAf") = Server.HTMLEncode(Request("IndsatAf")) rs("Dato") = Now() rs.update
Response.Write("<strong><font color='red'>Du har sendt formen!</font></strong>")
rs.Close set rs = nothing
else Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")
end if end if %> <html> <META NAME="Generator" CONTENT="Stone's WebWriter 3.5"> <link rel="stylesheet" type="text/css" href="../style.css"> <head> <!-- Minus AutoDato --> <title>Oprette Nyhed Crew Area</title> </head>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Det er lidt rodet koden, men den skriver at alle felter ikke er udfyldt, så den ligger heller ingen tekst i databasen. Der er nok noget kodeværk for meget, jeg er ikke den største hej til det.
Nej det var ikke det, men der var en fejl i Titel stavningen. Nu siger den så: Databasen eller objektet er skrivebeskyttet og kan ikke opdateres. Det er i linjen rs.update den er gal, men hvad er der galt
du har ikke skriverettigheder til databasen. hvis det ligger på et webhotel, skal databasen nok ligge i en bestemt mappe. hvis det kører lokalt på din computer - skal du give skriverettigheder til den mappe, som databasen ligger i.
Nu paster jeg lige hele koden igen. Det kunne være nogen kunne se fejlen:
<% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/nyheder.mdb")
'Hvis brugeren har submittet formularen if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld if (Request.Form("Titel") <> "" AND Request.Form("Nyhed") <> "" AND Request.Form("IndsatAf") <> "") then
'Tilføjer brugeren til databasen Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select * from nyheder" rs.Open strsql, conn, 1, 3
'Tilføjer brugeren til databasen og sender ham/hende til login siden rs.AddNew rs("Titel") = Server.HTMLEncode(Request("Titel")) rs("Nyhed") = Server.HTMLEncode(Request("Nyhed")) rs("IndsatAf") = Server.HTMLEncode(Request("IndsatAf")) rs("Dato") = Now() rs.update
Response.Write("<strong><font color='red'>Du har sendt formen!</font></strong>")
rs.Close set rs = nothing
else Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")
end if end if %> <html> <META NAME="Generator" CONTENT="Stone's WebWriter 3.5"> <link rel="stylesheet" type="text/css" href="../style.css"> <head> <!-- Minus AutoDato --> <title>Oprette Nyhed Crew Area</title> </head>
Jeg har for sjov lige copy/pastede din kode og kørt den på min lokale server. Koden virker fint. Så tjek du ikke har to databaser med samme navn så du ikke bliver snyt og kigge i en DB men samme navn i en forkert folder.
du har stien ("../db/nyheder.mdb) ../db så hvis du kigge i den fil i samme folder som .asp filen så kigger du i en forkert database.
Problemet lå i en mappe der ikke var "eksekreverbar" jeg fandt ud af det i microsofts hjælp. Nu får i lov alle tre at dele de 30 point.
mrs
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.