gelöst!!!!!
http://groups.google.de/group/de.comp.o ... b277386b0e
sub DBRead
on error goto errDBRead
Dim oDrMan As Object
Dim oConn As Object
Dim oStat As Object
Dim oRes As Object
Dim oSheet As Object
Dim oTab As Object
Dim n As Integer
Dim dbInfoData(1) As New com.sun.star.beans.PropertyValue
' Object mit DriverManager erstellen
oDrMan = CreateUnoService("com.sun.star.sdbc.DriverManager")
' Login Timeout auf 10 Sek. festlegen
oDrMan.setLoginTimeout(10)
' username und password fuer die DB
dbInfoData(0).Name="user"
dbInfoData(0).Value="root"
dbInfoData(1).Name="password"
dbInfoData(1).Value="Joerg"
' Verbindung zum MySQL - Server über ODBC herstellen
' Auchtung: myodbc muß vorher bekannt sein ( odbc.ini )
oConn = oDrMan.getConnectionWithInfo("sdbc:odbc:myodbc",dbInfoData())
' Verbindung zum Adabas D Sever sieht so aus,
' wobei mich die 2 '::' im String "sdbc:adabas::MYDB" wundern.
' oConn = oDrMan.getConnectionWithInfo("sdbc:adabas::MYDB",dbInfoData())
' Ueberpruefen ob die Verbindung zustande gekommen ist
if(oConn.isClosed()) then
msgbox "Connection Error"
exit Sub
endif
' Ein Statement für die Verbindung erstellen
oStat = oConn.createStatement()
' SQL Query absenden
oRes = oStat.executeQuery("select * from computer_type")
' Damit Daten in ein Tabellenblatt geschieben werden koennen
oSheets = ThisComponent.Sheets
oTab = oSheets.getByName("Tabelle2")
' Alle gefundenen Ergebnisse der SQL-Query abarbeiten
n = 1
While oRes.next()
' Wert in Zelle Bn schreiben
oCell = oTab.getCellByPosition(1,n)
n = n+1
oCell.String = oRes.GetString(2)
Wend
' Sub beenden
exitDBRead:
exit Sub
' Fehler ist aufgetreten
errDBRead:
msgbox error$
resume exitDBRead:
End Sub
statt einem executeQuery dann ein executeUpdate:
oStat.executeUpdate("update table1 setz rf=2")
fertig.
Gruss
eckard