Difference between revisions of "Databases/es"

From Free Pascal wiki
Jump to navigationJump to search
Line 189: Line 189:
 
=== Utilizando TSQLQuery ===
 
=== Utilizando TSQLQuery ===
  
Para más información sobre TSQLQuery see [[Working With TSQLQuery]]
+
Para más información sobre TSQLQuery ver [[Working With TSQLQuery/es]]
  
 
== Controles de datos ==
 
== Controles de datos ==

Revision as of 18:50, 9 June 2015

Deutsch (de) English (en) español (es) français (fr) italiano (it) 日本語 (ja) português (pt) русский (ru) 中文(中国大陆)‎ (zh_CN)

Trabajo en curso...

Artículos de programación de Bases de Datos

Referencias:

Tutoriales / artículos prácticos:

Introducción

   Esta página será una introducción al tema "Lazarus y las bases de datos. La tabla que sigue proporciona una visión general sobre las bases de datos soportadas. Es necesario actualizarla en breve, ya que se basa en el momento en que FPC 1.9.7 fue liberado. Advertencia: Sólo debe instalar los componentes de base de datos para los que ha instalado las librerías cliente, si la base de datos necesita de ellas; de lo contrario Lazarus podría no iniciarse debido a que faltan archivos. A continuación, no tendrías más remedio que volver a instalar Lazarus, porque desinstalar el componente no es posible. (En realidad no es tan grave, hay una alternativa: borrar el nombre del paquete o paquetes del archivo staticpackages.inc -en las últimas versiones este archivo se crea a partir del contenido de miscellaneousoptions.xml, y es este el archivo que hay que editar- y compilar el IDE desde la línea de órdenes con lazbuild --build-ide=)

Bases de Datos soportadas

Base
de Datos
Nombre
Paquete
¿Necesita
librerías?
¿Necesita
servidor?
Versiones
compatibles
Plataformas
compatibles
Advantage TAdsDataSet Si No 10.1 y superior i386: Linux, Win32
DBase DBFLaz No No III+, IV, VII Todas
In memory memds No No - Todas
In memory bufdataset No No - Todas
Interbase SQLdb Si Si 4 - 6 i386: Linux, Win32
Firebird SQLdb Yes Depende(1) 1 - 2.5 i386: Linux, Win32
FoxPro DBFLaz No No 2.0, 2.5, 3.0 (parcial) Todas
Microsoft SQL Server SQLdb Si Si 6- Linux, OSX, Win32, probablemente *BSD, probablemente Solaris(2)
MySQL SQLdb Si Si 3.0 - 5.5 i386: Linux, Win32
ODBC SQLdb Según SGDB 3.x (3) i386: Linux, Win32
Oracle SQLdb Si Si - -
Paradox TParadoxDataSet No No hasta tablas de nivel 7 (¿y más ?) Todas
PostgreSQL SQLdb Si Si 6.6 - 8 i386: Linux, Win32
Sybase Adaptive Server Enterprise (ASE) SQLdb Si Si Cualquiera Linux, OSX, Win32, probablemente *BSD, probablemente Solaris(2)
SQLite SQLite No - i386: Linux, Win32
Textfiles sdf No No - Todas


Nota (1) Se puede utilizar una versión embebida de Firebird en Windows y Linux(posiblemente en Mac OSX también), o puede conectarse a un servidor Firebird que corre en Windows/Unix/OSX/FreeBSD/y otras plataformas soportadas por Firebird.

Nota (2) Estos conectores utilizan la librería FreeTDS como driver. La documentación FreeTDS indica que debería contruir en al menos estas plataformas.

Nota (3) Este número de versión se refiere al estándar ODBC, no al número de versión de un controlador o un gestor de controladores. Hay controladores ODBC 3.x para la mayoría de los DBMS.

