<appSettings>
<add key="ConnectionString" 
 value="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\bornes\charentes.mdb;" />
</appSettings>

private connection : System.Data.OleDb.OleDbConnection ;

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
  connection := System.Data.OleDb.OleDbConnection.Create() ;
  connection.ConnectionString = configuration.AppSettings('ConnectionString') ;
end ;

uses System.Data.Odbc

uses System.Data.Odbc ;

var MyConString : String ;
      con : OdbcConnection ;
      MyCommand : OdbcCommand ;
      MyDataReader : OdbcDataReader ;
      ex : Exception ;

// Connection string for MyODBC 3.51 /*
MyConString := 'DRIVER={MySQL ODBC 3.51 Driver};' + 'SERVER=localhost;' +
               'DATABASE=ma_base;' + 'UID=root;' + 'PASSWORD=;' ;
try
   con := OdbcConnection.Create(MyConString) ;
   con.Open() ;
   MyCommand := OdbcCommand.Create() ;
   MyCommand.Connection := con ;

   MyCommand.CommandText := 'SELECT * FROM ma_table' ;
   MyDataReader := MyCommand.ExecuteReader() ;
   while MyDataReader.Read() do
   begin
      Response.Write( 'Data:' + MyDataReader.GetString(1) + ' ' + MyDataReader.GetString(2) ) ;
   end ;
   MyDataReader.Close() ;
   con.Close() ;
except 
   Response.Write(ex.Message) ;
end ;

uses MySQLDriverCS ;

var conn : MySQLConnection ;

conn := MySQLConnection.Create( MySQLConnectionString.Create('le_nom_du_serveur','le_nom_de_la_base_de_données',
                                                             'le_login', 'le_password').AsString ) ;

var dt1 , dt2 : DataTable ;
    ds  : DataSet ;

dt1 := DataTable.Create('Test') ;
dt2 := DataTable.Create('Test') ;
ds  := DataSet.Create() ;
ds.Merge(dt1) ;
ds.Merge(dt2) ;

var tuple : DataRow 
    table : DataTable 
    col1 , col2: DataColumn ; 

tuple := DataRow.Create() ; 
table := DataTable.Create() ; 
col1  := DataColumn.Create('Col1', GetType(System.Double) ) ; 
col2  := DataColumn.Create('Col' , GetType(System.String) ) ;

'on ajoute les colonnes à la datatable 
table.Columns.Add(col1) ;
table.Columns.Add(col2) ; 
'on crée un rows 
tuple := table.NewRow(); 
'on le remplis 
tuple.Item(0) := 1 ;
tuple.Item(1) := 'Première tuple de mon datatable' ;
'on l'ajoute à la table 
table.Rows.Add(tuple) ;
'on crée un rows 
tuple := table.NewRow() ; 
'on le remplis 
tuple.Item(0) := 2 ;
tuple.Item(1) := 'deuxième tuple de mon datatable' ;
'on l'ajoute à la table 
table.Rows.Add(tuple) ;