TStorageProvider für ADO verwenden

Verwendung von TStorageProviderADODB mit einer MS ACCESS Datenbank:

uses SOUnit,SOStorageProviderADOUnit,ADODB;
.
.
.
var sp : TStorageProviderADODB;
    adoConn : TADOConnection;

procedure TForm1.OpenDatabase;

begin
  // ADOConnection anlegen

  adoConn:=TADOConnection.Create(nil);
  adoConn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source="' + 
                            ExtractFilePath(Application.ExeName) + 'test.mdb";Persist Security Info=False'

  // StorageProvider initialisieren
  
  sp := TStorageProviderADODB.Create(adoConn);
  sp.SetDBType(dbtAccess, 0); // 0 = Version der Datenbank -> keine Vorgabe.

  // Verbindung öffnen
  
  sp.Open;
end;