OpenOffice.info

Code: Alles auswählen

sub resetAll()
	dim Tables as Object
	dim sSQL		as String		
	dim oConnection	as Object	
	dim oSQLQuery	as Object

	Tables		= ThisComponent.DataSource.Tables.ElementNames
	oConnection	= ThisDatabaseDocument.DataSource.GetConnection("","")	

	dim i as Integer
	for i = 0 to uBound( Tables)
		Print(Tables(i))
		sSQL	= "DELETE FROM ?"
	
		sSQL		= replace( sSQL, "?", """" & Tables(i) & """")
		oSQLQuery	= oConnection.createStatement()
		oSQLQuery.executeUpdate( sSQL)

		sSQL	= "ALTER TABLE ? ALTER COLUMN ""ID"" RESTART WITH 0"

		sSQL		= replace( sSQL, "?", """" & Tables(i) & """")
		oSQLQuery	= oConnection.createStatement()
		oSQLQuery.executeUpdate( sSQL)
	next
end sub

Code: Alles auswählen

thisdatabasedocument.datasource.Tables.removebyname("alteTabelle")

Code: Alles auswählen

Select TABLE_NAME from INFORMATION_SCHEMA.SYSTEM_TABLES WHERE TABLE_SCHEM = 'PUBLIC'

Code: Alles auswählen

sub delete_Karteileichen
    dim Tables as Object
    dim sSQL      as String      
    dim oConnection   as Object   
    dim oSQLQuery   as Object
    dim bfound as boolean
    
    sTables      = ThisComponent.DataSource.Tables.ElementNames
    oConnection   = ThisDatabaseDocument.DataSource.GetConnection("","")   
    SSql = "Select TABLE_NAME from INFORMATION_SCHEMA.SYSTEM_TABLES WHERE TABLE_SCHEM = 'PUBLIC'"
    oSQLQuery   = oConnection.createStatement()
    
    for i = 0 to ubound(sTables)
        bfound = false
        sTable = sTables(i)
        SQLResult = oSQLQuery.executequery(sSQL)
        while SQLResult.next
            sexistingTable = SQLResult.getstring(1)
            if sexistingTable = sTable then bfound = true
        wend
        if not bfound then thisdatabasedocument.datasource.Tables.removebyname(sTable)
    next i
end sub

Code: Alles auswählen

    for i = ubound(sTables) to 0 step -1