Datenbanken

erzengel · 7. März 2006

Moin,

ich habe mal eine Frage zur Verständnis.

Ich habe 2 Datenbanken die miteinander arbeiten. In einer sind Einstellungen/Vorgaben in der anderen werden Daten gespeichert.

Ich habe eine Ansicht nach Gruppe.In der Ansicht:
Kann es sein dass die Datenbank mit den Daten auf die Felder der Einstellungsdatenbank zugreift?

Gemeint ist wenn ich den Designer öffne, mit der Datenbank in der die Daten stehen, in der Ansicht Gruppe, und dort auf die Felder gehe, können das auch die Felder der Einstellungsdatenbank sein?

MFG Michael

erzengel · 7. März 2006

Ok dann was anderes. Kann ich den Gestaltungsschutz einer Datenbank aufheben, wenn ich diese nicht erstellt habe?

Diali · 7. März 2006

kopfschüttel - dann wäre es doch kein Gestaltungsschutz.

Es geht, aber die interessanten Dinge liegen nicht mehr im Klartext in der Gestaltung vor.

Gruß
Dirk

erzengel · 7. März 2006

Stimmt schon.

Ich müsste ja auch nicht alles sehen. :-D.
Ansichten, Masken, wären schonmal gut.

Wie geht das? In der Designer Hilfe hatte ich nix dazu gefunden.

Diali · 7. März 2006

über die Notes-Api kann diese Flag gesetzt und entfernt werden. Schau dir mal dazu NSFDbReplicaInfoSet in NNOTES an.

Gruß
Dirk

erzengel · 7. März 2006

also in der nnotes.dll?!

Naja da find ich schon diese Einträge, aber sagen tut mir das nix.

Diali · 7. März 2006

baue Dir in irgendeine DB eine schaltfläche mit folgendem Code und änder die Zeile Set db = session.GetDatabase("", "D:\test.nsf") im Script. Dort muss der Server, DB-Pfad und DB-Namen stehen.

Ach so Anwendung des Beispiel-Codes auf eigene Gefahr!

Code

'(Declarations)
Const APIModule = "NNOTES" ' Windows/32 only
Const REPLFLG_HIDDEN_DESIGN = &H0020
Type ReplicaInfo
	ID(1) As Long
	Flags As Integer
	CutoffDays As Integer
	CutoffDate(1) As Long
End Type
Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
( Byval H As Long) As Integer
Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _
( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Declare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _
( Byval H As Long, R As ReplicaInfo) As Integer


Sub Click(Source As Button)
	 ' Beispiel Script
	Dim hDB As Long
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.GetDatabase("", "D:\test.nsf")
	p$ = String(1024, " ")
	OSPathNetConstruct 0, db.Server, db.FilePath, p$
	NSFDbOpen p$, hDB
	Dim R As ReplicaInfo
	NSFDbReplicaInfoGet hDB, R

	R.Flags = R.Flags And Not REPLFLG_HIDDEN_DESIGN   ' Desigen anzeigen
'	R.Flags = R.Flags Or REPLFLG_HIDDEN_DESIGN   ' Desigen verbergen
	NSFDbReplicaInfoSet hDB, R
	NSFDbClose hDB
End Sub

Alles anzeigen

erzengel · 7. März 2006

Das ist doch klar ;). Anwendung immer auf eigene Gefahr :D.

Ich hab das nun probiert mit Angabe des Servers, hierarchischer Name oder als Netzlaufwerk, klappt aber nicht. Dann schliesst sich der Notes Client/Designer/Admin komplett und in der log steht nur das er geschlossen wurde.

Diali · 7. März 2006

dann schalte mal den Debugger ein und gehe das Script zeilenweise durch. Merke dir die Zeile nach der Notes beendet wird.

Wie sieht bei dir die Zeile
Set db = session.GetDatabase(...
aus?

Gruß
Dirk

erzengel · 7. März 2006

Probiert habe ich:

Set db = session.GetDatabase("", "c:\Programme\Lotus\Domino\data\staff.nsf")

DB auf Windows Server

Set db = session.GetDatabase("", "z:\staff.nsf")
DB über Netzlaufwerk

Set db = session.GetDatabase("", "\\servername/O=domäne\staff.nsf")

Set db = session.GetDatabase("servername/domäne", "c:\Programme\Lotus\Domino\data\staff.nsf")

Abbrechen tut er nach Zeile:
NSFDbReplicaInfoGet hDB, R

dnotes · 7. März 2006

Und nun noch fuer DB´s auf dem Server:
Set db = session.GetDatabase("servername/domäne", "staff.nsf")
Uebrigens, Domaenen tauchen nie bei der Angabe eines Servers auf

Diali · 7. März 2006

Schau mal in der Designer-Hilfe unter GetDatabase nach.

Ich kenne zwar Dein System nicht, aber ich tippe mal, diese Version ist die richtige.
Set db = session.GetDatabase("servername", "staff.nsf")

Aber als Tipp kopiere die DB nach Lokal und probier es dann, ich hoffe du gehst nicht an einen ProduktivServer oder gar an eine ProduktivDB.

Gruß
Dirk

erzengel · 7. März 2006

Schade schade, das klappt so nicht. Dann ist es wohl doch besser geschützt.

Klar ist das eine produktiv DB, aber ich vertrau dir ;-).

Habe noch Bandsicherung etc. also von daher kein Problem.

Ich probier das lokal nochmal.

MFG Michael

erzengel · 7. März 2006

Aber lokal da klappts :).

Nur ich finde mein gesuchtes Feld nicht. Naja mal schauen ;).

MFG Michael

Diali · 7. März 2006

Zitat

Schade schade, das klappt so nicht. Dann ist es wohl doch besser geschützt.

??? habe ich so auf einem Testserver und lokal getestet und funktioniert !!!

Zitat

Klar ist das eine produktiv DB, aber ich vertrau dir.

He an der Stelle würde ich mir selber nicht trauen. Ein kleiner Fehler beim Benutzen der Notes-API (z.B. falscher Wert für Const usw.) und du holst mehr als eine DB zurück.
Eure DBs scheinen wohl nicht so wichtig zu sein, nutzt ihr Euer Notes eigentlich produktiv oder nur zum Spielen?

Zitat

Ich probier das lokal nochmal.

Dies halte ich für den besseren Ansatz.

Gruß
Dirk

erzengel · 7. März 2006

Ich Spiele mit Notes

Nein läuft produktiv. Bisher konnte ich alles wiederherstellen was ich so probiert habe, also von daher kein Problem, zudem wie gesagt haben wir eine Bandsicherung.

Nun kann ich alles bearbeiten, aber finde das Feld nicht in den anderen Datenbanken *kopfkratz* komisch komisch...

MFG Michael

Datenbanken

Teilen

Benutzer online in diesem Thema