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


Comments

Popular Posts