Notifikationer

Markér alle som læst Log ud

caroc Praktikant

30. januar 2006 - 16:29 Der er 7 kommentarer

Data til access

Hej.

Jeg har brug for et meget simpelt script der skal kunne overfoere data til en access db.
Det er bare 2 forms - den foerste bare med en linje og den anden som en textbox.

Den foerste skal sende til "Name" i en tabel der hedder Galleri
Den anden skal sende til "Des" i en tabel der hedder Galleri

Db'en hedder saloon.mdb

Haaber i kan hjaelpe..

/Caroc

Synes godt om

Slettet bruger

30. januar 2006 - 16:48 #1

Jamen det kan man da! Prøv nedenstående kode:
<%
Dim rsSave
set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("saloon.mdb") rsSave.open "Galleri", strDSN, 2, 3, &H0002
rsSave.addnew
rsSave("Name") = Request.Form("Name")
rsSave("Des") = Request.Form("Des")
rsSave.close
set rsSave=nothing
%>

- Meget mere simpelt kan det her ikke være, tror jeg ikke...
Dette her forudsætter selvfølgelig at dine form-felter hedder det samme som kollonnerne i tabellen...

\Dan

Synes godt om

caroc Praktikant

30. januar 2006 - 17:02 #2

super mange tak.. For at vaere til mere besvear kan du saa ikke ogsaa lave siden med forms. Sidder ved en fremmed computer og har ikke lige mulighed for at skrive koden da jeg ikke kan huske den i hovedet..

Synes godt om

Slettet bruger

30. januar 2006 - 17:23 #3

Jo da!
<html>
<body>
<form acrion="save.asp" method="post">
<input type="text" size="20" name="Name">
<br>
<input type="text" size="20" name="Des">
<br>
<input type="submit" value="Gem" name="gem">
</form>
</body>
</html>

- Dette forudsætter selvfølgelig at asp-filen som gemmer hedder "save.asp"...

\Dan

Synes godt om

caroc Praktikant

30. januar 2006 - 17:26 #4

har regnet det ud selv nu :)
Men faar denne fejl:
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/test/final/weekupload.asp, line 4

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/saloon.mdb") rsSave.open "Galleri", strDSN, 2, 3, &H0002
--------------------------------------------------------------------------------------------^

Synes godt om

Slettet bruger

30. januar 2006 - 17:28 #5

OK! Scriptet skal se således ud:
<%
Dim rsSave
set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("saloon.mdb")
rsSave.open "Galleri", strDSN, 2, 3, &H0002
rsSave.addnew
rsSave("Name") = Request.Form("Name")
rsSave("Des") = Request.Form("Des")
rsSave.update
rsSave.close
set rsSave=nothing
%>
glemte lige en "updater"...

\Dan

Synes godt om

caroc Praktikant

31. januar 2007 - 00:41 #6

bedre sent end aldrig - men smider du et svar?

Synes godt om

caroc Praktikant

09. oktober 2007 - 17:36 #7

ellers lukker jeg selv 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