OpenOffice.info

[quote]Hallo Stephan,
versuch es so:[/quote]

Danke, das funktioniert offensichtlich fehlerfrei, auch die Tabellenanzahl für die Biblio-DB wird richtig wiedergegeben.


Gruß
Stephan

[quote]Für MySQL z.B. [/quote]

Danke, ich fand durch Deine Anregung jetzt auch das hier:
http://www.oooforum.de/viewtopic.php?t=62148

was ich vorher übersehen hatte.


Gruß
Stephan

Sub Main
    oController = ThisDatabasedocument.CurrentController
    if not oController.isConnected Then Controller.Connect
    oConnection = oController.ActiveConnection
    oTables = oConnection.Tables
    xray oTables
    nTables = oTables.Count
    print nTables
    for i = 0 to nTables - 1
        oTable = oTables(i)
        oColumns = oTable.Columns
        xray oColumns.ElementNames
    next i
End Sub

Hallo Stephan,
versuch es so:

[code]Sub Main
oController = ThisDatabasedocument.CurrentController
if not oController.isConnected Then Controller.Connect
oConnection = oController.ActiveConnection
oTables = oConnection.Tables
xray oTables
nTables = oTables.Count
print nTables
for i = 0 to nTables - 1
oTable = oTables(i)
oColumns = oTable.Columns
xray oColumns.ElementNames
next i
End Sub[/code]

Gruß R

select column_name from INFORMATION_SCHEMA.COLUMNS where table_name = 'Tabellenbeispiel'

Für MySQL z.B.
[code]select column_name from INFORMATION_SCHEMA.COLUMNS where table_name = 'Tabellenbeispiel'[/code]

Ichwäre mir nicht sicher, was als Tabelle-0 angesehen wird, das kann auch was internes sein.
Habe ich nie ausprobiert... Namen sind da sicherer.

Mfg, Jörn

Msgbox Thiscomponent.DataSource.Tables.getByIndex(0).Columns.Count

Msgbox Thiscomponent.DataSource.Tables.Count

Hallo,

ich habe eine DAtenbankdatei (*.odb) geöffnet und verwende testweise folgenden Code:

[code]Msgbox Thiscomponent.DataSource.Tables.getByIndex(0).Columns.Count[/code]

Dieser Code liefert jedoch teils falsche ERgebnisse, d.h. es wird teils 0 teils eine zu niedrige Zahl für die Spalten angezeigt.

Das geschieht sowohl für Datemnbanken mit internener HSQLDB wie auch per ODBC verknüpfte MySQL-Datenbanken.

Für z.B. die mitgelieferte Datenbank Biblio ergibt sich ebenfalls ein anders komisches Ergebnis, denn:

[code]Msgbox Thiscomponent.DataSource.Tables.Count[/code]

liefert 2, obwohl Biblio ja nur eine Tabelle hat.



[b]Was mache ich falsch oder was ist an der API defekt?

Mein eigentliches Ziel ist es im Übrigen, für eine Datenbank die Spaltennamen aller Tabellen auszulesen.
[/b]


Gruß
Stephan