Notifikationer

Markér alle som læst Log ud

pho2ke Nybegynder

24. april 2004 - 19:41 Der er 5 kommentarer og
1 løsning

slette i DB

Jeg har en side hvor der kan rettes i data der er uploadet til en Access DB..

På siden vil jeg gerne have sådan at der ved at sætte tre 'check' mærker slettes indholdet af tre felter i databasen når der gemmes.

Er der nogen der kan hjælpe mig??

---------------------
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Salgsliste</title>
</head>

<body>

<%
mode=request.querystring("m")
if mode="gem" then
sti = "billeder/"
Set Upload = Server.CreateObject("Persits.Upload")
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/fpdb/sha.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

Upload.OverwriteFiles = False
Upload.Save (Server.Mappath(sti))
fil1 = ""
fil2 = ""
fil3 = ""
If Not Upload.Files("FILE1") Is Nothing Then fil1 = sti & Upload.Files("FILE1").FileName
If Not Upload.Files("FILE2") Is Nothing Then fil2 = sti & Upload.Files("FILE2").FileName
If Not Upload.Files("FILE3") Is Nothing Then fil3 = sti & Upload.Files("FILE3").FileName

SQL="UPDATE tblBILSALG SET "
SQL = SQL & "oprettet='" & Upload.form("oprettet") & "', "
SQL = SQL & "[Mærke]='" & Upload.form("Mærke") & "', "
SQL = SQL & "[Model]='" & Upload.form("Model") & "', "
SQL = SQL & "[Type]='" & Upload.form("Type") & "', "
SQL = SQL & "[Brændstof]='" & Upload.form("Brændstof") & "', "
SQL = SQL & "Farve='" & Upload.form("Farve") & "', "
SQL = SQL & "[Årgang]='" & Upload.form("Årgang") & "', "
SQL = SQL & "Kilometer='" & Upload.form("Kilometer") & "', "
SQL = SQL & "Pris='" & Upload.form("Pris") & "', "
SQL = SQL & "Synet='" & Upload.form("Synet") & "', "
SQL = SQL & "Beskrivelse='" & Upload.form("Beskrivelse") & "' "
if fil1 <> "" then SQL = SQL & ",[Billede 1]='" & fil1 & "' "
if fil2 <> "" then SQL = SQL & ",[Billede 2]='" & fil2 & "' "
if fil3 <> "" then SQL = SQL & ",[Billede 3]='" & fil3 & "' "
SQL = SQL & " where ID_bil =" & request.querystring("ID_bil")
Set RS = Conn.Execute(SQL)
%> <meta http-equiv="refresh" content="2;URL=lukker.asp">
Dine ændringer er nu gemt.
<% else %>
<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/fpdb/sha.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from tblBILSALG where Id_bil = " & Request.Querystring("ID_bil")
set RS = Conn.Execute(SQL)

Session("editID") = Request.Querystring("ID_bil")
%><form method="POST" action="fjernsalgsliste.asp?m=gem&id_bil=<%=rs("ID_bil") %>" enctype="multipart/form-data">

<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" height="44">
<tr>
<td height="22">Oprettet:</td>
<td height="22"><input type="text" name="oprettet" size="50" value="<%=rs("oprettet") %>"></td>
</tr>
<tr>
<td height="22">Mærke:</td>
<td height="22">

<input type="text" name="Mærke" size="50" value="<%=rs("Mærke") %>"></td>
</tr>
<tr>
<td height="22">Model:</td>
<td height="22">

<input type="text" name="model" size="50" value="<%=rs("Model") %>"></td>
</tr>
<tr>
<td height="22">Type:</td>
<td height="22">

<input type="text" name="Type" size="50" value="<%=rs("Type") %>"></td>
</tr>
<tr>
<td height="22">Brændstof:</td>
<td height="22">

<input type="text" name="Brændstof" size="50" value="<%=rs("Brændstof") %>"></td>
</tr>
<tr>
<td height="22">Farve:</td>
<td height="22">

<input type="text" name="Farve" size="50" value="<%=rs("Farve") %>"></td>
</tr>
<tr>
<td height="22">Årgang:</td>
<td height="22">

<input type="text" name="Årgang" size="50" value="<%=rs("Årgang") %>"></td>
</tr>
<tr>
<td height="22">Kilometer:</td>
<td height="22">

<input type="text" name="Kilometer" size="50" value="<%=rs("kilometer") %>"></td>
</tr>
<tr>
<td height="22">Pris:</td>
<td height="22">

<input type="text" name="Pris" size="50" value="<%=rs("Pris") %>"></td>
</tr>
<tr>
<td height="22">Synet:</td>
<td height="22">

<input type="text" name="synet" size="50" value="<%=rs("synet") %>"></td>
</tr>
<tr>
<td height="22" valign="top">
Beskrivelse:</td>
<td height="22"><textarea rows="8" name="Beskrivelse" cols="40"><%=rs("Beskrivelse") %></textarea></td>
</tr>
<tr>
<td height="22" valign="top">Billede 1:</td>
<td height="22" valign="top"><INPUT TYPE="FILE" SIZE="35" NAME="FILE1"> 

<%=rs("Billede 1") %></td>
</tr>
<tr>
<td height="22" valign="top">Billede 2:</td>
<td height="22" valign="top"><INPUT TYPE="FILE" SIZE="35" NAME="FILE2"> 

<%=rs("Billede 2") %></td>
</tr>
<tr>
<td height="22" valign="top">Billede 3:</td>
<td height="22" valign="top"><INPUT TYPE="FILE" SIZE="35" NAME="FILE3"> 

<%=rs("Billede 3") %></td>
</tr>
</table>
</center>
</div>


 

<input type="submit" value="Gem" name="gem"> 

</form>


<% end if %>

</body>

</html>
--------------------

Synes godt om

websam Nybegynder

25. april 2004 - 09:33 #1

Du kan ikke slette enkelte felter i en række kun en hel række, men kan du ikke blot opdatere felterne og sætte dem til ingenting at indeholde ?

/Websam

Synes godt om

pho2ke Nybegynder

25. april 2004 - 10:00 #2

Ja det er en god nok løsning...
evt hvis et check felt er udfyldt, så gemmes værdien "" (ingenting).

Har du en mulig løsning på dette??

Synes godt om

websam Nybegynder

25. april 2004 - 10:20 #3

Skal det være den samme update sætning som du har vist ovenfor ?

/Websam

Synes godt om

websam Nybegynder

25. april 2004 - 10:29 #4

Men ellers noget i denne stil :

Check1 = Request.Form("ck1")
Check2 = Request.Form("ck2")
Check3 = Request.Form("ck3")

If Check1 = True Then
strUpdate1 = "dbfelt1 = """
End If

If Check2 = True Then
strUpdate2 = "dbfelt2 = """
End If

If Check3 = True Then
strUpdate3 = "dbfelt3 = """
End If

If Check1 = True Or Check2 = True Or Check3 = True
Sql = "Update db Set "&strUpdate1&" "&strUpdate2&" "&strUpdate3&"" Where Id = 12"
Conn.Execute
End If

Det er overhovedet ikke testet men måske det giver nogle ideer :o)

/Websam

Synes godt om

pho2ke Nybegynder

25. april 2004 - 10:42 #5

Ja det var sådan umiddelbart såden noget jeg havde tænkt...
Det skal placeres i den side som jeg har vist ovenfor...

Jeg er ikke så god til kode og sådan...
Så hvis du gider at prøve at lave noget eksakt.... så ville jeg blive meget glad...
ellers er jeg jo først færdig om 14 dage - tre uger.. ;o)

du kan godt få 25 extra points for det..
Toke

Synes godt om

pho2ke Nybegynder

30. maj 2004 - 23:56 #6

Lukker spørgsmålet!

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