1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TOLE_OpenOffice.do_db(db:String);
var Context,DataBase,Conn,Stmt,Res   : Variant;
    strSQL, s : String;
begin
  // create database context
  Context := Service.createInstance('com.sun.star.sdb.DatabaseContext');

  // get the database
  DataBase :=Context.getByName(ToOOPfad(db));

  //establish connection to database
  Conn := DataBase.getConnection('','');

  //1create a statement service object
  Stmt := Conn.createStatement;

  //create an SQL command
  strSQL := 'SELECT * FROM TESTTABELLE';

  //1execute and store results in ResultSet Object
  Res := Stmt.executeQuery(strSQL);
  While Res.next do
  begin
    s := Res.getString(1);
  end;
    Conn.close;
End;                    

1:

Service := CreateOleObject('com.sun.star.ServiceManager');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TOLE_OpenOffice.ToOOPfad(Pfad:String):String;
var rueckgabe : string;
    i : integer;
begin
  rueckgabe := 'file:///';
  while (POS('\',pfad)>0) do
  begin
    i := POS('\',pfad);
    delete(pfad,i,1);
    Insert('/',pfad,i);
  end;
  rueckgabe := rueckgabe + pfad;
  result := rueckgabe;
end;