Notifikationer

Markér alle som læst Log ud

jan2001 Nybegynder

05. juli 2004 - 18:31 Der er 9 kommentarer og
1 løsning

det er stadig mystisk

Hej

Bedst som jeg troede at det var iorden, erdet det ikke alligevel.

Jeg har lavet en databasefil i Access, som jeg så har uploaded til en server (mit website). Hertil har jeg lavet en front-end, så jeg nemt kan opdaterer databasen.
Når jeg henter data første gang fra databasen er dataene tilstede, men ændrer jeg så i dem og sender dem til databasen, så slettes samtlige data i felterne i record'en.
Men prøver jeg så at sætte data ind via front-end'en, så bliver de og slettes ikke. Hvad sker det her?

Synes godt om

jan2001 Nybegynder

05. juli 2004 - 18:34 #1

Jeg kan lige nævne, at databasen er oprettet i Access 2000.

Synes godt om

nicklasb Nybegynder

05. juli 2004 - 18:43 #2

.. jeg kan lige nævne, at dit valg af emne (efter min mening) ikke lige var så heldigt igen!
Sagt på enden måde, gør lidt ud af den en anden gang, tak!

Synes godt om

erikjacobsen Ekspert

05. juli 2004 - 19:27 #3

Hvordan skal vi hjælpe dig uden at se hvad du laver?

Men hvis li'som i dit tidligere spørgsmål skriver
b5tekst= ''
i din update, så bliver feltet selvfølgelig nulstillet.

Synes godt om

jan2001 Nybegynder

05. juli 2004 - 20:08 #4

Godt, her er hele koden det drejer sig om. Strengen, som sendes til databasen, er ok. Det ser ud som om der er en forskel på at indtaste data i Access og så via en front-end?

<%
Dim billedrec
Dim inforec
ID = request.querystring("id")

strDBPath = Server.MapPath("/db/db.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

set billedrec = objConn.execute("select * from billeder where id=" & ID & ";")
set inforec = objConn.execute("select * from info where id=" & ID & ";")

if request.querystring("func") = "write" then
strSQL = "UPDATE billeder SET "
strSQL = strSQL & "kort= '" & request.form("kort") & "', "
strSQL = strSQL & "b0tekst= '" & request.form("b0tekst") & "', "
strSQL = strSQL & "b1tekst= '" & request.form("b1tekst") & "', "
strSQL = strSQL & "b2tekst= '" & request.form("b2tekst") & "', "
strSQL = strSQL & "b3tekst= '" & request.form("b3tekst") & "', "
strSQL = strSQL & "b4tekst= '" & request.form("b4tekst") & "', "
strSQL = strSQL & "b5tekst= '" & request.form("b5tekst") & "', "
strSQL = strSQL & "b6tekst= '" & request.form("b6tekst") & "', "
strSQL = strSQL & "b7tekst= '" & request.form("b7tekst") & "', "
strSQL = strSQL & "b8tekst= '" & request.form("b8tekst") & "', "
strSQL = strSQL & "b9tekst= '" & request.form("b9tekst") & "', "
strSQL = strSQL & "b10tekst= '" & request.form("b10tekst") & "', "
strSQL = strSQL & "b11tekst= '" & request.form("b11tekst") & "', "
strSQL = strSQL & "b12tekst= '" & request.form("b12tekst") & "', "
strSQL = strSQL & "b13tekst= '" & request.form("b13tekst") & "', "
strSQL = strSQL & "b14tekst= '" & request.form("b14tekst") & "', "
strSQL = strSQL & "b15tekst= '" & request.form("b15tekst") & "', "
strSQL = strSQL & "b16tekst= '" & request.form("b16tekst") & "', "
strSQL = strSQL & "b17tekst= '" & request.form("b17tekst") & "', "
strSQL = strSQL & "b18tekst= '" & request.form("b18tekst") & "'"
strSQL = strSQL & " Where Id = " & ID & ""

objConn.Execute(strSQL)
end if
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%= inforec("titel") %></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="stylesheet" href="style.css" type="text/css" />
</head>

<body bgcolor="#FFFFFF" text="#000000" topmargin="20">
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" background="billeder/back3.jpg">
<tr>
<td valign="top">
<table width="57%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"> <span class="SOverskriftStor"><%= inforec("titel") %></span> <br />
</div></td>
</tr>
</table>
<form name="form1" id="form1" method="post" action="admin.asp?id=<%= ID %>&func=write">
<p align="center"> <span class="SOverskrift2">Kort</span><br />
<input name="kort" type="text" value="<%= billedrec("kort") %>" size="80" />
<br />
<br />
<span class="SOverskrift2">Hovedtekst</span><br />
<textarea name="b0tekst" cols="60" rows="3" id="b0tekst"><%= billedrec("b0tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b1alt") %><br />
</span>
<textarea name="b1tekst" cols="60" rows="3"><%= billedrec("b1tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b2alt") %></span><br />
<textarea name="b2tekst" cols="60" rows="3" id="b2tekst"><%= billedrec("b2tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b3alt") %><br />
</span>
<textarea name="b3tekst" cols="60" rows="3" id="b3tekst"><%= billedrec("b3tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b4alt") %><br />
</span>
<textarea name="b4tekst" cols="60" rows="3" id="b4tekst"><%= billedrec("b4tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b5alt") %></span><br />
<textarea name="b5tekst" cols="60" rows="3" id="textarea"><%= billedrec("b5tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b6alt") %></span><br />
<textarea name="b6tekst" cols="60" rows="3" id="b6tekst"><%= billedrec("b6tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b7alt") %></span><br />
<textarea name="b7tekst" cols="60" rows="3" id="b7tekst"><%= billedrec("b7tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b8alt") %><br />
</span>
<textarea name="b8tekst" cols="60" rows="3" id="b8tekst"><%= billedrec("b8tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b9alt") %></span><br />
<textarea name="b9tekst" cols="60" rows="3" id="b9tekst"><%= billedrec("b9tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b10alt") %></span><br />
<textarea name="b10tekst" cols="60" rows="3" id="b10tekst"><%= billedrec("b10tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b11alt") %></span><br />
<textarea name="b11tekst" cols="60" rows="3" id="b11tekst"><%= billedrec("b11tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b12alt") %></span><br />
<textarea name="b12tekst" cols="60" rows="3" id="b12tekst"><%= billedrec("b12tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b13alt") %></span><br />
<textarea name="b13tekst" cols="60" rows="3" id="b13tekst"><%= billedrec("b13tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b14alt") %></span><br />
<textarea name="b14tekst" cols="60" rows="3" id="b14tekst"><%= billedrec("b14tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b15alt") %></span><br />
<textarea name="b15tekst" cols="60" rows="3" id="b15tekst"><%= billedrec("b15tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b16alt") %></span><br />
<textarea name="b16tekst" cols="60" rows="3" id="b16tekst"><%= billedrec("b16tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b17alt") %></span><br />
<textarea name="b17tekst" cols="60" rows="3" id="b17tekst"><%= billedrec("b17tekst") %></textarea>
<br />
<span class="SOverskrift2"><br />
<%= billedrec("b18alt") %></span><br />
<textarea name="b18tekst" cols="60" rows="3" id="b18tekst"><%= billedrec("b18tekst") %></textarea>
<br />
<br />
<input type="submit" name="Submit" value="Submit" />
</form>
</td>
</tr>
</table>
<div align="center"><br>
<span class="STekst">< </span><a href="admin-oversigt.asp"><span class="Links">oversigt</span></a><span class="STekst">
><br>
</span> </div>
</body>
</html>
<%
objConn.Close
Set billedrec = Nothing
Set inforec = Nothing
%>

Synes godt om

erikjacobsen Ekspert

05. juli 2004 - 20:17 #5

Jeg kan umiddelbart se følgende problem:

1) Du henter en record med fx ID=117.
2) Du får vist data i dine <textarea> osv.
3) Du retter noget og gemmer.
4) Men den viser de gamle data på næste side.

