Verbindung zu externer DB2 Datenbank

[sarotti]

Hallo Xaver,

Du mußt einfach den Pfad (als URL) als Datenquelle angeben.

Code: Alles auswählen

sub DBVerb()

Dim oStatement, oErgSet as Object

	DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
	oDatenquelle = DatabaseContext.getByName("file:///C:/DeinPfad.odb")
	
	If not oDatenquelle.IsPasswordRequired Then
		oDatVerb = oDatenquelle.getConnection("","")
	else
		oHandler = oDatenquelle.createUnoService("com.sun.star.sdb.InteractionHandler")
		oDatVerb = oDatenquelle.ConnectWithCompletion(oHandler)
	end if

	oStatement = oDatVerb.createStatement()
	oStatement.ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE
	oStatement.ResultSetType = com.sun.star.sdbc.ResultSetType.SCROLL_SENSITIVE

sSQL="SELECT ......."

oErgSet=oStatement.executeQuery(sSQL)

end sub

...dann sollte es klappen...

Gruß
sarotti

[sarotti]

Hallo Xaver,

habe ein wenig gestöbert und bin auf dies hier gestoßen:

http://de.openoffice.org/doc/oooauthors ... binden.pdf

...wenn ich das richtig verstanden habe, dann erstellst Du eine Verbindung über einen ODBC Treiber, die Datenbank wird über eine odb-Datei hergestellt.

Sorry, aber das ist auch für mich absolutes Neuland....

Gruß
sarotti