Avatar billede svinth Nybegynder
26. maj 1999 - 15:48 Der er 9 kommentarer og
1 løsning

Access ASP VBScript og Table Names

Hvordan udtrækker man tabelnavnene fra en accessdatabase via ASP og VBScript. Der er tale om den danske version 7 af Access.
Avatar billede bbe1379 Nybegynder
26. maj 1999 - 16:49 #1
Skriv din mail adresse så sender jeg en lille samling ad dokumenter med database....så kan du se om du kan regne det ud....det er nemmere end at skrive det her
Avatar billede svinth Nybegynder
27. maj 1999 - 08:33 #2
svinth@students.aabc.dk
Avatar billede bbe1379 Nybegynder
27. maj 1999 - 19:20 #3
OHHH....nu hvor jeg læser din besked igen bliver jeg i tvivl.....det jeg sender til dig er en simpel visning af hele databasen....men det var måske ikke det du skulle bruge. Jeg sender det under alle omstændigheder.
Avatar billede svinth Nybegynder
28. maj 1999 - 09:41 #4
Korrekt, det er ikke det jeg skal bruge :)
Avatar billede mortenb Nybegynder
03. juni 1999 - 15:29 #5
Hvad er lige formålet med det ????
Avatar billede hornshoj Nybegynder
04. juni 1999 - 11:11 #6
Prøv med flg ASP-script:

<HTML>
<HEAD>
<TITLE>Tabeller</TITLE>
</HEAD>
<BODY>

<%
'Lav en forbindelse til databasen (ODBC)...
Set Conn = Server.CreateObject("ADODB.Connection")
'Login som admintrator..
Conn.Open "navn_paa_forbindelsen","Adm",""
Set rs = Server.CreateObject("ADODB.Recordset")
' Jeg vil kun have tabelnavnet...
SQL = "SELECT Name FROM MSysObjects WHERE Type = 1 AND Flags = 0;"
' Så åbner jeg for tabellen...
rs.Open sql, conn, 3, 3
' Kontrol af om der overhovedet kom noget...
If Rs.EOF Then %>
Ingen tabeller fundet!
<% ELse %>
Der blev fundet flg tabeller:<br><br>
<%    Do While Not rs.EOF %>
    <%= rs("Name") %><br>
<%    rs.MoveNext
    Loop
End If %>
</BODY>
</HTML>
Avatar billede svinth Nybegynder
07. juni 1999 - 11:01 #7
mortenb: At lave en fleksibel asp-side.

hornshoj: Jeg bruger ikke dit forslag, og er ikke sikker på at jeg kan bruge det. I stedet har jeg valget at lægge tabelnavnene ned i en tabel for sig :)
Men hvis du gider svare istedet for at kommentere, vil jeg gerne honerere dit sikkert gode bud med pointene. (Hvis det da er sådan det virker)
Avatar billede hornshoj Nybegynder
08. juni 1999 - 09:37 #8
Desværre så tror jeg dit spørgsmål har status: BESVARET... og accepteret... Så du må skylde (;
Avatar billede hornshoj Nybegynder
08. juni 1999 - 13:24 #9
Øhhh jeg er forvirret... Men så har jeg fundet følgende til dig:

<!-- #include file="adovbs.inc" -->
<% set conn = Server.CreateObject("ADODB.Connection")
    conn.CursorLocation = adUseClient
  conn.Open "NAVN_PAA_ODBC_FORBINDELSEN"
    set rs = Server.CreateObject("ADODB.Recordset")
    set rs = conn.OpenSchema(adSchemaTables)
%>
   
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
    Do Until rs.EOF %>
        Table name: <%=rs("TABLE_NAME") %><br>
        Table type: <%=rs("TABLE_TYPE") %><br>
        <% rs.MoveNext
      Loop
%> 

</BODY>
</HTML>
Avatar billede svinth Nybegynder
08. juni 1999 - 13:29 #10
Det er sikkert godt nok, nu skal jeg som sagt ikke bruge det længere :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester