OpenOffice.info

Hat ne Weile gedauert, bis ich herausbekommen habe, wie das hier erwähnte Importieren funktioniert.
Also, falls jemand herausfinden möchte, wie genau das geht:

[list]
[*]Zellbereich in calc markieren (die Zelle einer Zeile über dem Datensatz muss als Kopfzeile mit markiert werden)
[*]kopieren
[*]in das Base Fenster wechseln
[*]Tabellen anklicken
[*]Zieltabelle markieren und Kontextmenü mit rechter Maustaste aufrufen
[*]Einfügen
[*]Weiter klicken
[*]Zieltabelle: gewünschte Spalte auswählen und ganz nach oben bringen (mit den Pfeilen)
[*]Fertig stellen klicken[/list]

könnte auch einfacher gehen, aber wenn man weiß wie es geht, ist's ja einfach :)

Maggus

2009-05-03

Sub Import_Data
Dim DatabaseContext As Object
Dim DataSource As Object
Dim oStatement As Object
Dim Connection As Object

   DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
   DataSource = DatabaseContext.getByName("MyDatabase")'Name der DB anpassen


   If Not DataSource.IsPasswordRequired Then
   Connection = DataSource.GetConnection("","")
Else
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If

   oStatement = Connection.createStatement()

   Name1 = "Openoffice" 'Text Feldtyp Text [Varchar]
   Datum1 = "2009-05-03" 'das Datum muss in diesem Fomat vorliegen für den Feldtyp Datum [Date]

   oStatement.executeUpdate ("Insert into ""Tabelle1"" (""Name"", ""Datum"") values" +_
	"('" & Name1 & "' ,'" & Datum1 & "')")
   Connection.close()
End Sub

Hallo NetterLausbub,

versuche es mal mit dem Import wenn das Datumsformat wie folgt vorliegt:

[code]2009-05-03[/code]

Mit einem Makro funktioniert das bei mir wie folgt:
[code]Sub Import_Data
Dim DatabaseContext As Object
Dim DataSource As Object
Dim oStatement As Object
Dim Connection As Object

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("MyDatabase")'Name der DB anpassen


If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If

oStatement = Connection.createStatement()

Name1 = "Openoffice" 'Text Feldtyp Text [Varchar]
Datum1 = "2009-05-03" 'das Datum muss in diesem Fomat vorliegen für den Feldtyp Datum [Date]

oStatement.executeUpdate ("Insert into ""Tabelle1"" (""Name"", ""Datum"") values" +_
"('" & Name1 & "' ,'" & Datum1 & "')")
Connection.close()
End Sub[/code]

Ich hoffe das funktioniert auch bei Dir.

Gino

Hallo Michael,
Du scheinst etwas zu verwechseln. Jede bei OOo angemeldete Datenbank, die Datenquelle ist dabei egal, steht
[list]Base
Writer
Calc[/list]
zu Verfügung.

D. h, wenn Du z. B. eine CSV-Datei (Verzeichnis) als Datenbank angemeldest, kannst Du die darin enthaltenen Daten mit den vorgenannten Produkten weiterverarbeiten. Auch ein Import in die interne Datenbank HSQLDB von Base ist innerhalb des Datenbank-Explorers durch rüberziehen mit der Maus möglich.

Ich denke, dass es sich bei der CSV-Datei nicht um einen einmaligen Vorgang handelt. Ich wollte Dir deshalb einen einfachen und schnellen Weg aufzeigen. Wenn Du einmalig ein Verzeichnis für CSV-Dateien in OOo als Datenbank angemeldet hast und es werden weitere CSV-Dateien in dieses Verzeichnis kopiert, sind die Dateien, ohne dass Du sonst noch was zu tun hast, sofort im Datenbank-Explorer von OOo sichtbar.

Hallo NetterLausbub,
Du kannst die CSV-Datei über [color=#0000FF]Datei/Neu/Datenbank[/color] Option [color=#0000FF]Verbindung zu einer bestehenden Datenbank herstellen[/color] Auswahl [color=#0000FF]Text [/color] anmelden, dann hast Du Sie in Base, Calc und Writer zur Verfügung.