Funktion abbrechen

[keksi1970]

Hi,

also ich habe eine Funktion erstellt, die eine Verbindung zu einer Datenbank aufbaut. (dBase/ HSQLDB)
Um einen "gleichzeitigen" Zugriff aus diese Datenbank im Netzwerk zu verhindern, habe ich einfach einen Dialog (nur eine Statusbar mit bitte warten) erstellt, der erscheint, wenn die Datenbank "gelockt" ist und in einer Endlosschleife läuft (do while fileexist(datenbankname.odb.lck)) .

N un würde ich gerne eine Abbrechenschaltfläche in diesem Dialog erstellen. Das Problem ist, daß das Makro, welches auf diese Funktion zugreift, anscheinend weiterläuft, wenn ich die Funktion abbreche.

Ich möchte aber, daß beim klick auf die Schaltfläche alle Makros Beendet werden.

LG
Andreas

[turtle47]

Hallo Andreas,

ich meine das mal so gelöst zu haben.

Erstelle eine Sub für das Abbrechen

Code: Alles auswählen

Sub Abbrechen
Abbruch = 1
End Sub

Über Deiner Schleife schreibst Du

Code: Alles auswählen

Abbruch = 0

In Deine Schleife baust Du dann folgendes ein:

Code: Alles auswählen

If Abbruch = 1 then
msgbox "Abbruch durch Benutzer"
Exit Sub
End if

Die "Sub Abbrechen" legst Du dann auf eine Schaltfläche.

Ich hoffe das hilft.

Jürgen

[keksi1970]

Hi Jürgen,

hab ich irgendwie schon probiert,

