tabelle im mxd Projekt?

Hallo Imke,

ich würde schon alles in der SDE belassen.
Speicher einfach zusätzlich noch den Nutzernamen ab, dann hast Du eine individuelle Zuordnung.

Viele Grüße
Jörg Ostendorp

Hallo Imke,

> Muss ich dann für jeden irgendwie in Frage kommenden Benutzer eine neue tabellenspalte einrichten?

Nein, bloß nicht! :-)
Ich bin davon ausgegangen, daß Du eine Art Optionstabelle hast, in der Du verschiedene Pfade ablegst. So etwa nach dem Schema:

Dokument | Pfad
Document1 | C:\irgendwo\irgendwas.doc
Document2 | C:\irgendwo\irgendwasanderes.xls
...

Mit einem zusätzlichen Feld "Nutzer" kann jeder seine eigenen
Einstellungen anlegen:

Document | Pfad | Nutzer
Document1 | C:\irgendwas.doc | Peter
Document1 | D:\woanders\irgendwas.doc | Susanne
Document1 | E:\ganzwoanders\irgendwas.doc |KarlHeinz
Document2 |......

Je nach angemeldeten Nutzer liest Du nun einfach den zugehörigen Datensatz aus der SDE Tabelle aus.

> was machen nutzer, die noch nicht "registriert" sind in dieser SDE Tabelle?

Nun, Du prüfst halt ob es einen Datensatz für diese Nutzer gibt. Wenn es keinen gibt, könntest Du zB einen FileDialog öffnen, in dem die User dann eben ihr Dokument auswählen müssen. Den ausgewählten Pfad samt Nutzer speicherst Du dann im Hintergrund als neuen Datensatz. Fürs nächste Mal steht er dann sofort griffbereit in der Tabelle.

Wenn ich Dich jetzt absolut mißverstanden habe sollte, erklär mir das mit den Pfaden nochmal :-)


Viele Grüße
Jörg Ostendorp


PS: Ich hoffe, ich liege zumindest damit richtig, daß die SDE auf einem Server liegt und Deine
Nutzer mit Kopien der mxd als Clients auf die gleiche SDE zurückgreifen?

Hallo Imke,

> Wie erfahre ich denn über VBA aus ArcMap wer gerade benutzer ist?

da erwischst Du mich natürlich wieder total auf dem falschen Fuß weil ich hier kein SDE habe :-( Ich dachte, Nutzer und Passwort wären Dir durch die Anmeldung bereits bekannt, weil Du sie ja im Connection-string übergeben müßtest, um den Datensatz aus Deiner Tabelle auslesen zu können. Offensichtlich liege ich mal wieder völlig daneben. Arbeitest Du überhaupt mit einem Nutzer-System? Wie liest Du Deine Pfade aus der Tabelle denn bisher aus?
(Im Zweifelsfall ginge es natürlich, indem man den User nochmal per inputbox/Form danach fragt, wäre aber für den ziemlich nervig).

(Kurz nochmal eine Antwort auf Deine erste Frage, hab ganz vergessen, meinen Senf dazu abzulassen:
Nein, Tabellen kannst Du in der mxd imho nicht direkt speichern (eben nur verknüpfen). Ich kenne auch keine brauchbaren Property-Collections, Tags o.ä., die speicherresistent irgendwelche Informationen aufnehmen könnten, so daß Du ohne weitere Arbeit eine mxd einfach weitergeben resp. verschieben könntest.
Insofern bliebe entweder nur eine separate Tabelle/Textdatei oder die Registry.
Da ich die Registry ungern zumülle und man ggf mit den Sicherheitseinstellungen übereifriger Adminstratoren zu kämpfen hat, würde ich nach wie vor die Tabelle favorisieren.
Und bei der Frage wohin damit finde ich eine zentrale Tabelle in der SDE eben besser als viele lokale bei den mxds, nicht zuletzt wegen der einfacheren Wartung.)


Als Alternative zum SDE-Usernamen könntest Du unter Umständen auch mit dem von Windows arbeiten.
Den ermittelst Du zB per:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function fctGetUserName() As String
Dim lngLen As Long
Dim lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fctGetUserName = Left$(strUserName, lngLen - 1)
Else
fctGetUserName = vbNullString
End If
End Function



> Bin mir noch nicht so ganz im Klaren darüber, wie ich neue Zeilen zu einer SDE tabelle hinzufügen kann.

Am einfachsten über ein ADO-Recordset per "addnew". Schau mal unterm Stichwort "Recordset" in die DeveloperHelp, meine, da gibt es relativ ausführliche Beispiele. Hier im Forum müßte eigentlich auch was zu finden sein.
Schema:

With adoRS
.addnew
!DeinFeld = "DeinWert"
.update
end with


Viele Grüße
Jörg Ostendorp

Hallo Imke,

Danke für die Rückmeldung. Blöde Frage, aber woher nimmst Dein PropertySet (pPropSet)?

Viele Grüße
Jörg Ostendorp

Hallo Imke,

> With pPropSet...

Ah, hardcodiert, aber dann sind Dir Nutzer und Passwort-Angaben doch bekannt. Dachte genaue darin liegt Dein Problem?!
Könntest Du mir noch einen Gefallen tun und ausprobieren, ob das Workspace des Editors Dir die gleichen Properties wieder zurückgibt, die Du oben eingegeben hast? (würde mich mal interessieren, ob man darüber an den aktuellen Nutzer samt Passwort der Connection kommt). Kanns in Ermangelung der SDE leider nicht selbst testen.

(Editiersitzung starten und Prozedur über'n Button aufrufen..)

Public Sub ListWorkspaceProp()
Dim pID As New UID
Dim mEditor As IEditor
Dim pWorkspace As IWorkspace
Dim Msg As String
Dim Response As Long
Dim i As Long
Dim sPropNames As Variant
Dim vPropValues As Variant
pID = "esriCore.Editor"
Set mEditor = Application.FindExtensionByCLSID(pID)
Set pWorkspace = mEditor.EditWorkspace
pWorkspace.ConnectionProperties.GetAllProperties sPropNames, vPropValues
Msg = ""
For i = LBound(sPropNames) To (UBound(sPropNames) - 1)
Msg = Msg + LCase(sPropNames(i)) + ": " + vPropValues(i) + Chr(13)
Next i
Response = MsgBox(Msg)
End Sub

Danke!

Viele Grüße
Jörg Ostendorp

Hallo Imke,

> Bitte nochmal ganz langsam für mich zum verstehen.

Ich probier's ;-)
Also:

1. Eine Deiner komischen mxds öffnen
2. Einen neuen UIButtonControl erstellen.
3. In dessen Click-Ereignis die oben angegebene Prozedur eintragen.
4. mxd-Datei beliebige Male schließen und öffnen oder es lassen
5. Ggf. mxd neu öffnen und wie gewohnt eine Verbindung zur SDE herstellen (mit Deinem anderen Button oder wie auch immer Du das machst)
6. Wenn noch nicht gestartet, die Bearbeitung starten (= Editor -> Bearbeitung starten = Editiersitzung starten).
7. Auf den neuen Button klicken, Messageboxen auswendig lernen und mit den von Dir oben angegebenen Properties (pPropSet) vergleichen.
8. Button samt Code wieder löschen.


Viele Grüße
Jörg Ostendorp

Hallo Imke,

ja, tut es. Danke für's Testen!

Viele Grüße
Jörg Ostendorp