CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jabp Nybegynder

09. april 2000 - 21:48 Der er 4 kommentarer og
2 løsninger

Hjælp med Database

Hej jeg er nybegynder med ASP og access database.
Så er der ikke en der kan lave et eksempel på hvordan man får indsat noget i en database.

Altså fra en form til en database, og en side hvor database indholdet bliver vist.

Synes godt om

ares Nybegynder

09. april 2000 - 22:26 #1

Først lidt om hvordan man trække data ud af en Db(databasen).

Forbindelse til Access db

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

SQL="Select * from tablenavn"
Set Rs=Conn.Execute(SQL)
%>

efter at man har skabt en forbindelsen ovenfor kan man trække data ud ved at skrive

<% =rs("tabelNavn") %>

eller

<% Response.Write " "& rs("tabelNavn") &" "

Hvis man skal putte data i en tabel gøres det f.eks. ved at bruge en ande SQL-sætning

SQL = "INSERT INTO TabelNavn (VariableNavn ) values ('" & Request("overskrift")& "')"
conn.execute (SQL)

Når man er færdig med sin Db-forbindelse skal den lukkes.

<%Rs.close
Set Rs= Nothing
Conn.Close
set Conn=nothing%>

Dette er kun en lille intro til ASP og db - du kan finde mere herpå eksperten eller på http://www.activeserverpages.dk

eller nogle af de mange andre sider om emnet. Bøger kan anbefales:

Wrox serien.

http://www.wrox.co.uk/

MVH

Ares

Synes godt om

pfm Nybegynder

10. april 2000 - 11:57 #2

Hvis jeg har 4 felter i en form: Lokalitet, Vej, Nr, Postnr jeg gerne vil have i en DB (nu bruger jeg SQL, så der kan være en lille forskel nogle steder i forhold til Access, har jeg hørt). I form'en submitter jeg til en action side... f.eks:
<form ACTION="lokalitet_action.asp" target="_self" method="POST" onsubmit="return Form1_Validator(this)" name="Form1">
Min lokalitet_action.asp -side vil oprette en ny record i tabellen lokaliteter.

<%@ Language=VBScript %>
'Her skal du bruge dine egne connection-linier

<%
nysql = "INSERT INTO lokaliteter (Lokalitet, Vej, Nr, Postnr) "
nysql = nysql & "VALUES("'" & Request.Form ("Lokalitet") & "', "
nysql = nysql & "'" & Request.Form ("Vej") & "', "
nysql = nysql & "'" & Request.Form ("Nr") & "', "
nysql = nysql & "'" & Request.Form ("Postnr") & "')"
conn.Execute(nysql)
%>

<HTML>
<HEAD>
</HEAD>
<BODY>
<center><font FACE="Arial, Verdana, Helvetica" SIZE="5" color="#FF0000"><P>Opdatéring.... </P>
<div align="center"><%=Request.Form ("Lokalitet")%></div> <p>Et øjeblik !!</p>
</font></center>
<script LANGUAGE="JavaScript"></script>

</BODY>
</HTML>
'Her skal du selv lukke din connection


Jeg håber dette hjalp lidt!
PFM

Synes godt om

pfm Nybegynder

10. april 2000 - 12:16 #3

Hvis det man ønsker indsat i tabellen er tekst skal variablen være indkabslet som her '"&variablen&"' (single quotes og double quotes).
nysql = nysql & "'" & Request.Form ("Postnr") & "')"
'sæt strengen nysql = det der allerede er i nysql + denne streng " med denne streng-variable '" & variablen & "' og slut denne streng VALUES streng )"
Hvis nu Postnr-feltet er numerisk skulle linien for indsættelse af Postnr se således ud:
nysql = nysql & Request.Form ("Postnr") & ")"
Der er selvfølgelig også den mulighed at skrive det hele i én linie, men det gør det besværligt at læse ved mange data, der skal lægges i database

nysql = "INSERT INTO lokaliteter (Lokalitet, Vej, Nr, Postnr) VALUES("'" & Request.Form ("Lokalitet") & "', '" & Request.Form ("Vej") & "', '" & Request.Form ("Nr") & "', '" & Request.Form ("Postnr") & "')"
conn.Execute(nysql)
'Dette er ikke afprøvet - så der kan være et par kommafejl eller quote-fejl ;o)

Synes godt om

pfm Nybegynder

10. april 2000 - 13:34 #4

Jeg har fundet dette til dig fra www.activeserverpages.dk
En zipfil der har eksempler på opret/ret/slet i database. Access db medfølger!
http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=83

Synes godt om

pfm Nybegynder

10. april 2000 - 14:17 #5

Nåh ja, jeg glemte hvordan db-indholdet bliver vist:
Husk du skal have denne linie øverst i dinne asp-sider
<%@ Language=VBScript %>

'åben din connection

'find poster i basen
sql= "SELECT * FROM lokaliteter
Set rst = Server.CreateObject("ADODB.RecordSet")
rst.Open sql, conn