Los enlaces con los clientes de base de datos

   Si deseas utilizar alguna de las bases de datos que requieren de librerías cliente entonces dichas librerias tienen tienen que estar instaladas,no sólo en el equipo en que se programa, sino también en los equipos en que sen ejecutará la aplicación. Ten en cuenta que algunas bases de datos (MySQL, en particular) sólo funcionará si los vínculos usados al compilar la aplicación son de la misma versión que los de las librerías instaladas. Puedes averiguar cómo instalar las librerías (archivos .so en sistemas *nix, y .dll en windows) en la página web de los desarrolladores de la base de datos. Las unidades de enlace se pueden encontrar en los directorios base de los paquetes base en el fuente FPC. Básicamente consisten en llamadas al API de cliente como mysql_connect_database, que son completamente diferentes para cada base de datos. Es posible escribir aplicaciones de base de datos utilizando estas unidades, pero por lo general implica mucho más trabajo y se hace propenso a errores que la opción de utilizar los componentes de la unidad DB de Lazarus.

   La mayoría de estos paquetes de enlace están muy vinculadas a la librería clientes. Esto implica que si la aplicación se compila con una de estas unidades, toda la aplicación no podrá enlazarse si las librerías cliente no están disponibles en el equipo.Esto significa que tu programa ejecutable no se generará si no tienes instalado - por ejemplo - un cliente MySQL en tu ordenador y en cambio estás utilizando la unidad mysql14.pp.

   Si tienes éxito al compilar el programa en un equipo que tiene instaladas las librerias cliente de MySQL, ni siquiera se iniciará en otra máquina sin las librerías MySQL adecuadas. En otras palabras: para estas bases de datos, es necesario instalar las librerías de cliente en el equipo de desarrollo, y es necesario instalar estas bibliotecas de cliente con tu aplicación para que también funcione en otros equipos.

   Para evitar estos problemas algunos de los paquetes también son capaces de enlazar dinámicamente las librerías. Antes de hacer cualquier llamada a la librería, la unidad debe ser 'iniciada' (initialized). Este inicio falla si la base de datos de cliente no está instalada en el equipo. Al terminar de utilizar las librerías cliente la correspondiente unidad tiene que ser 'liberada' (released).

Conjuntos de datos (Datasets)

   La utilización de bases de datos en Lazarus (o FreePascal) se basa fundamentalmente en la clase TDataset. Esta representa una tabla o consulta de tu aplicación. Sin embargo, al igual que con muchas otras clases fundamentales, no se utiliza la clase TDataset en sí, sino una descendiente de ella. Hay muchas de este tipo, que proporcionan acceso a los diferentes tipos de bases de datos, como archivos locales dBase o de texto, o en servidores tales como bases de datos PostgreSQL, Firebird, MySQL, etc. Algunos descendientes de DataSet enlazan directamente a tablas de la base de datos, mientras que otros utilizan componentes o bibliotecas adicionales para establecer el enlace.

   Los descendientes de TDataSet, del tipo componentes no visuales forman parte (usualmente) de la Librería de Componentes Libre (FCL: Free Component Library) en lugar de la Librería de Componentes de Lazarus (LCL: Lazarus Component Library).

   Los conjuntos de datos (DataSet) se pueden utilizar tanto mediante programación directa como utilizando los controles visuales. En una aplicación típica de base de datos de Lazarus a menudo se utilizan ambos métodos. En cualquier caso, el primer paso es crear el descendiente TDataset, a continuación iniciarlo para conectar a la tabla, y abrirlo para realizar la consulta deseada. Esto se puede hacer tanto mediante código, en tiempo de ejecución, como situando un componente en el formulario y configurando sus propiedades en tiempo de diseño. Los detalles de este proceso varían considerablemente con cada diferente descendiente del TDataset, por tanto debes consultar las distintas guías disponibles para cada Base de Datos concreta.

   Cuando se abre (opened) el DataSet se crea un conjunto de componentes de campo (field), uno para cada campo o columna de la tabla o consulta que se abrió. Cada componente de campo es un descendiente de TField, apropiado para el tipo de datos en particular del campo como por ejemplo TStringField para una cadena, pero hay más.

Utilizando conjuntos de datos mediante código

Se explicará en mas detalle en Using Dataset and Field components, pero haciendo una simple descripción: Programmatic access will be explained in more detail in but as a very simple overview:

  • Utilizar el descenciente de TDataset para abrir la tabla o consulta (query), filtrar las filas que se necesitan y mover fila a fila.
  • Utilizar los descendientes de TField para:
    • Acceso general de información de los campos.
    • Acceso a los valores específicos de la fila actual. (utilizar las propiedades de As..., tales como AsString, AsInteger, etc.)
  • Acceder a los campos de un descendiente TDataset utilizando ambos:
    • Las propiedades del campo, eg Fields[0] es el primer campo,
    • El método FieldByName , eg FieldByName('EDAD') retorna el campo asociado con el campo de tabla de la base de datosasociado con el campo llamado 'EDAD'. (Cuidado con el uso de mayúsculas/minúsculas en los nombres de campo, ante la duda o fallos probar a poner el nombre en minúsculas, por ejemplo en PostgreSQL).

Ver Database_field_type para un listado de tipos de campo.

Utilizando los controles visuales (data-aware)

Para utilizar las bases de datos en un estilo simple de Lazarus "RAD: Rapid Application Deployment" se configura el descendiente de dataset en tiempo de diseño y se utilizan los controles data-aware. Para hacer esto:

  • Añadir el descendiente dataset para la base de datos elegida, junto con cualquier componente de soporte, al formulario y abrirlo (establecer la propiedad 'Active' a True).
  • Añadir un componente TDatasource(desde la solapa "Data Access") al formulario, y "enlazarlo" al dataset (establecer para ello la propiedad DataSet).
  • Añadir controles data-aware desde la solapa "Data Controls" al formulario, y enlazar cada uno de los componentes DataSource (fuente de los datos), pero no el dataset.
  • La mayor parte de los controles enlazan un simple campo, por lo tanto necesitas establecer además el campo (field) para cada solapa.

Ver #Data Controls más abajo para más detalles sobre los controles.

Estado de un Dataset

Los Datasets puede encontrarse en varios estados. Mientras tanto aqui tenemos unos pocos(buscar por TDataSetState en la fuente), los principales que podemos encontrar inicialmente son:

Estado Función
dsInactive El dataset está cerrado
dsBrowse El usuario puede moverse por el dataset, buscando valores
dsEdit El usuario puede editar valores en la fila actual. Los valores no se salvan hasta que se realiza el post.
dsInsert Se ha insertado una nueva fila (registro), y el usuario puede establecer valores. El campo no se salva hasta que no se realiza el post.

Los otros estados son claramente transitorios, y son manejados "automaticamente". Se utilizan internamente y en código más complejo. Si tu base de datos solo ve datos y abres el dataset en tiempo de ejecución entonces puedes ignorar ampliamente el estado, ya que se encontrará primordialmente como dsBrowse. Sin embargo, muchas aplicaciones necesitarán cambiar el dato a algún estado. Si estás utilizando controles data-aware, entonces ellos mismos manejarán la mayor parte de esto automáticamente. Si cambias el texto en un control DBEdit, por ejemplo, esto pondrá el dataset en estado dsEdit - al menos que ya se esté en estado dsEdit o dsInsert (ds=data state). Si te desplazas "scroll" a un campo diferente mientras el estado actual se encuentra en dsEdit o dsInsert, entonces este campo será posteado "posted" y el dataset se revierte a dsBrowse. A pesar de ello, si estás accediendo el dataset desde código, obtendrás un cambio de estado en código también. El control dbNavigator (ver más abajo) permite al usuario cambiar el estado explícitamente.

Envío (Post) y Cancelación (Cancel)

Si has editado o insertado un campo entonces los valored se mantienen almacenados en un buffer, por lo que están preparados para realizar una acción sobre ellos tales como Post o Cancel.

  • Llamando al método "cancel" del dataset remueve el nuevo campo (si hemos realizado un "insert") o revierte los valores a sus valores previos (si hemos realizado un "edit")
  • Llamando al método "post" del dataset salva los valores (si hemos realizado un "edit") o campos (si hemos realizado un "insert"). En algunos descendientes del dataset deben grabarse en la base de datos inmediatamente, mientras que en otros se almacenan en una lista hasta que se realiza una llamada posterior que produce el salvado de todos los cambios a la base de datos. Finalmente, incluso cuando son escritos a la base de datos, todavía habría que realizar una llamada al método "commit" para que la que la escritura se realice de forma permanente. Todo esto varía considerablemente con cada descendiente del dataset por lo que se hace necesario revisar los detalles para cada uno que se utiliza.

Insertando un nuevo registro (record)

Para insertar un nuervo registro dentro de un descendiente de TDataset se debe utilizar el método Insert. Después de esto, ya se pueden establecer los valores del campo y finalmente llamar a Post para realizar el commit (acometer) del nuevo registro, tal como muestra el siguiente ejemplo:

 MyDataset.Insert;
 MyDataset.Fields[0].AsInteger := 4;
 MyDataset.Fields[1].AsString := 'Nombre';
 MyDataset.Post;

Como saltar rápidamente a un registro de la tabla en particular

Después de seleccionar todos los registros de la tabla

Si utilizas SELECT * FROM tabla para seleccionar todos los registros de la tabla y entonces deseas saltar rápidamente entre ellos, entonces tienes que construir un índice y buscar en el mismo. Es mucho más eficiente seleccionar únicamente el registro que necesitas que la totalidad.

Selecionando únicamente el registro deseado

Una solución rápida para saltar a un registro en particular es simplemente "seleccioarlo en exclusiva", lo cual se puede realizar acotando con la cosulta de SQL, tal como se puede observar en el siguiente ejemplo:

 var
 MyDataset: TSQLQuery;
 begin
  //...
  MyDataset.FieldDefs.Add('SessionId', ftLargeint); {0} {ft = fieldtype}
  MyDataset.FieldDefs.Add('GameEvent', ftLargeint); {1}
  MyDataset.FieldDefs.Add('TableId', ftInteger);    {2}
  MyDataset.FieldDefs.Add('LoggedIn', ftBoolean);   {3}
  MyDataset.FieldDefs.Add('PlayerId', ftInteger);   {4 <=== este es el que queremos obtener}
  MyDataset.Active := False;
  SQLText := Format('select * from "GameSession" WHERE "SessionId"=%d', [ASessionId]);
  MyDataset.SQL.Text := SQLText;
  try
    MyDataset.Active := True; { Probamos a activar el dataset dentro de un bloque de intercepción de errores de forma que }
    {si no logra conectar podamos obtener retornado un tipo de error bien sea uno genérico (por defecto) u otro más especí-}
    {fico de la base de datos en particular pero eso lo tenemos que especificar.........}
  except
    //...
 end;

Entonces ya se puede leer información utilizando algo como lo siguiente:

 lPlayerId := MyDataset.Fields[4].AsInteger;

Utilizando TSQLQuery

Para más información sobre TSQLQuery ver Working With TSQLQuery/es

Controles de datos

Para utilizar cualquiera de estos controles, hay que añadir cualquiera de estos controles al formulario (form) y establecer al menos la propiedad datasource para indicarle la fuente de datos con que se asocia. Adicionalmente van a requerir establecer otras propiedades para su correcto funcionamiento.

Controles de un solo campo

En el caso de todos estos controles se vincula únicamente a un campo. Al igual que datasource hay que establecer el nombre de campo:

  • DBText control Muestra un campo de texto (solo lectura, sin borde).
  • DBEdit control Muestra / edita un campo de texto como en un edit box.
  • DBMemo control Muestra / edita un campo de texto en una caja de edición multilínea.
  • DBImage control Muestra una imagen almacenada en una base de datos como BLOB.
  • DBListBox control y DBComboBox Control Permite al usuario insertar valores en los campos de una base de datos desde un listado de valores en la propiedad Items (elementos) de los controles.
  • DBLookupListBox control y DBLookupComboBox control, ver además dblookupcombobox Permite al usuario insertar valores dentro de un campo de la base de datos mostrando el contenido de un campo lookup en otra tabla. Aunque estos controles almacenan su resultado en un solo campo, se necesita otro campo para los valores lookup. Nota: al menos para DBLookupComboBox, hay un error con FPC 2.6.0 que requiere que listfield esté presente en el datasource pero se puede saltar esto declarando un campo con el mismo nombre de listfield en el dataset del datasource que no hace nada.
  • DBCheckBox control Muestra/ edita un campo booleano mediante el marcado(checking)/(desmarcado (clearing) de un check box.
  • DBRadioGroup control Muestra los elementos tal como en un radio group, leyendo/estableciendo el valor del campo desde un listado de valores de correspondencia (matching values list).
  • DBCalendar control Muestra / edita un campo fecha utilizando un panel tipo calendario.
  • DBGroupBox control

Control DBGrid

Este control muestra n número de campos en una disposición de fila (registro) / columna (campo)- de hecho por defecto muestra todos. This control can show a number of fields in a row/column layout - in fact by default it shows them all. Sin embargo, se pueden poner entradas dentro de columns collection para restringirlos a unos campos específicos y establecer la anchura y títulos de cada columna.

Navigator Control

This control gives the user some direct control over the dataset. It allows the user to:

  • Mueve a los campos siguiente y previo así como al principio y final del campo.
  • Añade un campo nuevo (equivalente a la llamada a un método dataset.insert).
  • Pone el dataset en modo edición.
  • Borra (delete) un campo.
  • Envía (Post) o Cancela (Cancel) los cambios actuales.
  • Refresca los datos (útil en aplicaciones de bases de datos multiusuario).

Propiedades Key (podemos establecerlas al valor que deseemos según las necesidades):

  • VisibleButtons: Permite controlar lo que puede hacer el usuario. Por ejemplo,si los borrados(deletes) no están permitidos se oculta este pulsador. Si se tiene un DBGrid anexado a un dataset puede decidirse que no se necesitan los pulsadores previo y siguiente.
  • Width: Si no se muestran todos los pulsadores, posiblemente se necesite establecer la anchura al valor (altura*número de pulsadores visibles( height*number_of_visible_buttons).

Corriendo los test de bases de datos de FPC

Los componentes de bases de datos FreePascal incluyen un framework de prueba que se puede utilizar para probar la funcionalidad. Ver el directorio source\packages\fcl-db\tests\ en el árbol de directorios de instalación de FPC.

Lo incluido es un framework de prueba que se puede arrancar en varios componentes de bases de datos, así como en otros test (e.g. test de exportacion de bases de datos en XMLXSDExportTest.lpr).

Para arrancar el framework de prueba para una cierta base de datos hacer lo siguiente:

1. Salvar "source\packages\fcl-db\tests\database.ini.txt" como "source\packages\fcl-db\tests\database.ini"

2. Modificar source\packages\fcl-db\tests\database.ini para escoger el tipo de base de datos a utilizar.

Example: utilizar Interbase o Firebird: [Database] type=interbase

3. En el mismo fichero, configurar los valores para la base de datos a utilizar. E.g. si se escogió interbase anteriormente:

01 [interbase]
02 connector=sql
03 connectorparams=interbase
04 ; esto es un comentario, ya que comienza por ; los números de inicio de línea se han puesto para más claridad.
05 ;nombre de la base de datos. obviamente cambiar por el de la base de datos a utilizar.
06 name=testdb
07 user=sysdba
08 password=masterkey
09 ; tu hostname o nombre de equipo puede diferir del utilizado en este ejemplo (lógico).
10 hostname=192.168.0.42

4. Compila y arranca "source\packages\fcl-db\tests\dbtestframework.pas"

La salida se obtendrá en formato XML.


Para más detalles leer el fichero "source\packages\fcl-db\tests\README.txt"

Paquetes de Bases de Datos suministrados con Lazarus

sqldblaz.lpk

   Este paquete provee acceso a diferentes bases de datos. Incluye:

  • Interbase/Firebird
  • MySQL (Versiones: 4.0/4.1/5.0/5.1/5.5 en Lazarus 1.0.4).
  • Oracle
  • PostgreSQL (Versiones: hasta la 8.x en Lazarus 1.0.4)
  • SQLite (Versión: 3 en Lazarus 1.0.4)(con soporte para la extensión Spatialite)
  • Cualquier base de datos que tenga un driver ODBC.

   Los componentes (TSQLQuery, TSQLTransaction, TIBConnection, TODBCConnection, TOracleConnection, TMySQL40Connection, TMySQL41Connection, TMySQL50Connection, TPQConnection) se encuentran en la pestaña 'SQLdb' en la paleta de componentes.

dbflaz.lpk

   Este paquete provee acceso a las bases de datos dBase y FoxPro.Puedes obtener más información en la Tutoría de Lazarus Tdbf. El componente TDbf se localiza en la pestaña 'Data Access' en la paleta de componentes.

sqlitelaz.lpk

   Este paquete provee acceso a las bases de datos SQLite. Puedes obtener más información en la Tutoría de Bases de Datos Lazarus.

sdflaz.lpk

   El componente TSdfDataSet se encuentran en la pestaña 'Data Access' en la paleta de componentes.

lazreport.lpk

   La página principal del generador de informes es http://lazreport.sourceforge.net/. Más información y enlaces adicionales se encuentran en aquí. LazReport depende del paquete Printer4Lazarus. Con la revisión 11950 LazReport fué incluido el repositorio SVN de Lazarus.

Paquetes y librerías externas

Zeos DataBase Objects

   Los componentes de este paquete proveen acceso a diferentes bases de datos. Puedes obtener más información aquí. Este wiki contiene una tutoría Zeos.

Pascal Data Objects

Ahora hay una alternativa.

Soporta:

  • MySQL 4.1 y 5.0
  • sqlite-2 y sqlite-3
  • pgsql-8.1
  • interbase-5, interbase-6, firebird-1.0, firebird-1.5, firebird-1.5E, firebird-2.0, firebird-2.0E
  • mssql (librería Microsoft) y sybase (librería FreeTDS)
  • oracle
  • así como sentencias preparadas, enlace, y procedimientos almacenados son soportados por la API de base de datos llamada Pascal Data Objects, que se inspira en PHP Data Objects. Todo el código y la documentación necesaria para utilizar esta nueva API está disponible en aquí en Sourceforge:

TPSQL

   Los componentes de este paquete proveen acceso vía TCP/IP a bases de datos PostgreSQL. Puedes obtener más información en esta página.

FIBL

   Los componentes de este paquete proveen acceso a bases de datos Interbase y Firebird. La página principal está aquí.

FBLib Firebird, librería

   FBLib es una librería de fuente abierta sin componentes ligados a datos (No Data Aware) para acceso directo a bases de datos relacionales Firebird desde Borland Delphi/Kylix, Free Pascal y Lazarus.

   Las características actuales incluyen:

  • Acceso directo a to Firebird 1.0.x, 1.5.x y 2.x Classic o SuperServer
  • Multiplataforma [Win32,Gnu/Linux,FreeBSD)
  • Selección automática de la librería cliente 'fbclient' o 'gds32'
  • Consultas con parámetros
  • Soporte del dialecto SQL 1/3
  • Acuerdo de Licencia LGPL
  • Extracción de Metadata
  • Analizador simple de secuencias de comandos
  • Únicamente añade 100-150 KB al EXE final
  • Soporta campos BLOB
  • Exporta datos a HTML SQL Script
  • Administrador de servicios (copia de seguridad, restauración,gfix...)
  • Eventos de alerta

   Puedes descargar la documentación desde el sitio web FBLib's.

Unified Interbase

   UIB provee acceso a bases de datos Interbase, Firebird y YAFFIL. TLa página principal es www.progdigy.com. Un repositorio SVN está disponible aquí .

TechInsite Object Persistence Framework (tiOPF)

   Más información acerca de tiOPF se puede encontrar en esta página.