Access2Base

What is Access2Base?

Access2Base er et LibreOffice Basic bibliotek med makroer for (forretning eller personlig) applikasjonsutviklere og avanserte brukere. Det er ett av bibliotekene som er lagret i "LibreOffice makroer og dialoger".

The functionalities provided by the implemented macros are all directly inspired by Microsoft Access. The macros are callable mainly from a LibreOffice Base application, but also from any LibreOffice document (Writer, Calc, ...) where access to data stored in a database makes sense.

API-en som kommer med Access2Base er mer konsise, intuitive og lettere å lære enn de vanlige UNO API-ene. (API = Application Programming Interface eller applikasjonsprogrammeringsgrensesnitt på norsk).

Advarselsikon

The library is documented online on http://www.access2base.com.


De implementerte makroene inkluderer:

  1. a simplified and extensible API for forms, dialogs and controls manipulations similar with the Microsoft Access object model,

  2. an API for database access with the table, query, recordset and field objects,

  3. a number of actions with a syntax identical to their corresponding Microsoft Access macros/actions,

  4. the DLookup, DSum, ... database functions,

  5. støtte for snarveinotasjon som Forms!myForm!myControl.

in addition

  1. a consistent errors and exceptions handler,

  2. facilities for programming form, dialog and control events and

  3. the support of both embedded forms and standalone (Writer) forms.

Sammenlign Access2Base med MSAccess VBA

REM Open a form ... 

          OpenForm("myForm") 

REM Move a form to new left-top coordinates ... 

          Dim ofForm As Object  ' In VBA =>  Dim ofForm As Form 

          Set ofForm = Forms("myForm") 

          ofForm.Move(100, 200) 

REM Get the value of a control ... 

          Dim ocControl As Object 

          ocControl = ofForm.Controls("myControl") 

          MsgBox ocControl.Value 

REM Hide a control ... 

          ocControl.Visible = False 

REM ... or alternatively ... 

          setValue("Forms!myForm!myControl.Visible", False)  '  Shortcut notation 

          ' In VBA =>  Forms!myForm!myControl.Visible = False