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	0	07/11/202415:34	-
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

27/12

Ny leverandør har netop underskrevet kontrakt med Kombit om kæmpe dansk bibliotekssystem

27/12

Test: Endelig en videodørklokke i smart indpakning og performance, der matcher

27/12

Nørgaard: Her er vinderen af Mogens-prisen 2024 - tak for elendig service

27/12

Apple i gang med at udvikle en smart dørklokke – som kan låse din dør op med FaceID

27/12

M365 Copilot kan blive hurtigere og billigere: Microsoft åbner for alternativer til OpenAI

27/12

Stort flyselskab lammet af jule-cyberangreb: 40 procent af afgangene blev ramt

27/12

Ny europæiske supercomputer med 14.000 GPU’er sætter danske Gefion til vægs: Skal bruges til at udvinde kulsort energi

27/12

Nye skatteregler for kryptovaluta udskydes: Vil påvirke 300.000 danskere

27/12

Sådan bekæmper ledere digital stress

27/12

Den danske ungdom ser intet formål i at arbejde med it

27/12

Amazon må udskyde plan om at få de ansatte tilbage på kontoret: Har ikke plads til dem

Vis flere artikler

IT-JOB

Jyske Bank

RPA- og softwareudvikler til Kernebank

Scan Global Logistics

IT-Supporter til globalt og dynamisk miljø

Saphe A/S

Quality Assurance Engineer

NOVAX A/S

Arkiveringskonsulent

Scandlines

IT Operations Team Lead

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 17:57	Fortnite virker ikke Af sof_n08 i PC
I dag 12:59	23H2 til 24H2 Af valby i Windows
I dag 12:32	Yahoo logo på browserlinjen Af nu_igen i Browsere
I går 07:53	Kan jeg lave en "søg og erstat" i databasen Af a3-seo.dk i MySQL
27/1211:30	Ændre det aller første billed, man ser ? Før man skriver koden (Windows 11) ... Af Ikke-ekspert i Windows