De skyldes at du siger SELECT før du laver din UPDATE. Det er ikke det du skriver
er problemet, men jeg synes da du skal bytte om på dem.

Synes godt om

jan2001 Nybegynder

05. juli 2004 - 21:24 #6

Ok, er nu gjort, men det forklarer stadigvæk ikke hvorfor opdateringen sletter alle felter i den pågældende record. Jeg prøver at beskrive i punktform, hvad der sker:

1) laver database i Access 2000
2) uploader til server eller bruger min egen comp som server.
3) henter en data fra en record frem i <textarea>
4) retter tekst eller udfylder tomme <textarea>'s
5) trykker submit hvorefter alle felter i record bliver slettet.
6) prøver igen at indtaste i et af de tomme <textarea>'s
7) trykker submit og data er der stadig.
8) udfylder flere <textarea>'s
9) trykker submit og ALLE data er der endnu
10) åbner nu databasen i Access 2000 og retter i nogle felter.
11) tilbage til front-end. Punkt 1-5 gentager sig.

Det er som om Access 2000 og ASP skriver forskelligt til databasen?

Synes godt om

erikjacobsen Ekspert

05. juli 2004 - 21:42 #7

Hvad er felternes typer - når du siger textarea er det måske en memo?
Der gælder særlige regler i nogle drivere, nemlig at de skal bruges i samme
rækkefølge som de kommer ud af select-sætningen. Prøv derfor:

set billedrec = objConn.execute("select kort,b0tekst,b1tekst,---fortsætselv-- from billeder where id=" & ID & ";")

Synes godt om

jan2001 Nybegynder

06. juli 2004 - 00:51 #8

Alle felter memo. Jeg har fundet ud af, at hvis jeg opdaterer to gange den første gang så bliver data hængende, men det er stadig ikke rigtigt.
Jeg har også fundet ud af, at gemmes databasen i i en ældre version, så fylder filen en femtedel, men dette har dog ikke løst problemet

Synes godt om

jan2001 Nybegynder

31. oktober 2004 - 16:36 #9

lukker her

Synes godt om

jan2001 Nybegynder

31. oktober 2004 - 16:36 #10

prøver lige igen

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS