Forum społeczności użytkowników OpenOffice i LibreOffice

Kod: Zaznacz cały

alter table "stara" rename to "nowa"

Kod: Zaznacz cały

sub zmianaNazwyTabeliWBazie()
    Dim DatabaseContext As Object
    Dim DataSource As Object
    Dim Connection As Object
    Dim InteractionHandler as Object
    Dim Statement As Object
    Dim ResultSet As Object

    DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
    DataSource = DatabaseContext.getByName("moja baza") rem wpisz nazwę pod jaką Twoja baza jest zarejestrowana (przy użyciu tej metody dostępu musi być zarejestrowana)

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

    Statement = Connection.createStatement()
    ResultSet = Statement.executeQuery("ALTER TABLE ""stara"" RENAME TO ""nowa""")
    rem zależnie od konfiguracji, może być potrzebne zatwierdzenie zmiany poleceniem Commit
    Connection.Close()

end sub