<%
dim connTab, RSTab, tabName
Set RSTab = server.createObject("ADODB.Recordset")
Set connTab = server.createObject("ADODB.Connection")
connTab.Open "myDNS"
set RSTab = connTab.OpenSchema(adSchemaTables)
do while not RSTab.EOF
if left(RSTab.Fields("TABLE_NAME"),4)="MSys" then
RSTab.MoveNext
else
...
...
RSTab.MoveNext
end if
loop
RSTab.Close
connTab.Close
set RSTab = nothing
set connTab = nothing
%>
Gruss
Gleb
> -----Urspr�ngliche Nachricht-----
> Von: Steppel [mailto:[EMAIL PROTECTED]]
> Gesendet: Thursday, August 22, 2002 3:31 PM
> An: AspGerman Kaffeehaus
> Betreff: [aspdecoffeehouse] Exisiert die Tabelle
>
>
> Hallo,
>
> 2 Fragen h�tte ich :-)
>
> 1 wie kann ich alle Tabellen aus einer Access DB auslesen?
> 2 wie kann man pr�fen ob die tabelle wirklich existiert?
>
> Gruss
> Steppel
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
