überprüfen ob verbindung zur datenbank

[benjy]

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: Alles auswählen

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

[Toxitom]

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: Alles auswählen

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

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

[benjy]

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

danke für deine antwort.
benjamin