webForumDet fria alternativet

Hur får man ut information från en databas

Databaser & SQL

3 svar · 163 visningar · startad av ericc

Medlem sedan juni 200172 inlägg
Frågan#1

Hej, detta är ASP koden som sparar informationen i en Acess databas.

<%
Dim Con, SQL, Namn, Text, Epost
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DBQ=" & Server.MapPath("DATABASEN.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

Namn = Request.Form("Namn")
Texten = Request.Form("Texten")
Epost = Request.Form("Epost")

SQL = "Insert Into TABELLEN (Namn, Texten, Epost) "
SQL = SQL & " values( "
SQL = SQL & " '" & Namn & "', "
SQL = SQL & " '" & Texten & "', "
SQL = SQL & " '" & Epost & "') "
Con.Execute(SQL)

Con.Close
Set Con = Nothing
%>

<HTML>
<HEAD>
<TITLE>Test av formulär</TITLE>
</HEAD>
<BODY>
<CENTER>
<H2>Hej <%=Namn%>"</h2>
<B>Du har lämnat följande synpunkter</B>
<TABLE WIDTH = 50% BORDER = 0>
<TR>
<TD><%=Texten%></TD>
</TR>
</TABLE>
<BR>
<l>Vi kommer att beakta din synpunkter<BR> och svara dig via e-post <A HREF = "mailto:<%=Epost%>">(<%=Epost%> )</A>.</l>
</CENTER>
</BODY>
</HTML>

men hur får jag fram den informationen som har sparats i Acess databasen på websidan igen vid ett senare tillfälle.

[Redigerat av ericc den 12 jun 2001]

Medlem sedan juni 20012 236 inlägg
#2

När du sparar ner data i databasen så har du antagligen ett "id" framför varje tabell rad...eller.... Om inte så fixa ett med autonumrering.

Sedan kallar du på id't när du behöver hämta infon igen...

Om du inte fattar så skicka ett email så ska jag förklara närmare...

MvH

A

Medlem sedan feb. 20001 507 inlägg
#3

Detta inlägg passar bättre i ASP forumet.
Där kan du få den info du söker, det finns mycket om just detta.

------------------
Utan signatur för tillfället.

Medlem sedan feb. 2001390 inlägg
#4

Så här kan du göra:
[kod]
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open = "driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\jforum\webzonen\main\main.mdb"
SQL = "SELECT * FROM TABELLEN WHERE Namn = Namnet"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, databas, 3, 3
%>
<%
Do Until RS.EOF
%>
Här skriver du kod som du vill ha
<% RS.MoveNext
Loop
RS.Close
Databas.Close
Set RS = nothing
Set Databas = nothing
%>

------------------
Rom byggdes inte på en dag - det tog en halv

267 ms totalt · 4 externa anrop · v20260731065814-full.bd618308
131 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)