title image


Smiley Re: verknüpfte Tabellen automatisch neu einlesen möglich?
Ja kannst du und zwar über den Befehl... Connect



z.B.



Private Sub LinkTable(ConnectDB as String, Source as String, Target as String)



Dim DBS as Database

Dim tdfLinked as TableDef

dim rstLinked as Recordset



Set DBS = CurrentDB

set tdf.Linked = DBS.CreateTableDef (Target)

tdfLinked.Connect = ConnectDB

tdfLinked.SourceTableName = Source

DBS.Tabledefs.Append tdfLinked



End Sub



Der Aufruf erfolgt dann über...



LinkDB = "DEMO.MDB"

Source = "Tabelle_in_LinkDB" 'Name der Tabelle im Original

Target = "Tabelle_in_ZielDB" 'Name der Tabelle als Link !



Call LinkTable(";DATABASE=" & LINKDB, Source, Target)



DU kannst jetzt noch verschiedene Plausibilitätsprüfungen vorab durchlaufen

lassen...



z.B. vorab prüfen ob die verlinkte Tabelle bereits existiert...

Weiterhin kannst du auch über das TableDefs in Verbindung mit einer

For Each.... Next Schleife die Tabellen-Namen usw abfraqgen.





Alles weitere hierzu findest du in deiner Onlinehilfe !





MfG.

RSVisionmaster


Insole Scan Control - Die Elektronische Trittspur für Access (XP/2003)
CardManager - SmartCard Tools a la CARD



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: