Office: Verknüpfung von BE trennen und wieder verbinden

Hallo liebe Accessler:innen!
Ich habe eine Frage zu den Verknüpfungen zu BE:
Also ich verknüpfe 3 BE mit meiner Frontend. Die Verlinkung und Trennung funktioniert ganz gut. Ich hab es sogar geschaft, dass ich einzelne Tabellen einer BE trennen kann
In iner Listbox werden alle Tabellen der 3 BE aufgelistet und ich kann wie oben beschrieben ALLE Trennen oder EINZELNE TABELLEN trennen. Wenn ich also von den 3 BE nur eine trennen möchte, muß ich jede einzelne Tabelle dieser BE trennen, dass bei 7 Tabellen mühsam ist.
Ich hab es aber nicht zusammengebracht, dass ich eine Funktion schreibe, wo ich in der Listbox eine Zeile mit der gewünschten BE markiere und dann nach einem BtnKlick alle Tabellen dieser BE trenne. die anderen 2 BE's bleiben verlinkt. Mein Problem ist ich weiß nicht wie ich die im Listing mit ihrem Namen finde.
Den Code für die Trennung der gesamten Listbox habe ich im Internet gefunden. Den wollte ich nun umbauen, ich weiß nur nicht wo und wie?

Das Listing:
Public Function DeleteLinkTable() As Integer
' -----------------------------------------------------
' mit dieser Funktion werden alle eingebundenen
' Tabellen gelöscht
' -----------------------------------------------------
If MsgBox("Sollen alle Tabellenverknüpfungen gelöst werden?" + vbCrLf + "Es gehen dadurch keine Daten verloren", vbCritical + vbYesNo, "Verknüpfung aller Backenddatein lösen") = vbYes Then
On Error GoTo fehler

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT DISTINCTROW Name " & _
"FROM MSysObjects WHERE MSysObjects.Name Not Like 'MSys*' " & _
"AND MSysObjects.Type=6;", dbOpenDynaset)
' Sanduhr ein
DoCmd.Hourglass True
rs.MoveFirst
Do Until rs.EOF
DoCmd.DeleteObject acTable, rs!Name
DeleteLinkTable = DeleteLinkTable + 1
rs.MoveNext
Loop
ende:
' Sanduhr ein
DoCmd.Hourglass False
' offene DB und offene RS schließen
rs.Close
db.Close
'Exit Function
Else
MsgBox "Aktion wird abgebrochen!", vbInformation, "Verknüpfung aller Backenddatein lösen"
End If
Exit Function
fehler:
MsgBox Err.Description
Resume ende
End Function

Es muß im Recordset anzusprechen sein - ich weiß nur nicht wie und mit was
LG Anna

 

Hallo Anna,

Du musst die Zeile

Set rs = db.OpenRecordset("SELECT DISTINCTROW Name " & _
"FROM MSysObjects WHERE MSysObjects.Name Not Like 'MSys*' " & _
"AND MSysObjects.Type=6;", dbOpenDynaset)

so umbauen, dass die Wherebedingung durch die selektierten Einträge Deiner Listbox erfüllt werden.

Dann gibt es in MSysObjects noch die Spalte Database. Dort steht doch der komplette Name mit Pfadangabe zum Backend. Wenn Du diese Namen gruppiert ausliest, bekommst Du die betreffenden Namen der Backends. Diese kannst Du dann doch Deiner Listbox hinzufügen, bzw. Du legst eine zweite Listbox an und kannst darüber die betreffenden Tabellen selektieren und die Einbindung löschen.

Michael

 

Hallo Anna,

eigentlich sollte es nicht notwendig sein, mit mehreren BEs zu arbeiten, da sich keine Beziehungen über eine BE hinaus einstellen lassen. Das würde auch einem relationalen Datenmodell widersprechen.

Wenn du dynamisch Tabellen einbinden möchtest, kannst du auch die dafür vorgesehen Objekte, wie z.B. das Objekt Tabledefs verwenden. Es besteht keine Notwendigkeit, hierfür Systemtabellen auszuwerten oder mit DDL zu arbeiten.

Gruß Knobbi38

 

Hallo mmarschner, hallo knobbi38,
erst mal danke für Eure Tipps.

@mmarschner: Ich bin leider noch nicht dazugekommen Deinen Tipp umzusetzen, ich habe wenigstens einen Ansatz wie ich vorgehen kann.
@knobbi38: Meine 3 BE brauchen untereinander nicht kommunizieren. Es handelt einerseits um eine BE in der nur der Anwender "seine" Daten ablegen kann. die anderen beiden BE sind für jeden Anwender von Nöten und die Tabellen beider BE könnte ich tatsächlich in einer BE vereinen.
Das Objekt Tabeledefs kenne ich nicht, werd es mir aber auf alle Fälle anschauen, wie es verwendet wird...
LG
Anna

 

Es geht nicht um eine Kommunikation, sondern um das Datenmodell, bei dem dann Beziehungen zwischen den Tabellen hergestellt werden und dann referentielle Integrität eingestellt wird. Das geht aber nur, wenn die Tabellen sich in einer DB befinden. Es gibt nur sehr wenige Gründe, meistens technische, wo eine Aufteilung in mehrere DBs notwendig wird, benutzerspezifische Tabellen gehören jedenfalls nicht dazu.

Nur mal so ...

Gruß Knobbi38