Trabajando con ADO en Delphi

Para realizar una conexión con una BD sea cual sea (siempre que tengamos los drivers correctos), podemos hacerlo mediantes los componentes ADO que delphi nos suministra. En este caso los componentes a utilizar son estos:

• Configuración para la conexión con ADO:

En este caso, para conectarlos debemos configurarlos y entrar los parámetros necesarios para su correcto funcionamiento. Un esquema típico seria:

El TADOConnection contiene el ConnectionString que enlaza con la BD. A este componente se le conecta el TADOQuery que contiene la consulta SQL y hace peticiones a través del TADOConnection. El DataSetProvider se conecta al TADOQuery y provee el servicio para la conexión. El ClientDataSet contiene todos los campos de la tabla de nuestra consulta y finalmente a este le apunta el DataSource.

La configuración final quedaría de la siguiente manera:

• Ejemplo .dfm de delphi:

Aquí os dejo un ejemplo de la conexión con el .dfm del proyecto:

  object ADOConnection1: TADOConnection
 Connected = True
 ConnectionString =
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Server.mdb;Persist Security Info=False'
    LoginPrompt = False
 Mode = cmShareDenyNone
 Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 711
    Top = 414
  end
  object ADOQuery1: TADOQuery
 Active = True
 Connection = ADOConnection1
 CursorType = ctStatic
 CommandTimeout = 60
    Parameters = <>
    SQL.Strings = ('SELECT * FROM Table1')
    Left = 739
    Top = 414
  end
  object DataSetProvider1: TDataSetProvider
 DataSet = ADOQuery1
 Left = 768
    Top = 414
  end
  object ClientDataSet1: TClientDataSet
 Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    AfterPost = ClientDataSet1AfterPost
 Left = 797
    Top = 414
    object ClientDataSet1Id: TIntegerField
   FieldName = 'Id'
    end
    object ClientDataSet1Descripcion: TWideStringField
   FieldName = 'Descripcion'
      Size = 200
    end
  end
  object DataSource1: TDataSource
 DataSet = ClientDataSet1
 Left = 825
    Top = 414
  end