OpenOffice.info

Code: Alles auswählen

DatenBanken = createUnoService("com.sun.star.sdb.DatabaseContext")
NeueDatenBank= DatenBanken.createinstance()
NeueDatenBank.url="sdbc:dbase:c:\text\daten"
NeueDatenBank.DatabaseDocument.storeAsURL("file:///c:/test.odb",getArgs())
DatenBanken.registerObject("NeueDB", NeueDatenBank)

Code: Alles auswählen

DatenBanken = createUnoService("com.sun.star.sdb.DatabaseContext")
NeueDatenBank= DatenBanken.createinstance()
NeueDatenBank.url="sdbc:flat:D:\test"
Dim myProps(1) as New com.sun.star.beans.PropertyValue
 myProps(0).Name="Extension"
 myProps(0).Value="gwd"
 myProps(1).Name="FieldDelimiter"
 myProps(1).Value="^"
 
NeueDatenBank.Info=myProps()
 dim getargs()
NeueDatenBank.DatabaseDocument.storeAsURL("file:///c:/test23.odb",getArgs())
DatenBanken.registerObject("NeueDB1", NeueDatenBank)

Code: Alles auswählen

Function OoInstallDatasource(oo_sm As Variant, _
str_filepath As String, str_name As String) As Boolean
    
    Dim oo_dc As Variant    ' DatasourceContext
    Dim oo_ds As Variant    ' DataSource
    Dim oo_dbdoc As Variant ' DatabaseDocument
    Dim arr() As Variant    ' registration parameter
    
    
' ### initialize ###
    
    OoInstallDatasource = False
    
    
' ### register data source file ###
    
' get database context service
    Set oo_dc = oo_sm.createInstance("com.sun.star.sdb.DatabaseContext")
    
' remove existing datasource named by str_name
'   If (oo_dc.hasByName(str_name)) Then
'       If OoRemoveDataSource(oo_sm, str_name) = False Then Goto terminate
'   End If
    
' create new datasource instance
    ReDim arr(0)
    Set arr(0) = OoMakePropertyValue(oo_sm, "Overwrite", False)
    Set oo_ds = oo_dc.createInstance()
    
    Set oo_dbdoc = oo_ds.DatabaseDocument()
    Call oo_dbdoc.storeAsURL(ConvertToURL(str_filepath), arr)
    Call oo_dbdoc.store
    
    oo_ds.URL = "sdbc:calc:" & ConvertToURL(str_filepath)
    
' register data source
    Call oo_dc.registerObject(str_name, oo_ds)
'   Call oo_dc.revokeObject(str_name)
'   Call oo_dc.registerObject(str_name, oo_ds)
    
    
' ### return value ###
    
    OoInstallDatasource = True
    
    
' ### terminate ###
    
terminate:
    If Not (IsEmpty(oo_ds)) Then Set oo_ds = Nothing
    If Not (IsEmpty(oo_dc)) Then Set oo_dc = Nothing
    Exit Function
    
End Function

Code: Alles auswählen

NeueDatenBank.DatabaseDocument.storeAsURL("file:///C:/Users/Devil/Desktop/OpenOffice Makro/TestSeriendruck.odb",getArgs())

Code: Alles auswählen

DatenBanken = createUnoService("com.sun.star.sdb.DatabaseContext")
NeueDatenBank= DatenBanken.createinstance()
NeueDatenBank.url="sdbc:flat:C:\Users\Devil\Desktop\OpenOffice Makro\TestSeriendruck.TXT"
NeueDatenBank.DatabaseDocument.storeAsURL("file:///C:/Users/Devil/Desktop/OpenOffice Makro/TestSeriendruck.odb",getArgs())
DatenBanken.registerObject("NeueDB", NeueDatenBank)

Code: Alles auswählen

DatenBanken = createUnoService("com.sun.star.sdb.DatabaseContext")
NeueDatenBank= DatenBanken.createinstance()
NeueDatenBank.url="sdbc:flat:C:\Users\Devil\Desktop\OpenOffice Makro\Test.TXT"
Dim myProps(1) as New com.sun.star.beans.PropertyValue
 myProps(0).Name="Extension"
 myProps(0).Value="txt"
 myProps(1).Name="FieldDelimiter"
 myProps(1).Value=";"
 
NeueDatenBank.Info=myProps()
 dim getargs()
NeueDatenBank.DatabaseDocument.storeAsURL("file:///C:/Users/Devil/Desktop/OpenOffice Makro/Test.odb",getArgs())
DatenBanken.registerObject("NeueDB1", NeueDatenBank)