Domino 9 und frühere Versionen > ND6: Entwicklung

wieder mal eine script frage

<< < (2/5) > >>

TMC:
Du brauchst 2 Jahre um den Teil "NotesDatabase class" komplett zu lesen?
Sind ca. 2 Seiten Text.

sky-diver:
nei das nicht habe gesagt ich lese *alles*

Spass bei seite, ich bin ja nicht zu faul aber hiert ist en vertändigungs problem.

Ich will die DC datenbank vom server runterrepliziern, und die eine per replik id löschen ..muss ich für das löschen die db zuerst öffnen ? Und sucht er nicht automatisch nach der DC.nsf auf dem server muss ich beide db zuerst öffnen ?
Habe den befehl gefunden aber wie kriege ich den dann rein gedückt ..bin mir ja nicht mal sicher ob dieser code richtig zusammengestellt ist..

Dim session As New NotesSession
Set notesDatabaseReplica = notesDatabase.CreateReplica( "", DC.nsf )
Call session.SetEnvironmentVar( "Names", "names.nsf, DC.nsf", True )
Dim db As New NotesDatabase( "", "repliID" )
Call db.Remove

Semeaphoros:
ohnedasöffnenvondatenbankenkannmaninnotesfastnixmachendasgehtdassagenaber
auchdieentsprechendenfehlermeldungenundmansiehtesauchindenbeispieleninderhilfe

TMC:
Bitte gib uns mehr Großbuchstaben in Deinen Postings, sonst fällt das Lesen sehr schwer.

Wie mehrfach erwähnt: steht eigentlich alles in der Designerhilfe inklusive Beispiele.


--- Code: --- Const DB_REMOVE_SERVER$ = ""
Const DB_REMOVE_REPID$ = "0123456789012345"

On Error Goto ErrorHandler

Dim session As New NotesSession
Dim dbToRemove As NotesDatabase
Dim dbNewReplica As NotesDatabase
Dim strTitleDbToRemove As String

'Open Database by Replica ID
Set dbToRemove = New NotesDatabase("", "")
If Not dbToRemove.OpenByReplicaID(DB_REMOVE_SERVER, DB_REMOVE_REPID) Then
Error 1001, "Die zu löschende Datenbank kann nicht gefunden/geöffnet werden"
End If
strTitleDbToRemove = dbToRemove.Title

'Ask
If Not Msgbox ("Gewählte Datenbank: " & strTitleDbToRemove & Chr(10) _
& "Diese Datenbank wirklich dauerhaft löschen?",1 + 32, "Sicher?") = 1 Then Exit Sub

'Remove Database
Call dbToRemove.Remove

'Final msg
Msgbox "Datenbank <" & strTitleDbToRemove & "> wurde gelöscht !", 64, ""

GoOut:
Exit Sub
ErrorHandler:
Select Case Err
Case 4042: 'Database could not be deleted
Msgbox "Datenbank konnte nicht gelöscht werden, ein möglicher Grund: Ist gerade von einem anderen User geöffnet",48
Resume goOut
Case Else:
Msgbox "Fehler " & Err & " - " & Error$ & Chr(10) _
& "Fehler aufgetreten in Code-Zeile " & Erl, 48, "Laufzeitfehler"
Resume GoOut
End Select
--- Ende Code ---

Den Code stelle ich Dir zur Verfügung, damit Du mal den grundsätzlichen Aufbau von so etwas siehst.

sky-diver:
Danke, ja es staht alles in der Noteshilfe. Nur das Problem ist das zusammenhängen der einzelenen Scripts. Das steh ja nicht in der Hilfe. Ich versuche mal Dein Script zu Verstehen. Nun ist es für mich einfacher den Aufbau zu verstehen. Liege ich richtig, dass Du nur die Db gelöscht wird. Das Erstellen und den Eintrag in die Notes.ini werden noch nicht gemacht richtig?

Könnte ich nun weiterfahren mit meinen Script nach Deiner letzten Zeile.
Dim dbNewReplica hast du ja schon deklariert.

hoffeessindgnuggrossebuchstabenvorhanden

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete