Office: Primärschlüssel per VBA ermitteln

Hallo,

ich habe ein recht einfach klingendes Problem: In einer DB sind mehrere Tabellen mit unterschiedlichen Primärschlüsseln definiert. Dabei kann sowohl nur ein Feld als auch mehrere Felder Primärschlüssel sein.

Die Frage ist jetzt, ob es möglich ist, den Primärschlüssel zu ermitteln bzw. abzufragen, welches Feld den Schlüssel definiert. Die Anzahl der Schlüssel bekomme ich über Indexes.Count eines TableDefs heraus. Allerdings ist es mir nicht gelungen zu ermitteln, welches Feld denn nun der Schlüssel ist. Ist da jemanden etwas bekannt? Das wäre super...

Zum Hintergrund: Anhand der Schlüssel wird eine SQL-Abfrage zusammengebaut, welche die Daten zwischen zwei Tabellen vergleicht - allerdings Recordsetweise. Eine bessere Methode habe ich nicht gefunden, obwohl ich vermute, dass es mit Hilfe von SQL vielleicht direkt eine Methode gibt, Tabellen zu vergleichen und die als Resultat nur die Recordsets auflistet, die eben nicht in Tabelle 2 vorhanden sind, wohl aber in Tabelle 1.

Danke & Gruss

:)

 

Hi,

was ist denn dein eigentliches Ziel und wodurch ist es bedingt?

 

Eigentlich ist das Ziel ganz einfach: Zwei Datenbanken sollen verglichen werden. Dabei ist eine die Master und die andere die Slave. Aus der Slave werden die Daten in die Master übernommen.

Sind die Daten vorhanden, sollen sie auf Veränderung gecheckt werden. Sind die Daten nicht vorhanden sollen sie eingefügt werden und sind die Daten nur noch in der Master vorhanden, sollen sie aus der Slave gelöscht werden.

Dazu gehe ich tabellenweise vor. Ich öffne eine Tabelle in der Master und Slave, und starte mit den Daten des Recordsets aus der Slave eine Abfrage in der Master, die mir, wenn die Daten in der Master vorhanden sind einen Recordset returniert. Die Abfrage stützt sich dabei auf die Schlüssel, welche jeden Datensatz in den Tabellen eineindeutig identifiziert. Deshalb war jetzt die Frage, wie ich die Primärschlüssel einer Tabelle ermittle damit ich weiss, wie ich den SQL-String für die Abfrage zusammen setzen muss.

 

Hallo,

Indexes.Count

gibt Dir nur die zahl der indizierten Felder der Tabelle zurück. Das hat noch nichts mit dem Primärschlüssel zu tun. Primärschlüssel ist ein Index, wenn seine Eigenschaft primary=True ist.

Beziehungen zwischen Tabellen untersuchst Du übrigens am besten mit dem Relation-Objekt.

mfg Rita

 

Reicht vielleicht schon ein tdf.Indexes(i).Name?

 

Du könntest dir den nötigen Code sicherlich aus meinem Tool TabToWeb (Link in meiner Signatur) rausziehen.

 

danke für die hinweise. besonders dem mit dem hinweis auf die primary-eigenschaft. damit ist es mir gelungen, die primärschlüssel für eine tabelle eindeutig auszulesen. frage bleibt, ob es nicht noch eventuell eine schnellere variante gibt, als der, die ich realisiert habe. anbei kurz der code:


Dim tables As TableDef
Dim keys As index

Set tables = wodb.TableDefs(table)

For Each keys In tables.Indexes
If keys.Primary = True Then
For i = 0 To keys.Fields.Count - 1
key(number_of_keys) = keys.Fields(number_of_keys).Name
If number_of_keys > UBound(key) Then
ReDim Preserve key(UBound(key) * 2)
End If
Next i
End If
Next keys

im speziellen stört mich die for-each schleife, weil diese bis zum ende durchlaufen wird auch wenn die primärschlüssel schon längst ermittelt worden sind.

 

Du kannst doch, sobald Du den primary gefunden hast mit Exit For die Schleife verlassen.

mfg Rita

 

stimmt! danke... es gibt doch immer wieder einfache lösungen die aufgrund ihrer einfachheit immer wieder übersehen werden *grins