--- title: "Tabeller?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/78621-tabeller" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "tomas21" published: "2003-06-01T10:16:34.000Z" updated: "2003-06-02T17:01:47.000Z" replies: 16 views: 477 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/78621-tabeller" --- # Tabeller? ## #1 — tomas21, 2003-06-01T10:16Z Hej! Jag behöver en liten kodsnutt som skriver ut alla tabellers namn från en access databas i asp sidan. Alltså det jag vill göra är att jag tar alla tabeller i databasen och loopar igenom dom och sen skriver ut deras namn i asp sidan. Permalänk: https://www.webforum.nu/p/78621 ## #2 — voigtann1, 2003-06-01T11:04Z du menar själva "ID" etc etc eller värderna i alla tabeller? Permalänk: https://www.webforum.nu/p/1071539 ## #3 — tomas21, 2003-06-01T11:10Z Det jag menar är att jag vill skriva ut alla tabellers namn. Inte ID, Namn osv. Ex) Tabell1, innehåller id, namn osv. Tabell2, innehåller id, efternamn osv. Tabell3, innehåller id, tel osv. Jag vill då på den kompilerade asp sidan se: Tabellerna som finns i databasen heter Tabell1, Tabell2, Tabell3. Hoppas du förstår vad jag menar. Permalänk: https://www.webforum.nu/p/1071546 ## #4 — solbulle, 2003-06-01T11:16Z ``` Set objADOX = Server.CreateObject("ADOX.Catalog") objADOX.ActiveConnection = objConn response.write "Tabellerna som finns i databasen heter " For Each table in objADOX.Tables If table.Type = "TABLE" Then response.write table.Name & ", " End If Next ``` R/ samt innan den vanliga öppningen av db. Permalänk: https://www.webforum.nu/p/1071556 ## #5 — Peeer, 2003-06-01T11:16Z Permalänk: https://www.webforum.nu/p/1071557 ## #6 — tomas21, 2003-06-02T10:44Z Men hur ser databaskopplingen ut för koden nedan: ``` Set objADOX = Server.CreateObject("ADOX.Catalog") objADOX.ActiveConnection = objConn response.write "Tabellerna som finns i databasen heter " For Each table in objADOX.Tables If table.Type = "TABLE" Then response.write table.Name & ", " End If Next ``` Man brukar använda typ: ``` Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/secret/secret.mdb") Set RecSet = Server.CreateObject("ADODB.Recordset") ``` Alltså man måste komplettera koden ovan med Connect.Open koden. Jag har försökt på flera olika sätt men jag lyckas inte få det att fungera. Permalänk: https://www.webforum.nu/p/1072165 ## #7 — @nders, 2003-06-02T10:46Z Det här borde funka: ``` Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/secret/secret.mdb") Set objADOX = Server.CreateObject("ADOX.Catalog") objADOX.ActiveConnection = [b]Connect[/b] response.write "Tabellerna som finns i databasen heter " For Each table in objADOX.Tables If table.Type = "TABLE" Then response.write table.Name & ", " End If Next ``` Mvh Permalänk: https://www.webforum.nu/p/1072167 ## #8 — tomas21, 2003-06-02T10:51Z Hej @nders jag har testat koden som du föreslog men det fungerar inte. Jag använder för tillfället brinkster eftersom min bärbara inte är hemma för tillfället. Det enda felmedelande jag får upp är: Sidan Kan Inte Visas samt HTTP 500 Internt serverfel Kan det hända att det är brinkster som inte har stöd för ADOX eller? Permalänk: https://www.webforum.nu/p/1072173 ## #9 — @nders, 2003-06-02T10:55Z Stäng av friendly error messages / egna http-felmeddelanden i IE och försök igen. Då får du ett ordentligt felmeddelande. Permalänk: https://www.webforum.nu/p/1072174 ## #10 — tomas21, 2003-06-02T10:58Z Ok då ser man mera av felmedelandet som är: ``` Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x81c Thread 0x2e4 DBC 0xf1d3fd4 Jet'. Error line 6 ``` Line 6 är: Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("/db/db1.mdb") Permalänk: https://www.webforum.nu/p/1072176 ## #11 — @nders, 2003-06-02T10:59Z Kontrollera så sökvägen till databasfilen stämmer. Permalänk: https://www.webforum.nu/p/1072177 ## #12 — tomas21, 2003-06-02T11:01Z Databasen ligger i en mapp som heter db. Eftersom asp filen ligger i rooten då borde man skriva /db/db1.mdb på mappath eller ska man skriva db/db1.mdb. Permalänk: https://www.webforum.nu/p/1072178 ## #13 — tomas21, 2003-06-02T11:03Z Tack så mycket för hjälpen grabbar det fungerar om man skriver koden så här: ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db1.mdb") Set objADOX = Server.CreateObject("ADOX.Catalog") objADOX.ActiveConnection = Connect response.write "Tabellerna som finns i databasen heter " For Each table in objADOX.Tables If table.Type = "TABLE" Then response.write table.Name & ", " End If Next %> ``` Permalänk: https://www.webforum.nu/p/1072180 ## #14 — @nders, 2003-06-02T11:04Z > **tomas21 skrev:** > > Databasen ligger i en mapp som heter db. > > Eftersom asp filen ligger i rooten då borde man skriva /db/db1.mdb på mappath eller ska man skriva db/db1.mdb. Det borde gå bra vilket som, men du kan ju prova utan slash också. :) Är det samma rader för databaskopplingen som du använder på dina andra sidor som ligger i roten så bör det helt klart fungera. mvh Permalänk: https://www.webforum.nu/p/1072181 ## #15 — tomas21, 2003-06-02T11:10Z @ander det fungerade inte med /db/db1.mdb MEN det gick bra med db/db1.mdb Varför vet jag inte, jag ser det konstigt varför det inte skulle gå med /db/db1.mdb, det kan vara brinkster som har valt att det ska vara så. Permalänk: https://www.webforum.nu/p/1072185 ## #16 — Sebbe, 2003-06-02T13:56Z Ja, på Brinkster ligger din mapp på webbhotellet i rooten. Så om du vill köra med slash i början skriver du: ``` Server.MapPath("/[medlemsnamn]/db/db1.mdb") ``` Permalänk: https://www.webforum.nu/p/1072323 ## #17 — solbulle, 2003-06-02T17:01Z Fotnot: Använder du "alla" variablerna i denna: \