Hallo Kai, ich hab mir da vor ein paar Wochen auch mal was zusammengestrickt weil ich alle Spalten und Tabellen mal auf Blatt Papier haben wollte. Allerdings eine ASP Seite. Funktioniert ganz gut und bei jeder neuen Tabelle f�ngt er ein neues Blatt zum drucken an. In dieser Zeile ( Conn.Open "DNxx_NAME","","" ) mu�t nat�rlich noch Deine Daten eingeben.
Man kann auch den Typ der Spalte noch abfragen. Schau dazu hier drauf http://www.escribe.com/computing/aspDE/beginners/m11709.html Evtl kannst Du es ja gebrauchen Hier der Quelltext meiner ASP Seite <html> <head> <title>Tabellen und Spalten anzeigen</title> </head> <body style="font-family: Verdana"> <table border="1" width="546"> <% xx = 0 ss = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DNxx_NAME","","" Set scSchema = Conn.OpenSchema(4) %> <tr> <td colspan="3" width="530"><b><font size="3">Tabellen</font></b></td> </tr> <% Do While Not scSchema.Eof Schema = scSchema("TABLE_NAME") if ss <> Schema then ss = Schema %> <% if xx <> 0 then %> </table> <p STYLE="page-break-before:always"> <table border="1" width="546"> <% end if xx = 1 %> <tr> <td colspan="3" width="530"><b><font size="2"><% = ss %></font></b></td> </tr> <% end if %> <tr> <td width="135"><font size="1"><% =scSchema("COLUMN_NAME") %></font></td> <td width="117"><font size="1"> </font></td> <td width="272"><font size="1"> </font></td> </tr> <% scSchema.MoveNext Loop conn.close set conn = Nothing set scSchema = Nothing %> </table> </body> </html> Gru� Wolfgang ----- Original Message ----- From: "Kai" <[EMAIL PROTECTED]> To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]> Sent: Thursday, March 07, 2002 2:12 PM Subject: [aspdebeginners] AW: Alle Tabellen und Spalten > danke erstmal, wie mache ich das bei access ? :) > > mfg > Kai > > -----Urspr�ngliche Nachricht----- > Von: A-Schubert [mailto:[EMAIL PROTECTED]] > Gesendet: Donnerstag, 7. M�rz 2002 13:54 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] AW: Alle Tabellen und Spalten > > > > Tabellennamen:(MS SQL SERVER) > ____________________________________________________________________________ > ___ > <% > 'AUslesen der Tabellennamen aus der vorhandenen Datenbank > sql = "SELECT Name FROM sysobjects WHERE type = 'U'" > set rs_tabellen = objconn.execute(sql) > > 'Wenn Rekordset leer, dann Fehlermeldung > if rs_tabellen.eof then > Response.Write("<Div align='Center'><H4><font color='Red'>Es sind keine > Tabellen in der Datenbank vorhanden<BR>oder Fehler bei der > Datenbankverbindung !!!</font></H4></div>") > end if > %> > > > SPALTENNAMEN+Inhalt: > _______________________________________________________ > > 'ALLE DATEN AUS DER ANGEGEBENE TABELLE / SOURCE AUSLESEN > sql = "SELECT * FROM " & Tabelle > set rs_daten = objconn.execute(sql) > > 'Wenn Rekordset leer, dann Fehlermeldung > if rs_daten.eof then > Response.Write("<Div align='Center'><H4><font color='Red'>Es sind keine > Tabellen in der Datenbank vorhanden<BR>oder Fehler bei der > Datenbankverbindung !!!</font></H4></div>") > end if > %> > > <table border="1" width="60%"> > <tr> > <% > 'Aufbau der Spaltennamen > do until rs_daten.eof > %> > <td><%Response.Write(rs_daten.fields(x).name)%></td> > <% > x= x+1 > rs_daten.movenext > loop > %> > </tr> > > <% > 'Zeiger im Rekordset wieder auf die erste Position setzen > rs_daten.movefirst > x=0 > do until rs_daten.eof > %> > <tr <%if x mod 2 = 0 then Response.Write("bgcolor='blue'")end if%>> > <td><%Response.Write(rs_daten("ID"))%></td> > <td><%Response.Write(rs_daten("Jahr"))%></td> > <td><%Response.Write(rs_daten("Preis"))%></td> > </tr> > <% > x= x+1 > rs_daten.movenext > loop > %> > </table> > > > > -----Ursprungliche Nachricht----- > Von: Kai [mailto:[EMAIL PROTECTED]] > Gesendet: Donnerstag, 7. Marz 2002 13.28 Uhr > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] Alle Tabellen und Spalten > > > Hi... > > wie kann ich mir alle Tabellen und Spalten in einer DB anzeigen lassen ? > > mfg > Kai > > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ > | [aspdebeginners] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv > | Sie knnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp > > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ > | [aspdebeginners] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv > | Sie knnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp > > > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ > | [aspdebeginners] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv > | Sie knnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
