Avatar billede pho2ke Nybegynder
24. april 2004 - 00:32 Der er 5 kommentarer og
1 løsning

Slette i Access Database..

Jeg har en side hvor jeg kan redigere i felternes indhold i en post i min DB.

Jeg mangler en funktion til at slette tre enkelte felter, altså enkeltvis.. altså tømme et felt ved et klik..

Er der nogen der kan give mig et hint til hvordan det skal laves??

Jeg smider lige koden til den side hvorpå det skal være..

---------------------------------
<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)
%><font face="Verdana"><span style="font-size: 9pt">                <meta http-equiv="refresh" content="2;URL=lukker.asp">
                <font color="#FF0000">Dine ændringer er nu gemt.</font></span></font><b><font face="Verdana"><span style="font-size: 9pt">
                <% 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")
%></span></font><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"><font face="Verdana" style="font-size: 9pt">Oprettet:</font></td>
        <td height="22"><font face="Verdana"><span style="font-size: 9pt"><input type="text" name="oprettet" size="50" value="<%=rs("oprettet") %>"></span></font></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Mærke:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="Mærke" size="50" value="<%=rs("Mærke") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Model:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="model" size="50" value="<%=rs("Model") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Type:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="Type" size="50" value="<%=rs("Type") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Brændstof:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="Brændstof" size="50" value="<%=rs("Brændstof") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Farve:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="Farve" size="50" value="<%=rs("Farve") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Årgang:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="Årgang" size="50" value="<%=rs("Årgang") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Kilometer:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="Kilometer" size="50" value="<%=rs("kilometer") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Pris:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="Pris" size="50" value="<%=rs("Pris") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22"><font face="Verdana" style="font-size: 9pt">Synet:</font></td>
        <td height="22"><b>
                <font face="Verdana"><span style="font-size: 9pt">
                <input type="text" name="synet" size="50" value="<%=rs("synet") %>"></span></font></b></td>
      </tr>
      <tr>
        <td height="22" valign="top">
        <font face="Verdana" style="font-size: 9pt">Beskrivelse:</font></td>
        <td height="22"><font face="Verdana"><span style="font-size: 9pt"><textarea rows="8" name="Beskrivelse" cols="40"><%=rs("Beskrivelse") %></textarea></span></font></td>
      </tr>
      <tr>
        <td height="22" valign="top"><font face="Verdana" style="font-size: 9pt">Billede 1:</font></td>
        <td height="22" valign="top"><font face="Verdana"><span style="font-size: 9pt"><INPUT TYPE="FILE" SIZE="35" NAME="FILE1"><br>
        </span><span style="font-size: 7pt">
        <!--webbot bot="HTMLMarkup" startspan --><%=rs("Billede 1") %><!--webbot bot="HTMLMarkup" endspan --></span></font></td>
      </tr>
      <tr>
        <td height="22" valign="top"><font face="Verdana" style="font-size: 9pt">Billede 2:</font></td>
        <td height="22" valign="top"><font face="Verdana"><span style="font-size: 9pt"><INPUT TYPE="FILE" SIZE="35" NAME="FILE2"><br>
        </span><span style="font-size: 7pt">
        <!--webbot bot="HTMLMarkup" startspan --><%=rs("Billede 2") %><!--webbot bot="HTMLMarkup" endspan --></span></font></td>
      </tr>
      <tr>
        <td height="22" valign="top"><font face="Verdana" style="font-size: 9pt">Billede 3:</font></td>
        <td height="22" valign="top"><font face="Verdana"><span style="font-size: 9pt"><INPUT TYPE="FILE" SIZE="35" NAME="FILE3"><br>
        </span><span style="font-size: 7pt">
        <!--webbot bot="HTMLMarkup" startspan --><%=rs("Billede 3") %><!--webbot bot="HTMLMarkup" endspan --></span></font></td>
      </tr>
      </table>
    </center>
  </div>
    <p align="center">
    <font face="Verdana"><span style="font-size: 9pt">
    <br>
      <span style="font-size: 8pt">
  <input type="submit" value="Gem" name="gem"></span> </span></font>
</p>
</form>
</b>
<font face="Verdana" style="font-size: 9pt">
<% end if %>
</font>
</body>

</html>
---------------------------------
De tre felter der skal kunne nulstilles er:
* billede 1
* billede 2
* billede 3

/Toke
Avatar billede tjaz Nybegynder
24. april 2004 - 00:38 #1
if request.form("felt1") = "" then
SQL = "Delete * FROM ark WHERE table = noget"
conn.execute(SQL)
end if

?
Avatar billede tjaz Nybegynder
24. april 2004 - 00:38 #2
eller er det mig der har misforstået noget?
Avatar billede pho2ke Nybegynder
24. april 2004 - 01:04 #3
forstår jeg det du skriver rigtigt??

Hvis felt1 er tom så slet det.... ?

Jeg er ikke så god til kode, men har fået hjælp til dette...

Det jeg mener er:
at indholdet af felterne billede 1, 2, 3 bliver vist under de tre upload felter... (sti og filnavn)
Hvis ikke det er de rigtige filer der er uploadet til den aktuelle post, kan man vælge at gemme en anden oven i, og på den måde slette filen.

Men hvis der ikke skal vises et billede til posten vil jeg gerne have muligheden for at tømme lige nøjagtig en bestemt post.. (en af de tre fil felter)

Håber at det hjalp på forståelsen
Avatar billede tjaz Nybegynder
24. april 2004 - 15:17 #4
så tror jeg at jeg har misforstået det :D .. sry
Avatar billede pho2ke Nybegynder
24. april 2004 - 15:32 #5
Er der så en anden der måske kan hjælpe?
Avatar billede pho2ke Nybegynder
30. maj 2004 - 23:57 #6
Lukker
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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