'Vis dine data i en tabel
<table width="376" border="1" cellspacing="0">
'Tabel overskrifter!
<tr>
<td width="5%" ALIGN="center">
<p align="center"><b><font size="2" FACE="Arial, Verdana, Helvetica">  </font></b></p>
</td>
<td width="250">
<p align="left"><font face="Arial, Verdana, Helvetica" size="2">Lokalitet</font></td>
<td width="3">
<p align="right"> </td>
<td width="50">
<p align="center"><font FACE="Arial, Verdana, Helvetica" SIZE="2"> Adresse</font></td>
<td width="3">
<p align="right"> </td>
<td width="70">
<p align="center"><font FACE="Arial, Verdana, Helvetica" SIZE="2"> Postnr/By</font></td>
</tr>
<%
'bliv ved med at liste data i tabelen så længe der er data i basen
do while not rst.EOF
%>
<tr>
<td ALIGN="center">
<p align="center"><a href="ret_lokalitet.asp?lokid=<%=rst("lokid")%>"><img border="0" src="../images/LeafEarth.gif" alt="Ret lokalitet" width="16" height="16"></a></p>
</td>
<td nowrap><font FACE="Arial, Verdana, Helvetica" SIZE="2"><%=rst("Lokalitet")%></font></td>
<td>
<p align="right"> </td>
<td nowrap><font FACE="Arial, Verdana, Helvetica" SIZE="2"><%=rst("Vej")%> <%=rst("Nr")%></font></td>
<td>
<p align="right"> </td>
<td nowrap><font FACE="Arial, Verdana, Helvetica" SIZE="2"><%=rst("Postnr")%></font></td>
</tr>
<%
rst.MoveNext
loop
%>
</table></div></center>
<%
rst.close
set rst=nothing
%>

Synes godt om

pfm Nybegynder

10. april 2000 - 14:33 #6

Ovenstående eksempel har ud fra hver linie et lille ikon-billede som reffererer til en rettelses side for den pågældende. Her er lokid'et meget vigtig.
Med lokid kan du entydigt finde det pågældende lokalitet og derved vise dataene i en form som man kan rette i. Eks.
<input TYPE="text" SIZE="25" NAME="Lokalitet" TABINDEX="2" maxlength="50" value="<%=rst("Lokalitet")%>">

Inden du kan vise felterne skal du selvfølgelig have connectet til basen og fundet det pågældende lokalitet:
'åben din connection

'få fat i det pågældende lokalitets id fra linken
lokID=Request.QueryString ("lokid")

'find poster i basen
sql= "SELECT * FROM lokaliteter WHERE lokid="&lokid
Set rst conn.Execute(sql)

'Herefter vises formen med base-data.....

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

19/04

Nørgaard; Opskriften på at få store projekter til at lykkes...lad være!

18/04

AI-lab #2: Sådan får du fuld udnyttelse af Microsoft Office med nem programmering - og lær om super-prompts

18/04

Bliv it-driftsdirektør hos Metro Service eller bidrag til PET’s offensive operatinoer: Her er 10 ledige stillinger, som du kan søge i påsken

18/04

På uventet eventyr i det ydre rum: Ved en fejl bliver en dreng jordklodens repræsentant

17/04

Hvordan skaber vi en mere menneskevenlig digital fremtid? Få nogle bud her

17/04

Kritisk CVE-databasen om sikkerhed reddet i allersidste øjeblik - ny bevilling godkendt

16/04

Netcompany-stifterne André Rogaczewski og Claus Bo Jørgensen skovler penge ind: Har tjent næsten 600 millioner kroner på et år

16/04

Prøvekørt: Der er mange gode grunde til at kalde BMW i5 for den bedste el-stationcar til dato

16/04

Sådan modererer Mads og 20 andre danskere alt indhold på Metas danske platforme fra et center i Barcelona

16/04

Jeg købte tømmermands-pizza for alle mine bitcoins og gik glip af en formue: Nu overvejer jeg at gå all-in igen

16/04

Ny fond haste-etableret: Vil forsøge at redde sårbarhedsdatabasen CVE fra nedlukning

Vis flere artikler

IT-JOB

Capgemini Danmark A/S

Senior SAP S/4HANA Finance Consultant

Thursday Consulting P/S

Technology - IT & Arkitektur Konsulent

Godske Group A/S

Erfaren ERP-specialist søges til Godske Groups IT-team

SDC A/S

Team Leader - Core Banking

Politiets Efterretningstjeneste

Bliv sektionsleder for PET's Brugersupport i IT-sektoren

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 10:42	iPhone låst Af Jemo i Mobiltelefoner
I går 16:53	Mac book pro fra 2019-2023 Af BRJ i Mac
I går 16:25	Vedr. Mozilla Thunderbird email program Af Arne-Beck Christensen i E-mail programmer
I går 16:18	"Jesus Chirst Superstar" - Original version på dansk. Af Ikke-ekspert i Fri debat
I går 12:55	Fjern løsesymbol fra tænd/sluk Af arnel i Skærme