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

Databaser & SQL

3 svar · 180 visningar · startad av ericc

Medlem sedan juni 200172 inlägg
Trådstart#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.

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
%>

246 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
123 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)