Hallo Matthias,
Matthias Uhl schrieb:
Hallo Liste,
ich bin grad' am Programmieren eines Makros, mit dem ich u.a. auf eine
dBase Datenbank zugreifen muss.
Um die Datenbank in OOo einzubinden, muss man eine Datenquelle
erstellen.
die Datenquelle dBase existiert ja, und wenn Du kein MailMerge machen
willst, brauchst Du sie ja auch nicht registrieren.
Bsp. für OOo 2.0:
oEnvironment = createUNOService("com.sun.star.sdbc.DriverManager")
sDatabaseURL = "sdbc:dbase:" & "file:///PathToMydBaseFile.dbf"
mDBProperties(0).Name = "CharSet"
mDBProperties(0).Value = "ibm850"'ggf. anpassen
oConnection =
Environment.getConnectionWithInfo(sDatabaseURL,mDBProperties())
oStatement = oConnection.CreateStatement
sQuery = "Select * From MYTABLE"
oResult = oStatement.ExecuteQuery(sQuery)
While oResult.next'auf den ersten Datensatz positionieren
for i = 1 to oResult.MetaData.ColumnCount
Array(i) = oResult.GetString(i)'für TextFelder
Next
wend
oConnection.Close
Peter
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
