Replik wechseln Server<-> Lokal

[LisaS]

Hallo,
ich möchte den Usern einen Button in der Datenbank anbieten mit dem sie zwischen der lokalen und Server-DB wechseln können.
Sprich ein User hat seine lokale Replik geöffnet und möchte aber zur Server-Replik wechseln, dann sollte ein Klick auf den Button reichen, um die Lokale DB zu schließen und die Server-DB zu öffnen. Umgekehrt natürlich auch.
Ich habe im Moment das Problem , dass sich mit meinem Script die newDB nicht im Frontent öffnet, obwohl isopen auf true steht???
Was mache ich falsch?

Code

Sub Click(Source As Button)
	Dim s As New NotesSession
	Dim uiws As New NotesUIWorkspace
	Dim this_uidb As NotesUIDatabase
	Dim server_default As String
	Dim server_act As String
	Dim RepID As String
	Dim flag_ds As Boolean
	Dim flag_rs As Boolean
	Dim thisDB As NotesDatabase
	Dim newDB As New NotesDatabase( "", "" )
	
	Set thisDb = s.CurrentDatabase
	Set this_uidb = uiws.CurrentDatabase
	repID = thisDB.ReplicaID
	server_act = thisDB.Server
	server_default = s.GetEnvironmentString("MailServer",True)
	If server_act = "" Then
		If newDB.OpenByReplicaID( server_default, RepID ) Then
			Print( newDB.Title & " Replik erfolgreich geöffnet" )
		Else
			Print( "Die Replik konnte nicht gefunden werden" )
		End If
		
	Else
		If newDB.OpenByReplicaID( "", RepID ) Then
			Print( newDB.Title & " Replik erfolgreich geöffnet" )
		Else
			Print( "Die Replik konnte nicht gefunden werden" )
		End If
	End If
End Sub

Grüße
Hitcher

[koehlerbv]

newDB ist bei Dir NotesDatabase, also Backend - "Open" heisst da etwas ganz anderes, als was Du erreichen willst.

Du brauchst notesUIWorkspace.OpenDatabase.

Bernhard

[LisaS]

danke schön....
natürlich, dass ist es....
Grüße
Hitcher

[LisaS]

Ok, noch eine Frage:
Call this_uidb.Close schließt die DB nicht, hat es damit zu tun, dass das Script innerhalb der DB ausgeführt wird?

Code

Sub Click(Source As Button)
	Dim s As New NotesSession
	Dim uiws As New NotesUIWorkspace
	Dim this_uidb As NotesUIDatabase
	Dim server_default As String
	Dim server_act As String
	Dim RepID As String
	Dim flag_ds As Boolean
	Dim flag_rs As Boolean
	Dim thisDB As NotesDatabase
	Dim newDB As New NotesDatabase( "", "" )
	Dim tmp As String
	
	Set thisDb = s.CurrentDatabase
	Set this_uidb = uiws.CurrentDatabase
	repID = thisDB.ReplicaID
	server_act = thisDB.Server
	server_default = s.GetEnvironmentString("MailServer",True)
	If server_act = "" Then
		If newDB.OpenByReplicaID( server_default , RepID ) Then
			Call uiws.OpenDatabase( server_default ,newDB.FilePath)
			Print( "Server-Replik geöffnet" )
			Call this_uidb.Close
		Else
			Print( "Die Replik konnte nicht gefunden werden" )
		End If
	Else
		If newDB.OpenByReplicaID( "", RepID ) Then
			Call uiws.OpenDatabase("",thisDB.FilePath)
			Print( "Lokale-Replik geöffnet" )
			Call this_uidb.Close
		Else
			Print( "Die Lokale-Replik konnte nicht gefunden werden" )
		End If
	End If
End Sub

[m3]

Erst schließen, dann öffnen.

[LisaS]

Habs jetzt so und es wird immer noch nicht geschlossen.

Code

Sub Click(Source As Button)
	Dim s As New NotesSession
	Dim uiws As New NotesUIWorkspace
	Dim this_uidb As NotesUIDatabase
	Dim server_default As String
	Dim server_act As String
	Dim RepID As String
	Dim flag_ds As Boolean
	Dim flag_rs As Boolean
	Dim thisDB As NotesDatabase
	Dim newDB As New NotesDatabase( "", "" )
	Dim tmp As String
	
	Set thisDb = s.CurrentDatabase
	Set this_uidb = uiws.CurrentDatabase
	repID = thisDB.ReplicaID
	server_act = thisDB.Server
	server_default = s.GetEnvironmentString("MailServer",True)
	If server_act = "" Then
		If newDB.OpenByReplicaID( server_default, RepID ) Then
			Call this_uidb.Close
			Call uiws.OpenDatabase( server_default,newDB.FilePath)
			Print( "Server-Replik geöffnet" )
		Else
			Print( "Die Replik konnte nicht gefunden werden" )
		End If
	Else
		If newDB.OpenByReplicaID( "", RepID ) Then
			Call this_uidb.Close
			Call uiws.OpenDatabase("",thisDB.FilePath)
			Print( "Lokale-Replik geöffnet" )
		Else
			Print( "Die Lokale-Replik konnte nicht gefunden werden" )
		End If
	End If
End Sub

[m3]

Seufz. Auch thisDb ist ein BACKEND Daatenbankobjekt. Das kannst 20 mal schließen, da tut sich im Frontend gar nix.

[LisaS]

Ne ist es nicht - this_uidb

Code

Set this_uidb = uiws.CurrentDatabase

Code

Call this_uidb.Close

[LisaS]

wenn ich einen Button mit einem Script mache wo nur geschlossen werden soll gehts
Warum dann nicht im anderen Script?

Code

Sub Click(Source As Button)
	Dim s As New NotesSession
	Dim uiws As New NotesUIWorkspace
	Dim this_uidb As NotesUIDatabase
	Dim server_default As String
	Dim server_act As String
	Dim RepID As String
	Dim flag_ds As Boolean
	Dim flag_rs As Boolean
	Dim thisDB As NotesDatabase
	Dim newDB As New NotesDatabase( "", "" )
	Dim tmp As String
	
	Set thisDb = s.CurrentDatabase
	Set this_uidb = uiws.CurrentDatabase
	Call this_uidb.Close
End Sub

[Driri]

Läuft das Script denn in den Then-Zweig rein ? Hast Du schon mal den Debugger mitlaufen lassen ?

[DAU-in]

weil die Bedingung in deinem alten Script nicht erfüllt wird?

Grüsse

Dau-in

[LisaS]

Doch ja, die if Bedingungen werden erfüllt, das konnte ich im Debugger sehen.

[DAU-in]

welche der Ifs?

bist du sicher, dass das Ganze nicht einfach im verkehrten Zweig landet?

[LisaS]

ja, weil sich ja jeweils die richtigen Datenbanken öffnen, also muss der Agent zwangs läufig am Close vorbeikommen.