Loo andmeallikas:

Tools -> Data Sources -> New Data Source

Andmebaasi tüübiks nt. dBase

Kataloogiks näiteks 

file:///C:/temp/poekataloog

Ühenduse nimeks näiteks pood

Lisa tabelid: Liigu lipikule Tables
Väikese ikooni alt saab luua uue tabeli.

Tulpadeks nimetus (VARCHAR) ning hind (DECIMAL)

Tabeli nimeks kaubad.

Andmete lisamiseks käsklus

sub lisamine1
  toiming=createUnoService("com.sun.star.sdb.DatabaseContext").getByName("pood").getConnection("", "").createStatement()
  toiming.executeQuery("insert into kaubad (nimetus, hind) values ('piim', 4)")
end sub


Andmete vaatamiseks 

sub kysimine1
  toiming=createUnoService("com.sun.star.sdb.DatabaseContext").getByName("pood").getConnection("", "").createStatement()
  rs=toiming.executeQuery("select nimetus, hind from kaubad")
  while rs.next
    msgbox rs.getString(1)
  wend
end sub

Ning näha saab teadet "piim"

Kui andmeid enam lisada, siis paistab ka tulemus pikem. 



________________

sub paringud
Dim DatabaseContext As Object
Dim DataSource As Object
Dim QueryDefinitions As Object
Dim QueryDefinition As Object
Dim I As Integer
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Bibliography")
'Päringute massiiv
QueryDefinitions = DataSource.getQueryDefinitions()
For I = 0 To QueryDefinitions.Count() - 1
QueryDefinition = QueryDefinitions(I)
MsgBox QueryDefinition.Name
Next I
'QueryDefinition = createUnoService("com.sun.star.sdb.QueryDefinition")
'QueryDefinition.Command = "SELECT * FROM biblio"
'Uue päringu lisamine
'QueryDefinitions.insertByName("kala", QueryDefinition)
end sub