OpenOffice.info

Ich hatte gehoft das es eine Schönere methode giebt
Na ja fuktioniern tut sie.

danke für deine antwort.
benjamin

sub weissnichtwie
 on error goto fehler
.... 'hier dein Code
 exit sub
 fehler:
 msgbox "Es ist ein Fehler aufgetreten!"
end sub

Hey benjy,

Wieso willt du das überprüfen? Was wäre denn das Ergebnis, wenn keine Verbindung besteht? Dann funktioniert das Makro nicht und du musst aufhören?

Das einfachst ist, du impementierst eine Fehlerroutine. im Einfachsten Fall geht die so:
[code]
sub weissnichtwie
on error goto fehler
.... 'hier dein Code
exit sub
fehler:
msgbox "Es ist ein Fehler aufgetreten!"
end sub[/code]

Das kann man natürlich noch verbesssern. Aber: jetzt erscheint die Fehlermeldung nicht merh (wenn keine Verbindung besteht), sondern es wird verzweigt zum "fehler:" Label und der Code dort fortgesetzt.

Gruss
Thomas

	oDBContext=CreateUnoService("com.sun.star.sdb.DatabaseContext") 
	oDataSource=oDBContext.GetByName(sDBName)
	oDBConnection=oDataSource.GetConnection("","") 'hier kommt dann immer die Fehler meldung
	oStatement=oDBConnection.createStatement()

hi ich hab das problem das ich immer einen Fehler bekomme wenn meine Datenbank nicht online ist.

wie kann ich vor dem verbinden ermitteln ob ein Zugriff auf die datenbank möglich ist oder nicht?

[code] oDBContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource=oDBContext.GetByName(sDBName)
oDBConnection=oDataSource.GetConnection("","") 'hier kommt dann immer die Fehler meldung
oStatement=oDBConnection.createStatement()[/code]