Lazarus Database Overview/es: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Descripción
2	2
3	3		Este artículo es una descripción sobre que tipos de bases de datos pueden utilizarse con Lazarus.
4	4
5	5		Lazarus soporta varios tipos de bases de datos (utilizando e.g. el framework de SQLDB), sin embargo el desarrollador debe instalar los paquetes requeridos (librerías cliente) para cada una.
6	6
7	7		Se puede acceder a la base de datos por medio de código o ubicando componentes visuales en un formulario. Los componentes data-aware representan campos y se conectan estableciendo la propiedad de fuente de datos (DataSource) de manera que apunte a un TDataSource. El DataSource representa una tabla y se conecta a los componentes de bases de datos (ejemplos: TPSQLDatabase, TSQLiteDataSet) estableciendo la propiedad DataSet. Una vez establecido un DataSource correcto y accesible nos permite escoger un DataField concreto de los disponibles. Los componentes data-aware están localizados en la solapa "Data Controls". Los controles DataSource y DataBase están localizados en la solapa "DataAccess".
8	8
9	9		Ver tutoriales para acceso a bases de datos BBDD con Lazarus/FPC, suitable para Firebird, MySQL, SQLite, PostgreSQL etc:
10	10
11	11		- [[SQLdb Tutorial0]]
12	12		- [[SQLdb Tutorial1]]
13	13		- [[SQLdb Tutorial2]]
14	14		- [[SQLdb Tutorial3]]
15	15		- [[SQLdb Tutorial4]]
16	16
17	17		## Lazarus e Interbase / Firebird
18	18
19	19		- Por favor ver [[Firebird\|Firebird en acción]] para detalles sobre los distintos métodos de acceso, los cuales incluyen:
20	20
21	21		1. Soporte incluido internamente de SQLDB.
22	22		2. FBLib.
23	23		3. IBX.
24	24		4. PDO.
25	25		5. Zeos.
26	26
27	27		Para un tutorial que te guie a través de la manera de crear un GUI (Graphical User Interface) para una base de datos Firebird, ver:
28	28
29	29		- [[SQLdb Tutorial1/es]]
30	30
31	31		## Lazarus y MySQL
32	32
33	33		- Por favor echa un vistazo a [[mysql]] para más detalles sobre los distintos métodos de acceso, los cuales incluyen:
34	34
35	35		1. Soporte incluido internamente en SQLDB.
36	36		2. PDO.
37	37		3. Zeos.
38	38
39	39		--Jma sp 10:19, 19 June 2015 (CEST)== Lazarus y MSSQL/Sybase ==
40	40
41	41		Se puede conectar a un servidor de bases de datos SQL de Microsoft utilizando:
42	42
43	43		1. Incluido internamente en SQLdb (recientemente con Lazarus/FPC 2.6.1+): TMSSQLConnection (MS SQL) y TSybaseConnection (Sybase ASE)
44	44		1. Para Windows puedes descargar una versión reciente de la librería FreeTDS (disponible en versiones de 32 y 64 bits) dblib.dll desde: [\\| aquí](ftp://ftp.freepascal.org/fpc/contrib/windows/) o bien compilarla a partir de sus fuentes de una versión actualizada que se encuentra [\\| aquí](http://www.freetds.org/software.html)
45	45
46	46		1. 1. No necesario normalmente: mediante la modificación del fichero dblib.pas de FPC, SQLDB puede utilizar la librería "nativa" ntwdblib.dll en lugar de la librería por defecto FreeTDS dblib.dll (en este caso FPC necesita recompilarse).
47	47
48	48		1. 1. En Linux por defecto se utiliza la librería FreeTDS libsybdb.so (por ejemplo, en Debian se encuentra en el paquete libsybd5).
49	49
50	50		1. Componente Zeos mediante TZConnection (para el último CVS, ver enlaces a Zeos en esta página).
51	51
52	52		1. 1. En Windows se puede escoger entre la libería nativa ntwdblib.dll (protocolo mssql) o las librerías FreeTDS (protocolo FreeTDS_MsSQL-nnnn) donde nnnn es una de cuatro variantes dependiendo de la versión de servidor. Para Delphi (no Lazarus) existe además otro protocolo Zeos ado para MSSQL 2005 o posterior. Utilizando protocolos mssql o ado se genera código que no es independiente de la plataforma.
53	53
54	54		1. 1. En Linux el único camino es con los protocolos y librerías FreeTDS (debería utilizarse libsybdb.so).
55	55
56	56		1. ODBC (MSSQL y Sybase ASE) con SQLdb TODBCConnection ( \[<http://wiki.freepascal.org/ODBCConn#Connecting_to_Microsoft_SQL_Server>\\| ver además\])
57	57		1. En Windows utilizalas librerías nativas de Microsoft para ODBC (tales como sqlsrv32.dll para MSSQL 2000)
58	58
59	59		1. 1. En Linux utiliza unixODBC + FreeTDS (paquetes unixodbc o iodbc, y tdsodbc). Desde 2012 se tiene también un driver ODBC (versión 1.0) para Microsoft SQL Server. Existe además un driver ODBC (versión 1.0) para Linux que permite conectar con Microsoft SQL Server pero es un producto binario (no código abierto), de 64 bits y solamente para la distribución RedHat.
60	60
61	61		Para más detalles sobre el uso de SQLDB orientado a Sybase ASE y MSSQL Server consultar los ficheros de ayuda de FPC y Lazarus.
62	62
63	63		> Note: En cualquiera de las maneras mostradas se puede conectar utilizando el protocolo TCP/IP, e.g en el puerto 1433.
64	64
65	65		Si se utilizan librerías nativas de Microsoft (bajo Windows) es posible conectar a un servidor remoto con Named Pipes. Por contra las libería FreeTDS no soportan Named Pipes.
66	66
67	67		> Note: Lazarus 1.0 se ha creado con FPC 2.6.0 y no incluye TMSSQLConnection o TSybaseConnection. Si se necesitan la manera más sencilla es descargar el snapshot de la última compilación con FPC 2.6.1, instalándolo en un directorio diferente de la versión 1.0. Se puede utilizar --primary-config-path para establecer un ambiente diferente para que no interfiera con la existente.([[Multiple Lazarus\|ver]])
68	68
69	69		## Lazarus y ODBC
70	70
71	71		ODBC es un estandar genérico de conexión a bases de datos que está disponible en Linux, Windows y OSX. Para la conexión a la base de datos se necesita un driver ODBC y establecer una fuente de datos (data source) que también se conoce con DSN. Se pueden utilizar los componentes SQLDB (TODBCConnection) para conectar a una fuente de datos ODBC.
72	72
73	73		Para más detalles y ejemplos [[ODBCConn\|ver enlace]].
74	74
75	75		## Lazarus y Oracle
76	76
77	77		- Los métodos de acceso incluyen:
78	78
79	79		1. Soporte implementado internamente en SQLDB.
80	80
81	81		1. Zeos.
82	82
83	83		## Lazarus y PostgreSQL
84	84
85	85		- Ver [[postgres/es\|postgres]] para más detalles sobre los diversos métodos de acceso entre los que se incluyen:
86	86
87	87		1. Soporte implementado internamente SQLdb. Utilizar el componente TPQConnection de la paleta de SQLdb.
88	88
89	89		1. Zeos. Utilizar el componente TZConnection con el protocolo 'postgresql' de la paleta de Zeos Access.
90	90
91	91		## Lazarus y SQLite
92	92
93	93		SQLite es una base de datos embebida; el código de la base de datos puede distribuirse como una librería (.dll/.so/.dylib) con la aplicación para crear una autocontenida (comparable con Firebird embebido). SQLite es tan popular debido a su relativa simplicidad, velocidad, pequeño tamaño y soporte de plataforma cruzada.
94	94
95	95		Ver la página sobre [[SQLite]] para más detalles de los distintos métodos de acceso, entre los que se incluyen:
96	96
97	97		1. Soporte implementado internamente por SQLDb.
98	98
99	99		1. Zeos.
100	100
101	101		1. SQLitePass.
102	102
103	103		1. TSQLite3Dataset.
104	104
105	105		## Lazarus y dBase
106	106
107	107		FPC incluye un componente simple de base de datos que está derivado del TTable de Delphi llamado "TDbf". [TDbf Website](http://tdbf.sourceforge.net/)). Soporta varios formatos DBase y Foxpro.
108	108
109	109		TFbg no acepta mandatos SQL pero permite utilizar los métodos dataset, etc y también utilizar controles databound (asociados a datos) regulares como puede ser DBGrid. No requiere ningún tipo de motor de bases de datos para funcionar. También hay que recalcar que no es la mejor opción a escoger cuando la aplicación va a manejar grandes bases de datos.
110	110
111	111		Ver la [[Lazarus Tdbf Tutorial\|página de tutorial TDbf]] además de la documentación específica.
112	112
113	113		Se puede utilizar e.g. OpenOffice/LibreOffice Base para crear/editar visualmente este tipo de ficheros.
114	114
115	115		Cuando se ejecuta este código se crea una tabla con los datos de una colección de DVD's. Después de esto, todos los componentes data aware enlazados a través de TDataSource permitirá acceder a los datos de la tabla facilmente.
116	116
117	117		## Utilizando TSdfDataset y TFixedDataset
118	118
119	119		TSdfDataset y TFixedDataset son dos simples datasets que ofrecen un formato textual simple de almacenamiento.
120	120
121		-	`Estos datasets son muy convenientes para pequeñas bases de datos, porque están completamente implementados en una unidad Object Pascal y por tanto no requiere de liberías externas y porque su formato textual permite que sean editados facilmente con un editor de texto.`
	121	+	``` pascal
	122	+	Estos datasets son muy convenientes para pequeñas bases de datos, porque están completamente implementados en una unidad Object Pascal y por tanto no requiere de liberías externas y porque su formato textual permite que sean editados facilmente con un editor de texto.
	123	+	```
122	124
123	125		Note: En diciembre de 2012/FPC 2.7.1: SDFDataset se supone que puede ya leer y escribir ficheros CSV (Comma Separated Values) de acuerdo con RFC4180, pero todavía tiene algunos problemas con quoted fields, etc. Para más detalles ver [[CSV]].
124	126
125	127		Para comenzar con este formato se debe crear un fichero de base de datos inicial. El formato es muy simple por lo que puedes utilizar un editor de texto para ello.
126	128
127	129		El ejemplo que sigue es una base de datos para TSdfDataset. Hay que fijarse en que la primera línea tiene los nombres de cada campoy que se utilizan comas como separadores o delimitadores.
128	130
129	131		ID,NAMEEN,NAMEPT,HEIGHT,WIDTH,PINS,DRAWINGCODE
130	132		1,resistor,resistor,1,1,1,LINE
131	133		2,capacitor,capacitor,1,1,1,LINE
132	134		3,transistor npn,transistor npn
133	135
134	136		Este es un ejemplo de base de datos utilizado con TFixedDataset.Cada registro ocupa una cantidad fija de espacio y ,si el campo es menor que el definido, deberían utilizarse espacios para rellenarlo a ese tamaño.
135	137
136	138		Name = 15 chars; Surname = 15 chars; Tell = 10 chars; e_mail = 20 chars;
137	139		Piet Pompies piet@pompies.net
138	140
139	141		### Utilizando datasets directamente
140	142
141	143		Algunas veces resulta útil crear un dataset y trabajar con el completamente a nivel de código. Para lograr esto tenemos el siguiente ejemplo que permite hacer precisamente esto. Fíjate en algunas de las peculiaridades de TSdfDataset/TFixedDataset:
142	144
143	145		- Las líneas en la base de datos pueden tener un tamaño máximo de 300. Se está preparando una solución para esto.
144	146
145	147		- Es necesario añadir las definiciones de campo. Algunos datasets son capaces de rellenar esta información por si solos desde el fichero de base de datos.
146	148
147	149		- Se debe establecer FirstLineAsSchema a true, para inidcar que la primera línea incluye los nombres y posiciones del campo.
148	150
149	151		- La propiedad Delimiter (delimitador) contiene el separador para los campos. Dicho separador no podrá ser utilizado como carácter en las cadenas de la base de datos. Similarmente no será posible tener fines de línea en la base de datos porque marcan el cambio entre registros. Es posible salvar este inconveniente sustituyendo la coma que se necesita o el final de línea con cualquier otro carácter que sea poco o nada utilizado como puede ser el caso del carácter \#. Por ello cuando se muestran los caracteres por pantalla todos los caracteres \# pueden convertirse a finales de línea y a la inversa cuando se almacenan datos de nuevo en la base de datos. La rutina de reemplazado de cadena (ReplaceString) resulta útil para esto.
150	152
151	153		``` pascal
152	154		uses sdfdata, db;
153	155
154	156		constructor TComponentsDatabase.Create;
155	157		var
156	158		FDataset: TSdfDataset;
157	159		begin
158	160		inherited Create;
159	161
160	162		FDataset := TSdfDataset.Create(nil);
161	163		FDataset.FileName := vConfigurations.ComponentsDBFile;
162	164
163	165		// No necesariamente con TSdfDataset
164	166		// FDataset.TableName := STR_DB_COMPONENTS_TABLE;
165	167		// FDataset.PrimaryKey := STR_DB_COMPONENTS_ID;
166	168
167	169		// Añade definiciones de campo.
168	170
169	171		FDataset.FieldDefs.Add('ID', ftString);
170	172		FDataset.FieldDefs.Add('NAMEEN', ftString);
171	173		FDataset.FieldDefs.Add('NAMEPT', ftString);
172	174		FDataset.FieldDefs.Add('HEIGHT', ftString);
173	175		FDataset.FieldDefs.Add('WIDTH', ftString);
174	176		FDataset.FieldDefs.Add('PINS', ftString);
175	177		FDataset.FieldDefs.Add('DRAWINGCODE', ftString);
176	178
177	179		// Necesario para TSdfDataset
178	180		FDataset.Delimiter := ',';
179	181		FDataset.FirstLineAsSchema := True;
180	182		// Necesario para TSdfDataset
181	183		FDataset.Delimiter := ',';
182	184		FDataset.FirstLineAsSchema := True;
183	185
184	186		FDataset.Active := True;
185	187
186	188		// Establece el registro inicial
187	189		CurrentRecNo := 1;
188	190		FDataset.First;
189	191		end;
190	192		```
191	193
192	194		Cuando se utilice directamente TSdfDataset hay que prestar atención a RecNo, a pesar de que está implementado, no funciona en el sentido de moverse a través del dataset pero si leyendo y escribiendo registros. Las rutinas de navegación estandar tales como First, Next, Prior y Last funcionan como es de esperar por lo que no hay necesidad de utilizar RecNo en su lugar. Si sueles utilizar números absolutos de registro para navergar por la base de datos no hay problema en que implementes tu propia versión de RecNo. Para ello hay que declarar una variable global del tipo longint llamada CurrentRecNo, la cual contendrá el valor actual de RecNo. Recuerda que esta variable tendrá la misma convención que RecNo, por lo que el primer registro tendrá el número 1 (no es de base 0). Después de activar la base de datos se inicializa la base de datos al primer registro con TSdfDataset.First y establecer CurrentRecNo := 1
193	195
194	196		``` pascal
195	197		{@@
196	198		Mueve al registro deseado utilizando TDataset.Next y TDataset.Prior
197	199		Esto evita el uso de TDataset.RecNo el cual no navega fiablemente
198	200		por el dataset.
199	201
200	202		@param AID indica el número de registro. El primer registro tiene
201	203		el número 1 (no empieza por cero).
202	204		}
203	205		procedure TComponentsDatabase.GoToRec(AID: Integer);
204	206		begin
205	207		// Estamos antes del registro deseado, avanzar.
206	208		if CurrentRecNo < AID then
207	209		begin
208	210		while (not FDataset.EOF) and (CurrentRecNo < AID) do
209	211		begin
210	212		FDataset.Next;
211	213		FDataset.CursorPosChanged;ID: Integer);
212	214		begin
213	215		// Estamos antes del registro deseado, avanzar.
214	216		if CurrentRecNo < AID then
215	217		begin
216	218		while (not FDataset.EOF) and (CurrentRecNo < AID) do
217	219		begin
218	220		FDataset.Next;
219	221		FDataset.CursorPosChanged;
220	222		Inc(CurrentRecNo);
221	223		end;
222	224		end
223	225		// Estamos después del registro deseado, retroceder
224	226		else if CurrentRecNo > AID then
225	227		begin
226	228		while (CurrentRecNo >= 1) and (CurrentRecNo > AID) do
227	229		begin
228	230		FDataset.Prior;
229	231		FDataset.CursorPosChanged;
230	232		Dec(CurrentRecNo);
231	233		end;
232	234		end;
233	235		end;
234	236		```
235	237
236	238		### Utilizando controles data-aware
237	239
238	240		## Lazarus y Advantage Database Server
239	241
240	242		- Ver [[Advantage Database Server]] para más detalles sobre el uso de Advantage Database Server.
241	243
242	244		## Ver además
243	245
244	246		(Ordenados alfabéticamente)
245	247
246	248		- [[Databases]]
247	249		- [[Database field type]]
248	250		- [[Firebird]]
249	251		- [[How to write in-memory database applications in Lazarus/FPC]]
250	252		- [[Lazarus DB Faq/es\|Preguntas frecuentes sobre Lazarus DB]]
251	253		- [[Lazarus Tdbf Tutorial]]
252	254		- [[MS Access]]
253	255		- [[multi-tier options with fpc\|Multi-tier options with FPC]]
254	256		- [[MySQLDatabases]]
255	257		- [[ODBCConn]]
256	258		- [[SQLdb Tutorial1]]
257	259		- [[SqlDBHowto]]
258	260		- [[SQLite]]
259	261		- [[tiOPF]] - un Object Persistence Framework libre y de código abierto.
260	262		- [[Zeos tutorial]]
261	263
262	264		---
263	265		From the Free Pascal wiki, page "Lazarus Database Overview/es", as it stood on 2020-02-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history