daß Problem ist, ich rufe eine Funktion durch eine Sub auf, diese durchläuft die Schleife und solange die Datenbank nicht geschlossen ist, funktioniert meine Schaltfläche nicht (übrigens auch das "X" nicht, zum Schliessen des Dialoges (?)

LG
Andreas

[eBayer]

Hallo Andreas,
in Deiner Schleife rast Du mit Höchstgeschwindigkeit vom Anfang zum Ende zum Anfang...... (ich würde vermuten, daß die Przessorauslastung das auch ausweist)
Ohne es getestet zu haben, gehe ich davon aus, daß Du der Anwendung schlicht keine Zeit gibst, was anderes zu tun.
Bau doch einfach mal ein Wait 100 ein. Das unterbricht die Schleife kurz reicht aber trotzdem vollkommen aus, auf auf Den Abbruchbutton zu reagieren.
Schließlich ist es ohnehin unsinnig, im millisekundenbereich die fileexist-Abfrage durchzuführen.
Gruß und viel Erfolg
eBayer

[keksi1970]

Hallo Andreas,
in Deiner Schleife rast Du mit Höchstgeschwindigkeit vom Anfang zum Ende zum Anfang...... (ich würde vermuten, daß die Przessorauslastung das auch ausweist)
Ohne es getestet zu haben, gehe ich davon aus, daß Du der Anwendung schlicht keine Zeit gibst, was anderes zu tun.
Bau doch einfach mal ein Wait 100 ein. Das unterbricht die Schleife kurz reicht aber trotzdem vollkommen aus, auf auf Den Abbruchbutton zu reagieren.
Schließlich ist es ohnehin unsinnig, im millisekundenbereich die fileexist-Abfrage durchzuführen.
Gruß und viel Erfolg
eBayer

hab ich , sogar 500 (muß ja Zeit haben, daß .lck zu löschen, das Betriebssystem)
Ausserdem sieht man sonst den hübschen Fortschrittsbalken nicht so toll

Code: Alles auswählen

function getConnection
DIm sUrl as string
Dim a as integer
Dim b as  integer
GlobalScope.BasicLibraries.LoadLibrary("Tools")
Dialoglibraries.Loadlibrary("Standard")
WarteDlg = CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
WarteControl = WarteDlg.getControl("ProgressBar1")
sUrl = "L:\MeineDatenBank.odb.lck"
sUrl = ConvertToUrl(sUrl)

WarteControl.model.progressvaluemax = 40
'Do while Fileexists(sUrl)
'	WarteDlg.visible = true
'	If b = 0 then
'		a = a +1
'	else 
'		a = a -1
'	End If
'WarteControl.value = a
'If a = 40 then b = 1
'If a = 0 then b = 0
'wait 500
'loop
WarteDlg.visible = false
oDatabaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDatasource = oDatabaseContext.getbyname("file:///L:/MeineDatenbank.odb")
oConnection = oDatasource.getConnection("","")
oVerbindung = oConnection
End Function

dasd ist übrigens ein Teil des Codes

LG
Andreas ( die Warteschleife ist ausgeREMT, weil ich sie auf einem Einzelplatz nicht brauche)

[eBayer]

und trotzdem das Problem?
Das würde den Schuß nahelegen, daß Dein Fortschrittsbalken, der ja in einem eigenen Dialog läuft, Deine Interaktion verhindert.
Der Dialog ist ja modal und läßt keinen Zugriff außerhalb des eigenen Dialogs zu.
Lösung könnte sein, den Dialog des Fortschrittsbalkens mit einem Abbruchbutton auszustatten.
Viel Erfolg
eBayer

[keksi1970]

und trotzdem das Problem?
Das würde den Schuß nahelegen, daß Dein Fortschrittsbalken, der ja in einem eigenen Dialog läuft, Deine Interaktion verhindert.
Der Dialog ist ja modal und läßt keinen Zugriff außerhalb des eigenen Dialogs zu.
Lösung könnte sein, den Dialog des Fortschrittsbalkens mit einem Abbruchbutton auszustatten.
Viel Erfolg
eBayer

hab ich gemacht, der bekommt auch den Focus, aber das wars dann auch.(allerdings als Standard-Schaltfläche, nicht als direkten abbrechen-Button)

eine Alternative wäre nun, den Dialog samt Makro und Dokument komplett zu schliessen, aber nicht die evtl anderen geöffneten Dateien.

Nur wie anfangen ?

Bei Nichterfolg muß ich mir halt was anderes einfallen lassen, um einen "simulierten" Mehrbenutzer-Zugriff auf dBase zu ermöglichen.
LG
Andreas

[eBayer]

Hallo Andreas,
schau Dir mal das beiliegende Testprogramm an..... dachte ich, aber leider ist mein Kontingent offensichtlich erschöpft.
Wohin soll ich die Datei mailen?
Einfach ZIP-Datei entpacken, dann LibraryProgress.oxt per Doppelklick einbinden und das Programm aufrufen.
Im Progressbar ist ein Abbruch-Button.........
Das gesamte Coding befindet sich in der Library.
Gruß eBayer

[turtle47]

Hi,

aber leider ist mein Kontingent offensichtlich erschöpft

Habe ich gestern auch schon mit grossem Entsetzen festgestellt. Möchte mal gerne wissen was das soll.
Bin mir echt am überlegen, ob ich aussteigen soll, wenn man in seiner "Arbeit" jetzt so eingeschränkt wird.

Bis das die Sache geklärt ist habe ich mir nen Filehoster gesucht, bei dem man ohne weitere Angaben Dateien zum Download hosten kann.

Jürgen

[keksi1970]

naja, wir werden nur in unserem "Hobby" eingeschränkt

nichts desto trotz, ich habe erst 2 oder 3 files gehosted und darf trotzdem nimmer

also haben wir das gleiche Problem.

nicht schön, aber ein Admin wird sich bestimmt äussern.

Bleibt wohl nur die Alternative über eMail und Files schicken :/
Aber irgendwie möchten wir das wohl alle nicht, vor allem, da andere User daran nicht teilhaben können

LG
Andreas

[turtle47]

naja, wir werden nur in unserem "Hobby" eingeschränkt

ok, besser ausgedrückt.

nichts desto trotz, ich habe erst 2 oder 3 files gehosted und darf trotzdem nimmer

Naja, bei mir sind es 157. Da hätte ich das noch nachvollziehen können.

Bleibt wohl nur die Alternative über eMail und Files schicken :/
Aber irgendwie möchten wir das wohl alle nicht, vor allem, da andere User daran nicht teilhaben können

Deshalb externer Filehoster.

[eBayer]

Ok, versucht es mal hier, die Datei herunterzuladen.

http://www.imagenetz.de/f009e58a0/LibraryProgress.zip