Kann es sein, das deine L�sung irgendwie net geht ? Was macht denn OpenSchema z.B.
mfg Kai -----Urspr�ngliche Nachricht----- Von: Andreas Roth [mailto:[EMAIL PROTECTED]] Gesendet: Mittwoch, 6. M�rz 2002 15:20 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] Re: SQL > Wie kann ich mit SQL die Tabellennamen aus meiner DB auslesen und die Spaltenbezeichnungen? > > Danke Tabellen: ... Set scSchema = objConnection.OpenSchema(20) Do While Not scSchema.Eof %> <A Href="DBView.asp?t=<%=Server.URLEncode(scSchema("TABLE_N AME"))%>"><%=scSchema("TABLE_NAME")%></A><BR> <% scSchema.MoveNext Loop ... Spalten mit Ausgabe: ... SQL = "Select * From " & strTableName Response.Write(SQL & "<BR>" & vbCrLf & Request.QueryString("t") & "<BR>" & vbCrLf) LiesDatenbank SQL, RSViewTable ' rsViewTable .open SQL, 1, 3 %> <A HREF="AddData.asp?TableName=<%=TableName%>">Add a row of data to this table</A><BR> <TABLE Border="1"> <TR> <% 'Set up the table headings%> <% For Each columnname in RSViewTable.Fields %> <TD> <%= columnname.name %> </TD> <% Next %> </TR> <%' Write out the data %> <% Do While Not RSViewTable.EOF%> <TR> <% For Each columnname in RSViewTable.Fields%> <TD> <%= Trim(RSViewTable(columnname.name))%> </TD> <% Next %> </TR> <% RSViewTable.MoveNext Loop%> </Table> <BR> <% SET RSViewTable=nothing SchliesseDatenbank ... Gru�, Andreas Roth, http://www.drhirn.com/4 | 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
