Avatar billede eqvaliser Nybegynder
31. december 2006 - 15:29 Der er 4 kommentarer og
1 løsning

Tilføje data til acces 2k db vha. sql.

bruger 2 filer..

inputnyhed.asp  (form hvor jeg skriver min sager)
ADDnyhed.asp    (som gerne skulle uploaded dataen fra
                  inputnyhed.asp til db)

Problemet ?  ukent..

får ingen fejl. eller lign..  hvis
jeg downloader databasen for at chekke om den nye data er
tilføjet er den ikke tilføjet.

så fejlen ligger nok i addnyhed..

databasen ser sådan ud..

DB -  nyhed.mdb

Tabel - Nyhed

ID - Autonummerering
Forfatter - tekst
Overskrift - tekst
Kilde - tekst
Dato - tekst
Nyhed - Notat

Og her er kilderne fra filerne,..

****** Inputnyhed.asp *************
<body>
<form name="form1" method="post" action="tilføjnyhed.asp">
  <table width="504" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td width="50" height="20"></td>
      <td width="53">&nbsp;</td>
      <td width="18">&nbsp;</td>
      <td width="179">&nbsp;</td>
      <td width="9">&nbsp;</td>
      <td width="159"></td>
      <td width="40"></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="4" valign="top">Forfatter :
        <input name="Forfatter" type="text" id="Forfatter"></td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="4" valign="top"> Overskrift :
        <input name="Overskrift" type="text" id="Overskrift" size="30"> </td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="4" valign="top">Kilde :
        <input type="text" name="textfield"></td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="5" valign="top">Dato :
        <input name="Dato" type="text" id="Dato" > &quot;brug evt&quot; <% Response.Write FormatDateTime(Now, vbLongDate) %></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="46"></td>
      <td valign="top">Nyhed:</td>
      <td colspan="4" rowspan="2" valign="top"><textarea name="Nyhed" cols="55" rows="8" id="Nyhed"></textarea></td>
      <td></td>
    </tr>
    <tr>
      <td height="109"></td>
      <td>&nbsp;</td>
      <td></td>
    </tr>
    <tr>
      <td height="59"></td>
      <td>&nbsp;</td>
      <td colspan="4" valign="top">Brug html kode til formatering og linie skift.
        <br> <em>Linie skift =</em> <strong>&lt;br&gt;</strong> ved slutningen
        af linierne.</td>
      <td></td>
    </tr>
    <tr>
      <td height="17"></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="33"></td>
      <td></td>
      <td>&nbsp;</td>
      <td valign="top"><input type="reset" name="Submit2" value="Reset"></td>
   
      <td>&nbsp;</td>
   
      <td valign="top"><input type="submit" name="Submit" value="Send"> </td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="37"></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
    </tr>
  </table>
</form>
</body>

******************************

**********Addnyhed.asp *************

  <%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open server.mappath("../../db/nyhed.mdb")
'her skal du så hente de data der skal hentes fra databasen... og derefter lukke forbindelsen igen


strSQL = "Insert into Nyhed (Forfatter) values('" & request.form("Forfatter") & "')"
strSQL = "Insert into Nyhed (Overskrift) values('" & request.form("Overskrift") & "')"
strSQL = "Insert into Nyhed (Kilde) values('" & request.form("kilde") & "')"
strSQL = "Insert into Nyhed (Dato) values('" & request.form("Dato") & "')"
strSQL = "Insert into Nyhed (Nyhed) values('" & request.form("Nyhed") & "')"



  conn.close
set conn=nothing
%>

************************************

er ved at sætte mig in i sql. så fatter ik så meget af det pt. :p
bær over med mig, sry for tabellerne,, ;)

hjælp'
Avatar billede eqvaliser Nybegynder
31. december 2006 - 15:44 #1
glemte foresten  Conn.Execute(strSQL)

i Addnyhed.asp  men er tilføjet nu.-
stadig intet.. .  :(
Avatar billede mitbrugernavn Praktikant
31. december 2006 - 15:46 #2
****** Inputnyhed.asp *************

i denne fil henviser du til tilføjnyhed.asp - men din fil hedder addnyhed.asp - så det retter du først
samt dit form felt ved kilde


<body>
<form name="form1" method="post" action="Addnyhed.asp">
  <table width="504" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td width="50" height="20"></td>
      <td width="53">&nbsp;</td>
      <td width="18">&nbsp;</td>
      <td width="179">&nbsp;</td>
      <td width="9">&nbsp;</td>
      <td width="159"></td>
      <td width="40"></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="4" valign="top">Forfatter :
        <input name="Forfatter" type="text" id="Forfatter"></td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="4" valign="top"> Overskrift :
        <input name="Overskrift" type="text" id="Overskrift" size="30"> </td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="4" valign="top">Kilde :
        <input type="text" name="kilde"></td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td colspan="5" valign="top">Dato :
        <input name="Dato" type="text" id="Dato" > &quot;brug evt&quot; <% Response.Write FormatDateTime(Now, vbLongDate) %></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="46"></td>
      <td valign="top">Nyhed:</td>
      <td colspan="4" rowspan="2" valign="top"><textarea name="Nyhed" cols="55" rows="8" id="Nyhed"></textarea></td>
      <td></td>
    </tr>
    <tr>
      <td height="109"></td>
      <td>&nbsp;</td>
      <td></td>
    </tr>
    <tr>
      <td height="59"></td>
      <td>&nbsp;</td>
      <td colspan="4" valign="top">Brug html kode til formatering og linie skift.
        <br> <em>Linie skift =</em> <strong>&lt;br&gt;</strong> ved slutningen
        af linierne.</td>
      <td></td>
    </tr>
    <tr>
      <td height="17"></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td height="33"></td>
      <td></td>
      <td>&nbsp;</td>
      <td valign="top"><input type="reset" name="Submit2" value="Reset"></td>
   
      <td>&nbsp;</td>
   
      <td valign="top"><input type="submit" name="Submit" value="Send"> </td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="37"></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
      <td></td>
    </tr>
  </table>
</form>
</body>

******************************

**********Addnyhed.asp *************
'her retter du din strSQL linie

  <%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open server.mappath("../../db/nyhed.mdb")


strSQL = "Insert into Nyhed (Forfatter,Overskrift,Kilde,Dato,Nyhed) values('" & request.form("Forfatter") & "','" & request.form("Overskrift") & "','" & request.form("kilde") & "','" & request.form("Dato") & "','" & request.form("Nyhed") & "')"
set rs = conn.execute(strSQL)



  conn.close
set conn=nothing
%>
Avatar billede eqvaliser Nybegynder
31. december 2006 - 15:55 #3
omg..  ahem..  pinligt..  lol  tak..
Avatar billede eqvaliser Nybegynder
31. december 2006 - 15:55 #4
ps. virker jo fint nu.. ;)
Avatar billede mitbrugernavn Praktikant
31. december 2006 - 16:00 #5
helt ok og godt nytår
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