---
title: "Skriv ut tabeller"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88500-skriv-ut-tabeller"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2003-10-14T19:11:46.000Z"
updated: "2003-10-16T08:37:48.000Z"
replies: 5
views: 239
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/88500-skriv-ut-tabeller"
---

# Skriv ut tabeller

## #1 — Asa, 2003-10-14T19:11Z

Jag skulle vilja ha en kod som skriver ut alla tabeller som finns i en databas i en selectruta. Databasen är en MySQL databas. SKulle inte skada att ha en sådan kod till en accessdatabas oxå. 

Sen ska man kunna gå vidare å se alla fält i den tabellen man valt!

Nån som vill hjälpa mig?

Har sökt lite men vet inte riktigt vad jag ska söka på så jag hittade inget. :(

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

## #2 — peppar, 2003-10-14T20:04Z

<http://www.webforum.nu/showthread.php?s=&postid=312907#post312907> 
 :q  :)

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

## #3 — Asa, 2003-10-14T20:12Z

Den har jag kollat. Vill gärna ha mindre kod bara! Jag ska när jag valt i en selectruta få fram ett formulär med fältets namn i value!

I min databas finns bara 1 fält i de tabeller jag vill lista! Och MySQL vore bra...

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

## #4 — Asa, 2003-10-14T20:31Z

Så här har jag gjort. Nån som har anmärkning på koden så skriv:

```
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/users.mdb")

If Request.QueryString("action") = "" Then%>

<select name="tabell" onChange="self.location.href=this.options[this.selectedIndex].value;">
<option value=""> --- Välj tabell --- </option><br>
  <%Set RecSet = Conn.OpenSchema(20)
    Do while Not RecSet.EOF
      If Left(RecSet.Fields("TABLE_NAME"),4) <> "MSys" Then 
        Set RS = Conn.Execute("SELECT * FROM " & RecSet.Fields("TABLE_NAME"))
          If RS.Fields.Count = 1 Then
            Response.Write "<option value=""print.asp?table=" & RecSet.Fields("TABLE_NAME") & """>" & RecSet.Fields("TABLE_NAME") & "</option><br>" 
          End if
        RS.Close
      End If 
    RecSet.MoveNext
    Loop
  RecSet.Close%>
</select>
<br><br>
<%If Request.QueryString("table") <> "" Then
  Set RS = Conn.Execute("SELECT * FROM " & Request.QueryString("table"))
    For i = 0 to RS.Fields.Count - 1%>
      <form method="POST" action="?action=add&tbl=<%=Request.QueryString("table")%>&falt=<%=RS.Fields(i).Name%>">
        <b><%=RS.Fields(i).Name%></b><br>
        <input type="text" name="falt">
        <input type="submit" value="Lägg till">
      </form>
    <%Next
  RS.Close
End if

ElseIf Request.QueryString("action") = "add" Then
  Conn.Execute("Insert Into " & Request.QueryString("tbl") & "(" & Request.QueryString("tbl") & ") Values('" & Request.Form("falt") & "')")
  Response.Redirect "print.asp"
End if%>
```

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

## #5 — m_soderlund, 2003-10-16T08:33Z

Du kan använda dig av kod från [denna tråd](http://www.webforum.nu/showthread.php?s=&threadid=76928). Jag tror att det blir lite smidigare. :)

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

## #6 — Asa, 2003-10-16T08:37Z

Tackar, ska kolla på den!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88500-skriv-ut-tabeller