Zitat
RockWilder schrieb:
Indem du dir z.B. die Trial-Version des 7er Clients von IBM runterlädst...
geht es auch Volumenschonender?
Zitat
RockWilder schrieb:
Indem du dir z.B. die Trial-Version des 7er Clients von IBM runterlädst...
geht es auch Volumenschonender?
weiß einer von euch wo ich die Mailschablone von R7 herbekomme? :-?
habe die Lösung schon selber gefunden... manchmal ist notes echt sehr eigen..
hier die Lösung, trotzdem danke
Sub Click(Source As Button)
Dim db As NotesDatabase
Dim oe As String
Dim s As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument
Dim nl As String
Dim uiDoc As NotesUIDocument
Dim ws As New NotesUIWorkspace
Dim f_pc As String
Dim view2 As NotesView
Dim dc As NotesDocumentCollection
Set db = s.CurrentDatabase
Set view = db.GetView("(alle)")
Set doc = view.GetFirstDocument
Set uiDoc = ws.CurrentDocument
Set view2 = db.GetView("(oes)")
nl = Chr(10) & Chr(13)
oe = ""
'Msgbox "Dieser Vorgang kann etwas Zeit in Anspruch nehmen."& nl &"Bitte warten Sie, bis ihr Cursor von der Sanduhr wieder zum Pfeil wird!"
While Not (doc Is Nothing) And doc.hwoe(0) <> "032"
If oe <> doc.hwoe(0) Then
oe = doc.hwoe(0)
f_pc = |SELECT ((Form="Hardwaremaske"))& ((HWOE="|& oe &|"))& ((Geräteart="PC"))|
Call uiDoc.FieldAppendText("text", oe & nl)
view2.SelectionFormula = f_pc
Set dc = view2.GetAllDocumentsByKey(oe,True)
Call uiDoc.FieldAppendText("text", "Anzahl PCs: "& dc.Count & nl)
End If
Set doc = view.GetNextDocument(doc)
Wend
End Sub
Alles anzeigen
und wieder ein Problem meinerseits... hach ja.. in meiner Ausbildung hab ich noch viel zu lernen
hier mein Code:
Sub Click(Source As Button)
Dim db As NotesDatabase
Dim oe As String
Dim s As New NotesSession
Dim view As NotesView
Dim doc As NotesDocument
Dim nl As String
Dim uiDoc As NotesUIDocument
Dim ws As New NotesUIWorkspace
Dim f_pc As String
Dim view2 As NotesView
Dim dc As NotesViewEntryCollection
Set db = s.CurrentDatabase
Set view = db.GetView("(alle)")
Set doc = view.GetFirstDocument
Set uiDoc = ws.CurrentDocument
Set view2 = db.GetView("(oes)")
nl = Chr(10) & Chr(13)
oe = ""
'Msgbox "Dieser Vorgang kann etwas Zeit in Anspruch nehmen."& nl &"Bitte warten Sie, bis ihr Cursor von der Sanduhr wieder zum Pfeil wird!"
While Not (doc Is Nothing) And doc.hwoe(0) <> "032"
If oe <> doc.hwoe(0) Then
oe = doc.hwoe(0)
f_pc = |SELECT ((Form="Hardwaremaske"))& ((HWOE="|& oe &|"))|
Call uiDoc.FieldAppendText("text", oe & nl)
view2.SelectionFormula = f_pc
Set dc = view2.AllEntries
Call uiDoc.FieldAppendText("text", "Anzahl PCs: "& dc.Count & nl)
End If
Set doc = view.GetNextDocument(doc)
Wend
End Sub
Alles anzeigen
(ich weiß, dass ich kein collection hätte machen müssen, aber die Funktion notesview.EntryCount bringt das gleiche Problem n ach sich.
und hier mein Problem:
okay Jungs, ich danke euch für eure Hilfe. Ich werde noch die ein oder andere Sache versuchen.
Gruß
Patri
also du hast eine DB ertsellt und deine Mitarbeiter schicken an diese DB die Urlaubsanträge mit diesem vorgefertigtem Text als ganz normale mail an deine datenbank. Habe ich das soweit richtig verstanden?
Wäre es in dem Fall nicht einfacher den Mitarbeitern ein Maske bereitzustellen in der sie nur noch die Daten eingeben müssen und dann hast du sie auch in den entsprechenden Feldern!?
Ich danke euch für eure Unterstützung, ich werd mal sehen wie ich weiter verfahre.
Gruß
Patri
das sind dann Shcnittstellen, die man direkt auf dem Server installieren muss?! und sind die kostenlos?
Ist es möglich die daten auch direkt vom Oracle-Server zu ziehen?
woran kann ich denn nun erkennen wo der fehler liegt?
hat niemand von euch bisher soetwas gemacht?
in der LOG von dem Mailserver wo ich in der mail.box das document erstelle oder ist das falsch?
ZitatAlles anzeigen
Diali schrieb:
Also ich finde von 8 Stunden auf
16.000 Datensätze * 54 Sekunden / 200 Datensätze ist 1 Stunde und 12 Minuten.
Die Verbesserung ist doch super.
Gruß
Dirk
ja, ist eine verbesserung aber noch immer inakzeptabel. Das muss innerhalb von Minuten wenn nicht sogar Sekunden geschehen.
Aspirin schrieb:
Mehr Arbeitsspeicher einbauen + schnelleren Prozessor...
und wenn die daten von einem anderen server geholt werden,
der nicht weit weg ist, könnte man die Datenrate auch gleich erhöhen und FiberChanell Kabel benutzen...
auch daran habe ich bereits gedacht. Nochmal zum auffruschen. Ich exportiere die Daten aus einer Oracle-Datenbank in eine CSV-Datei die dann bei mir lokal aufm Rechner liegt. Dann will ich sie in eine lokale DB importieren (später mal in eine DB aufm Server) Die CPU- und Speicherauslastung ist fast gleich null. Also kann es an der Hardware nicht liegen. Aber woran liegt es dann?
04.10.2005 14:59:19 Netzwerk: Verbindungsaufbau zu S144LN03/meine firma über TCPIP
04.10.2005 14:59:19 Netzwerk: Verbunden mit Server S144LN03/meine firma
04.10.2005 14:59:19 Router: 1 Nachrichten an S144LN03/meine firma über Notes übertragen
04.10.2005 14:59:42 Netzwerk: Verbindungsaufbau zu S144LN03/meine firma über TCPIP
04.10.2005 14:59:42 Netzwerk: Verbunden mit Server S144LN03/meine firma
04.10.2005 14:59:42 Router: 1 Nachrichten an S144LN03/meine firma über Notes übertragen
das sind die letzten Meldungen aus der Minute wo ich das Dokument gespeichert habe. Leider kann ich nicht nachvollziehen, ob das auch meine mail war. Immerhin haben wir über 700 Mitarbeiter, die auch mails abschicken.
so nun hab ich es eingebaut.. aber leider hat es noch immer nicht den erwünschten erfolg erbracht (200 datensäte in 54sekunden)
wir haben beides nicht. Aber das mit split werde ich versuchen.
Ich werde mein bestes versuchen..
darauf kann ich leider nicht zugreifen.(log)
den debugger lass ich mal laufen..
Ich bin nun Entwickler und jetzt sind dort einige Fehlermeldungen drin, aber halt nichts von heute.
Habe nun eine Ansicht darine rstellt, die alle Dokumente anzeigen soll, aber hier sind dennoch keine drin :\
Habe mich nun durch den ganzen Papierkram wegen des datenschutzes durchgearbeitet und nun muss ich lieder melden, dass dort im Protokoll für den heutigen Tag nichts eingetragen ist :o