von F3K Total » Mo, 13.02.2012 18:31
Hi Robert,
bei meiner embeddet Hsqldb kann man alle vorhandenen Tabellen mit einem Schlag so einblenden:
Code: Alles auswählen
Sub S_table_filter_of
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
odb=DatabaseContext.getByName(replace(thisdatabasedocument.Title,".odb",""))
atablenames = odb.tables.elementnames
odb.TableFilter=atablenames
End Sub
... und ausblenden ...
Code: Alles auswählen
Sub S_table_filter_on
dim afilter() as string
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
odb=DatabaseContext.getByName(replace(thisdatabasedocument.Title,".odb",""))
odb.TableFilter=afilter()
End Sub
... und nur Tabelle1 einblenden ...
Code: Alles auswählen
Sub S_table_filter_off_for_table1
dim afilter(0) as string
afilter(0)="Tabelle1"
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
odb=DatabaseContext.getByName(replace(thisdatabasedocument.Title,".odb",""))
odb.TableFilter=afilter()
end sub
Gruß R
Hi Robert,
bei meiner embeddet Hsqldb kann man alle vorhandenen Tabellen mit einem Schlag so einblenden:
[code]Sub S_table_filter_of
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
odb=DatabaseContext.getByName(replace(thisdatabasedocument.Title,".odb",""))
atablenames = odb.tables.elementnames
odb.TableFilter=atablenames
End Sub[/code]
... und ausblenden ...
[code]Sub S_table_filter_on
dim afilter() as string
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
odb=DatabaseContext.getByName(replace(thisdatabasedocument.Title,".odb",""))
odb.TableFilter=afilter()
End Sub[/code]
... und nur Tabelle1 einblenden ...
[code]Sub S_table_filter_off_for_table1
dim afilter(0) as string
afilter(0)="Tabelle1"
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
odb=DatabaseContext.getByName(replace(thisdatabasedocument.Title,".odb",""))
odb.TableFilter=afilter()
end sub[/code]
Gruß R