---
title: "Visa information från databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/105541-visa-information-från-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredrik.an"
published: "2004-06-12T10:13:56.000Z"
updated: "2004-06-16T19:04:49.000Z"
replies: 7
views: 271
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/105541-visa-information-från-databas"
---

# Visa information från databas

## #1 — Fredrik.an, 2004-06-12T10:13Z

Jag håller på att lära mig asp, och det vill sig inte riktigt... Jag har skapat en databas som heter db. Sen ska jag hämta ut information ifrån den, men det vill inte riktigt funka...

Vad rä felet?

```
<!-- #include file="adovbs.inc" -->

<HTML>

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=db.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Hamta = "SELECT * FROM bok WHERE ID = 1 "
RecSet.Open Hamta, Connect, adOpenStatic, adLockOptimistic %>

<% =RecSet("bok1") %> <% =RecSet("ar") %><BR>

<% RecSet.Close %>
<% Connect.Close %>

</HTML>
```

Permalänk: https://www.webforum.nu/p/105541

## #2 — m_soderlund, 2004-06-12T10:22Z

Men.. det där ser rätt ut. Du kan dock skippa några \<% och %\>-tecken.

```
<% =RecSet("bok1") %> <% =RecSet("ar") %>
```

 kan skrivas

```
<% Response.Write RecSet("bok1") & " " & RecSet("ar") %>
```

 i stället, och 

```
<% RecSet.Close %>
<% Connect.Close %>
```

ska vara

```
<% RecSet.Close : Set RecSet = Nothing
Connect.Close : Set Connect = Nothing %>
```

Dessutom har du glömt lite HTML-taggar som ska finnas på en giltig HTML-sida.

Får du något felmeddelande?

PS. ASP är inte bra att lära sig nu, lär dig ASP.NET i stället. DS.

Permalänk: https://www.webforum.nu/p/1367930

## #3 — K@llen, 2004-06-12T10:25Z

Webstudioskolan?

Jag skule vilja rekommendera dig att skriva så här:

```
<HTML>

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=db.mdb"

Hamta = "SELECT bok1, ar FROM bok WHERE ID = 1 "
set RecSet = Connect.execute(Hamta)

response.write RecSet("bok1") & RecSet("ar") & "<br />"

<% 
RecSet.Close() 
set RecSet = nothing
Connect.Close() 
set Connect = nothing
%>

</HTML>
```

Vad får du för felmeddelande?

Permalänk: https://www.webforum.nu/p/1367932

## #4 — Fredrik.an, 2004-06-12T10:51Z

Funkar ju ändå inte...
Grejejn är att jag får inte upp något felmeddelande...

Permalänk: https://www.webforum.nu/p/1367958

## #5 — K@llen, 2004-06-12T11:21Z

Två frågor:

Har du vänliga felmeddelande på i din webbläsare?
Kör du ASP på en linuxserver?

Permalänk: https://www.webforum.nu/p/1367981

## #6 — Josef, 2004-06-12T11:35Z

Jag skulle skriva koden på detta sätt: 

```
<HTML>

<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")

Hamta = "SELECT * FROM bok WHERE ID = 1 "
RecSet.Open Hamta, Connect, 1,2

Response.Write(RecSet("bok1") & " " & RecSet("ar") & "<br>")

RecSet.Close : Set RecSet = Nothing
Connect.Close : Set Connect = Nothing
%>
</HTML>
```

Dock tycker jag att du inte ska använda *ADODB.RecordSet* på det sättet. Gör så här istället: 

```
Set RecSet = Connect.Execute(Hamta)
```

Och flytta *Hamta* till innan den raden.

Permalänk: https://www.webforum.nu/p/1367988

## #7 — WebbisNet, 2004-06-16T18:55Z

varför inte ha kopplingen i en fil och bara hämta med \<%rs=objConn.execute("select \* from tabell")%\>
och sen skriva ut med \<%=rs("kolumnnamn")%\>

Min koppling är

```
<%
Function connect()
	Dim objConn
	Set objConn = Server.CreateObject("ADODB.Connection") 
	objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("/min databas.mdb") & ";"
	Set connect = objConn
End Function

set objConn = Connect()
%>
```

Jag inkluderar filen och kör med ovanstående, ren  och fin kod

Permalänk: https://www.webforum.nu/p/1368127

## #8 — Josef, 2004-06-16T19:04Z

```
<%
Function OpenConnection()
     Dim objConn : Set objConn = Server.CreateObject("adodb.Connection")
     objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("[i]databas.mdb[/i]")
End Function

Function CloseConnection()
     objConn.Close : Set objConn = Nothing
End Function
%>
```

Och sedan bara skriva *Set objRs = objConn.Execute("sql-sträng")* är isåfall snyggare (enligt mig).

Permalänk: https://www.webforum.nu/p/1368136

---

Tråden på webben: https://www.webforum.nu/amne/asp/105541-visa-information-från-databas