title image


Smiley Da das Servertabellen sind...
müsstest du sie z.B. per ADOX öffnen und abgrasen, für Indizes z.B. so:



Dim conn As New ADODB.Connection, RS As New ADODB.Recordset, _

Tbl As ADOX.Table, cat As New ADOX.Catalog, Idx As ADOX.Index, Clm As ADOX.Column



conn.Open ...

Set cat.ActiveConnection = conn

For Each Tbl In cat.Tables

For Each Idx In Tbl.Indexes

For Each Clm In Idx.Columns

Debug.Print Tbl.Name, Idx.Name, Clm.Name

Next Clm

Next Idx

Next Tbl

conn.Close



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: