Avatar billede tzag_dk Nybegynder
15. januar 2003 - 11:30 Der er 11 kommentarer og
1 løsning

Dropdownbox skal skrive til db

Hej.

Håber at der er nogen som kan hjlæpe mig.
Jeg sidder med et problem som jeg ikke kan løse :-(

Jeg har en dropdownbox, med felterne "Lager", "Rest." og "Udgået".
Fx. når man klikker på "Lager", så skal den overskrive 2 værdier i databasen, som hedder "Status" og "Farve".
Og det samme med "Rest." og "Udgået".

Her er koden for salg.asp:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb")
SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;"

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>

<html>
<head>
<script language=\"JavaScript\">
function navigate() {
    loc = document.navigate.location.selectedIndex;
    locval = document.navigate.loacation[loc].value;
    if (locval ==\"x\") return;
    window.location = locval + \".html\";
}
</script>

<script language=\"JavaScript\">
<!--
<!--
function jumppage(sel) {
  var i = sel.selectedIndex
  if (i!=0) { top.location.href = sel.options[i].value }
}
// -->

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<!--#include file="title.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF">
<!--#include file="top.asp"-->
<!--#include file="top_produkter.asp"-->
<br>
<br>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
  <tr align="left" valign="top">
    <td height="18" width="9%">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div>
    </td>
    <td width="8%" height="18">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare
        navn</font></div>
    </td>
    <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare
      beskrivelse</font></td>
    <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td>
    <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td>
    <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td>
    <td height="18" colspan="2">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div>
    </td>
    <%
DO WHILE NOT rs.EOF
Stregkode = rs("Stregkode")
VareNavn = rs("VareNavn")
VareBeskrivelse = rs("VareBeskrivelse")
Antal = rs("Antal")
Netto = rs("Netto")
Brutto = rs("Brutto")
Status = rs("Status")
Farve = rs("Farve")
%>
  </tr>
  <tr>
    <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td>
    <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td>
    <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td>
    <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td>
    <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td>
    <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td>
    <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%>
      </font></b></td>
    <td width="12%" align="left" valign="top">
      <form name="form1">
        <select name="select" onChange="MM_jumpMenu('parent',this,0)">
          <option selected></option>
          <option>Lager</option>
          <option>Rest.</option>
          <option>Udgået</option>
        </select>
      </form>
    </td>
  </tr>
  <%
rs.MoveNext
LOOP
RS.Close
Response.Write ""

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</table>
</body>
</html>
Avatar billede gigaload Nybegynder
15. januar 2003 - 11:44 #1
Du skal først og fremmest give dien option en value:

<option value="lager">Lager</option>
<option value="rest">Rest.</option>
<option value="usgået">Udgået</option>

og fortælle hvor din form skal gå hen:

<form name="form1" action="" method="post">

og så kan du jo lave en upload...
Avatar billede tzag_dk Nybegynder
15. januar 2003 - 11:49 #2
ok... Så er det med, men jeg mangler stadigvæk en del :-(
Jeg har simpelhent set mig blind på det.

Kan du hjælpe mig noget mere?
Avatar billede gigaload Nybegynder
15. januar 2003 - 11:56 #3
hvordan ser din kode nu ud?
Avatar billede tzag_dk Nybegynder
15. januar 2003 - 12:20 #4
Her er siden salg.asp:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb")
SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;"

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>

<html>
<head>
<script language=\"JavaScript\">
function navigate() {
    loc = document.navigate.location.selectedIndex;
    locval = document.navigate.loacation[loc].value;
    if (locval ==\"x\") return;
    window.location = locval + \".html\";
}
</script>

<script language=\"JavaScript\">
<!--
<!--
function jumppage(sel) {
  var i = sel.selectedIndex
  if (i!=0) { top.location.href = sel.options[i].value }
}
// -->

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<!--#include file="title.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF">
<!--#include file="top.asp"-->
<!--#include file="top_produkter.asp"-->
<br>
<br>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
  <tr align="left" valign="top">
    <td height="18" width="9%">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div>
    </td>
    <td width="8%" height="18">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare
        navn</font></div>
    </td>
    <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare
      beskrivelse</font></td>
    <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td>
    <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td>
    <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td>
    <td height="18" colspan="2">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div>
    </td>
    <%
DO WHILE NOT rs.EOF
Stregkode = rs("Stregkode")
VareNavn = rs("VareNavn")
VareBeskrivelse = rs("VareBeskrivelse")
Antal = rs("Antal")
Netto = rs("Netto")
Brutto = rs("Brutto")
Status = rs("Status")
Farve = rs("Farve")
%>
  </tr>
  <tr>
    <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td>
    <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td>
    <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td>
    <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td>
    <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td>
    <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td>
    <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%>
      </font></b></td>
    <td width="12%" align="left" valign="top">
      <form name="form1" action="" method="post">
        <select name="select" onChange="MM_jumpMenu('parent',this,0)">
          <option selected></option>
          <option value="lager">Lager</option>
          <option value="rest">Rest.</option>
          <option value="udgaet">Udgået</option>
        </select>
      </form>
    </td>
  </tr>
  <%
rs.MoveNext
LOOP
RS.Close
Response.Write ""

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</table>
</body>
</html>
Avatar billede gigaload Nybegynder
15. januar 2003 - 12:27 #5
er der forskel på de data som de 3 values lægger ind i databasen...?
Avatar billede tzag_dk Nybegynder
15. januar 2003 - 12:37 #6
Jeg tror at jeg ved hvad du mener.



drobdownbox:                       
------------
Lager        ---> skriver "Lager" & "#009900" til db
Rest.        ---> skriver "Rest." & "#009900" til db
Udgået      ---> skriver "Udgået" & "#FFCC00" til db
Avatar billede gigaload Nybegynder
15. januar 2003 - 12:47 #7
Nu skulle den vist være der...


<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb")
SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;"

Set rs = conn.Execute(SQLstmt)

update = request("update")

If update = 1 Then

    Dim status, value, farver
   
    value = Request.Form("select")

    If value = "lager" Then
    status = "Lager"
    farver = "#009900"
    End If

    If value = "rest" Then
    status = "Rest"
    farver = "#009900"
    End If
   
    If value = "udgået" Then
    status = "Udgået"
    farver = "#FFCC00"
    End If

    SQLupdate = "UPDATE VareBeskrivelse SET Status='" & status & "', Farve =" & farver
    Conn.Execute(SQLupdate)
End If
%>
<html>
<head>
<script language=\"JavaScript\">
function navigate() {
    loc = document.navigate.location.selectedIndex;
    locval = document.navigate.loacation[loc].value;
    if (locval ==\"x\") return;
    window.location = locval + \".html\";
}
</script>

<script language=\"JavaScript\">
<!--
<!--
function jumppage(sel) {
  var i = sel.selectedIndex
  if (i!=0) { top.location.href = sel.options[i].value }
}
// -->

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<!--#include file="title.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF">
<!--#include file="top.asp"-->
<!--#include file="top_produkter.asp"-->
<br>
<br>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
  <tr align="left" valign="top">
    <td height="18" width="9%">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div>
    </td>
    <td width="8%" height="18">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare
        navn</font></div>
    </td>
    <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare
      beskrivelse</font></td>
    <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td>
    <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td>
    <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td>
    <td height="18" colspan="2">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div>
    </td>
    <%
DO WHILE NOT rs.EOF
Stregkode = rs("Stregkode")
VareNavn = rs("VareNavn")
VareBeskrivelse = rs("VareBeskrivelse")
Antal = rs("Antal")
Netto = rs("Netto")
Brutto = rs("Brutto")
Status = rs("Status")
Farve = rs("Farve")
%>
  </tr>
  <tr>
    <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td>
    <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td>
    <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td>
    <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td>
    <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td>
    <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td>
    <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%>
      </font></b></td>
    <td width="12%" align="left" valign="top">
      <form name="form1" action="salg.asp?update=1" method="post">
        <select name="select" onChange="MM_jumpMenu('parent',this,0)">
          <option selected></option>
          <option value="lager">Lager</option>
          <option value="rest">Rest.</option>
          <option value="udgået">Udgået</option>
        </select>
      </form>
    </td>
  </tr>
  <%
rs.MoveNext
LOOP
RS.Close
Response.Write ""

conn.Close
Set conn = nothing
%>
</table>
</body>
</html>
Avatar billede gigaload Nybegynder
15. januar 2003 - 12:48 #8
en lille update mere...


<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../data.mdb")
SQLstmt = "SELECT * FROM Salg ORDER BY VareBeskrivelse desc;"

Set rs = conn.Execute(SQLstmt)

update = request("update")

If update = 1 Then

    Dim status, value, farver
   
    value = Request.Form("select")

    If value = "lager" Then
    status = "Lager"
    farver = "#009900"
    End If

    If value = "rest" Then
    status = "Rest"
    farver = "#009900"
    End If
   
    If value = "udgået" Then
    status = "Udgået"
    farver = "#FFCC00"
    End If

    SQLupdate = "UPDATE VareBeskrivelse SET Status='" & status & "', Farve =" & farver
    Conn.Execute(SQLupdate)
    Response.Redirect(salg.asp)
End If
%>
<html>
<head>
<script language=\"JavaScript\">
function navigate() {
    loc = document.navigate.location.selectedIndex;
    locval = document.navigate.loacation[loc].value;
    if (locval ==\"x\") return;
    window.location = locval + \".html\";
}
</script>

<script language=\"JavaScript\">
<!--
<!--
function jumppage(sel) {
  var i = sel.selectedIndex
  if (i!=0) { top.location.href = sel.options[i].value }
}
// -->

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<!--#include file="title.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body link="#FFFFFF" text="#FFFFFF" background="../images/bg_21.jpg" vlink="#FFFFFF" alink="#FFFFFF">
<!--#include file="top.asp"-->
<!--#include file="top_produkter.asp"-->
<br>
<br>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
  <tr align="left" valign="top">
    <td height="18" width="9%">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Stregkode</font></div>
    </td>
    <td width="8%" height="18">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Vare
        navn</font></div>
    </td>
    <td width="45%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Vare
      beskrivelse</font></td>
    <td width="5%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Antal</font></td>
    <td width="6%" height="18"><font color="#CCCCCC" face="Arial, Helvetica, sans-serif" size="2">Netto</font></td>
    <td width="7%" height="18"><font face="Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Brutto</font></td>
    <td height="18" colspan="2">
      <div align="left"><font color="#CCCCCC" size="2" face="Arial, Helvetica, sans-serif">Status</font></div>
    </td>
    <%
DO WHILE NOT rs.EOF
Stregkode = rs("Stregkode")
VareNavn = rs("VareNavn")
VareBeskrivelse = rs("VareBeskrivelse")
Antal = rs("Antal")
Netto = rs("Netto")
Brutto = rs("Brutto")
Status = rs("Status")
Farve = rs("Farve")
%>
  </tr>
  <tr>
    <td width="9%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Stregkode%></font></td>
    <td width="8%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareNavn%></font></td>
    <td width="45%"><font face="Tahoma" size="2" color="#FFFFFF"><%=VareBeskrivelse%></font></td>
    <td width="5%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Antal%></font></td>
    <td width="6%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Netto%></font></td>
    <td width="7%"><font face="Tahoma" size="2" color="#FFFFFF"><%=Brutto%></font></td>
    <td width="8%"> <b><font face="Tahoma" size="2" color="<%=Farve%>"><%=Status%>
      </font></b></td>
    <td width="12%" align="left" valign="top">
      <form name="form1" action="salg.asp?update=1" method="post">
        <select name="select" onChange="MM_jumpMenu('parent',this,0)">
          <option selected></option>
          <option value="lager">Lager</option>
          <option value="rest">Rest.</option>
          <option value="udgået">Udgået</option>
        </select>
      </form>
    </td>
  </tr>
  <%
rs.MoveNext
LOOP
RS.Close
Response.Write ""

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</table>
</body>
</html>
Avatar billede tzag_dk Nybegynder
15. januar 2003 - 13:25 #9
Hej igen... Var lige ude og spise.

Den Laver en fejl..

Linje: 81
Et objekt var ventet
Avatar billede tzag_dk Nybegynder
15. januar 2003 - 13:29 #10
Her er linket til siden...
http://www.hovgaards.dk/kunder/topflightsalg/administration/salg.asp

Har du ikke evt. et nummer jeg kan ringe til?
Avatar billede gigaload Nybegynder
15. januar 2003 - 13:35 #11
kenneth@gigaload.dk

Jeg bliver nødt til at gå nu... skal på arbejde, men send mig en mail, med filen, så sender retter jeg det når jeg kommer hjem...
Avatar billede tzag_dk Nybegynder
16. december 2003 - 00:56 #12
LUKKER...

Har ikke været her i længe, så tror ikke at der er nogle der svare på det her længere :-) hehe
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