Søg
Avatar billede izemate Nybegynder
23. marts 2003 - 21:23 Der er 10 kommentarer og
1 løsning

Gem data i access database...

Hejsa allesammen.

Jeg vil gerne have lavet en side der gemmer noget information i en access database..

Jeg for informationerne via

<%
Response.Write Request.Form("UploadDocument")
%>

og ønsker at det gemmes i en access database.
Det skal ske automatisk og gerne skrive  en besked. fx dine data er nu gemt!

det skal lige siges at jeg ikke er ret go til asp så hvis i ville være så venlige at uddybe jeres svar :)

håber der er en venlig sjæl derude...
Avatar billede izemate Nybegynder
23. marts 2003 - 21:25 #1
og Ja jeg har prøvet lektion 17 fra html.dk!!
Avatar billede jnissen Nybegynder
23. marts 2003 - 21:26 #2
Smider også lige et svar her :-)

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DB.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From tekst"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs("tekst") = Request.form("UploadDocument")
      rs.Update
    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

Denne kode kan du bruge hvis du vil redigere en side:

<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

SQL="UPDATE tekst SET "
SQL = SQL & "tekst='" & Request.form("UploadDocument") & "'"
SQL = SQL & " where ID =" & request("id")



'Response.write SQL
Set RS = Conn.Execute(SQL)
'response.redirect "opdateret.asp"
Response.write "siden er gemt."
%>
Avatar billede jnissen Nybegynder
23. marts 2003 - 21:26 #3
Hvis du vil have det uddybet, så bare spørg.
Avatar billede izemate Nybegynder
23. marts 2003 - 21:28 #4
Hva nu hvis jeg vil have den til at skrive.. Dataen er nu opdatere eller noget i det dur ?
Avatar billede jnissen Nybegynder
23. marts 2003 - 21:33 #5
Så retter du i denne: Response.write "siden er gemt."
Avatar billede izemate Nybegynder
23. marts 2003 - 21:43 #6
Jnissen du er en gutter mand :) det virker jo bare SUPER Takker..
Avatar billede jnissen Nybegynder
23. marts 2003 - 21:46 #7
Det var så lidt :-)
Hvis der er mere du er i tvilv om, så bare fyr løs :-)
Avatar billede izemate Nybegynder
23. marts 2003 - 22:15 #8
Ja der er faktisk :-)

jeg hiver det hele ud med denne kode

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")

strSQL = "SELECT TOP 10 * FROM tekst order by ID"
set rs = conn.execute(strSQL)

if not rs.eof then
do while not rs.eof
%>

<html>
<title>Test af cms</title>
<body bgcolor="#F5F5F5">
<table border="1" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="FFFFFF" width="500" >


<%= rs("tekst") %>
</td>
</tr>

<%
rs.movenext
loop
end if
%>

</table>
</body>
</html>

<%
conn.close
set conn = nothing
%>


---------

Kan man gøre sådan at den sortere sådan at den højeste id bliver vist ( alså det nyeste :) )
Avatar billede jnissen Nybegynder
23. marts 2003 - 22:21 #9
Ja det gør du sådan:
strSQL = "SELECT TOP 10 * FROM tekst order by ID DESC"
Avatar billede izemate Nybegynder
24. marts 2003 - 08:04 #10
hmm ja nu skrev jeg godt nok 10 men det skulle havde været 1 istedet :-) men problemet er at så tager den den ældste intastning og jeg ville gerne have det omvendte :-)
Avatar billede jnissen Nybegynder
24. marts 2003 - 17:55 #11
Så er det:
strSQL = "SELECT TOP 1 * FROM tekst order by ID ASC" som du skal bruge
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel Indlæg Oprettet Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver 2 16/01/202610:29 16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver 20 07/05/202520:51 10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver 7 06/03/202522:34 10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver 4 31/12/202423:10 01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver 14 11/12/202415:12 13/12/202415:40
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 10:19 Kan jeg beholde Publisher på min maskine efter at MS stopper med support Af KurtG i Office & Kontorpakker
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
White papers
Flere white papers »