Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

# Access2Base

## Τι είναι Access2Base;

Access2Base είναι μια βιβλιοθήκη μακροεντολών της LibreOffice Basic για προγραμματιστές εφαρμογών (επαγγελματικές ή προσωπικές) και για προχωρημένους χρήστες. Είναι μία από τις αποθηκευμένες βιβλιοθήκες στο "Μακροεντολές και διάλογοι του LibreOffice".

Οι παρεχόμενες λειτουργίες από τις υλοποιημένες μακροεντολές εμπνέονται όλες απευθείας από την Microsoft Access. Οι μακροεντολές καλούνται κυρίως από μια εφαρμογή του LibreOffice τη Base, αλλά έχει επίσης νόημα από οποιοδήποτε έγγραφο του LibreOffice (Writer, Calc, ...) που προσπελάζει αποθηκευμένα δεδομένα σε μια βάση δεδομένων.

Η API που παρέχεται από την Access2Base προορίζεται να είναι πιο περιεκτική, ευκολονόητη και εύκολη στην εκμάθηση από την τυπική API UNO (API = διεπαφή προγραμματισμού εφαρμογών).

Η βιβλιοθήκη τεκμηριώνεται δικτυακά στο http://www.access2base.com.

## Οι υλοποιημένες μακροεντολές περιλαμβάνουν:

1. απλοποιημένο και επεκτάσιμο API για χειρισμούς φορμών, διαλόγων και στοιχείων ελέγχου παρόμοια με το πρότυπο αντικειμένου Microsoft Access,

2. μια API για πρόσβαση βάσεων δεδομένων με αντικείμενα πινάκων, ερωτημάτων, συνόλου εγγραφών και πεδίων,

3. αριθμό από ενέργειες με σύνταξη ταυτόσημη με τις αντίστοιχες τους στις μακροεντολές/ενέργειες του Microsoft Access,

4. τις συναρτήσεις βάσης δεδομένων DLookup, DSum, ...

5. υποστήριξη της σημειογραφίας συντομεύσεων όπως Forms!myForm!myControl

και επιπλέον

6. έναν χειριστή ομοιόμορφων σφαλμάτων και εξαιρέσεων,

7. λειτουργίες για φόρμες προγραμματισμού, διαλόγους και στοιχεία ελέγχου συμβάντων και

8. υποστήριξη και ενσωματωμένων φορμών και αυτόνομων φορμών (Writer).

## Σύγκριση της Access2Base με VBA Microsoft Access

    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