---
title: "hamta = \"SELECT * FROM mess WHERE visa=ja\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13824-hamta-select-from-mess-where-visa-ja"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hulth"
published: "2002-01-16T12:27:00.000Z"
updated: "2002-01-17T12:00:00.000Z"
replies: 4
views: 189
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/13824-hamta-select-from-mess-where-visa-ja"
---

# hamta = "SELECT * FROM mess WHERE visa=ja"

## #1 — Hulth, 2002-01-16T12:27Z

Hur får man det att fungera.. hela connect-koden också..

databasen heter mess.mdb..

tack på förhand.

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

## #2 — LarsG, 2002-01-16T13:10Z

```
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Provider = "Microsoft.Jet.OLEDB.4.0"
Connection.ConnectionString = "Data Source=" & Server.MapPath("mess.mdb")
Connection.Open
set rs = connection.execute("SELECT * FROM mess WHERE visa='ja'")
while not rs.eof
  response.write rs("mess") & "<br>"
  rs.movenext
wend
rs.close
connection.close
```

Du måste kanske ändra

```
Server.MapPath("mess.mdb")
```

beroende på var din databas ligger.

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

## #3 — icaaq, 2002-01-16T13:10Z

```
set objConn = server.createobject("adodb.connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mess.mdb")&""
strSQL = "SELECT * FROM mess WHERE visa = 'ja'"
Set objRS = objConn(strSQL)
If objRS.EOF Then
'Det fanns inga poster
Else
Do until objRS.EOF
'Skriv ut posterna
objRS.Movenext
Loop
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
```

Detta är en access koppling, hoppas den funkar :)

mvh icaaq

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

## #4 — Hulth, 2002-01-17T11:57Z

Jag löste det på ett annat sätt..

Jag ändrade datatypen i fältet visa till Ja/Nej och sedan:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/mess.mdb")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

visaja = "SELECT * FROM mess WHERE visa=true"
RecSet.Open visaja, Connect, AdOpenStatic

If RecSet.EOF Then
Response.Write "Inga mess"
Else
Do Until RecSet.EOF
' massa kod för utskrivning
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close

Set RecSet = Nothing
Set Connect = Nothing
%>
```

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

## #5 — Jacek, 2002-01-17T12:00Z

Ett tips..

Ändra Connect till Conn, slipper du skriva lika mycket! =)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13824-hamta-select-from-mess-where-visa-ja