Lazarus Database Tutorial/es: what changed

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

Old	New		Line
1	1		## Introducción
2	2
3	3		Este documento explica cómo hacer trabajar a Lazarus con una variedad de bases de datos.
4	4
5	5		Lazarus admite varias bases de datos externas, sin embargo, el desarrollador debe instalar los paquetes requeridos (liberías de cliente) para cada uno de los SGBD. Puede acceder a la base de datos a través de código o poniendo componentes en un formulario. Los componentes ligados a datos representan los campos y se conectan mediante dando valor a la propiedad DataSource para que apunte a un origen de datos (TDataSource). El origen de datos representa una tabla y se conecta a los componentes de base de datos (por ejemplo: TPSQLDatabase y TSQLiteDataSet) estableciendo la propiedad DataSet. Los componentes de datos se encuentran en la pestaña "Data Controls". El origen de datos y los controles de bases de datos se encuentran en la pestaña "Data Access".
6	6
7	7		## Lazarus e Interbase / Firebird
8	8
9	9		### Soporte integrado (componentes SQLDB)
10	10
11	11		Ver las páginas de turorías y consejos:
12	12
13	13		- [[Firebird]]
14	14		- [[SQLdb Tutorial1]]
15	15
16	16		Ver tambien [[Install Packages/es\|Instalar paquetes]]. En esta página hay un pequeño ejemplo y una explicación acerca de cómo conectarse a un servidor de IB o FB.
17	17
18	18		### Zeos
19	19
20	20		Firebird tambien funciona con la última versión de la librería Zeos (desde cvs).
21	21
22	22		### Librería FBLib Firebird
23	23
24	24		[FBLib](http://fblib.altervista.org) es una librería de fuentes abiertas, para acceder directamente a las BD relacionales Firebird desde Borland Delphi, Kylix, Free Pascal y Lazarus.
25	25
26	26		La funcionalidad actual incluye:
27	27
28	28		- Acceso directo a Firebird 1.0.x 1.5.x, 2.x Classic o SuperServer
29	29		- Multiples plataformas \[Win32,Gnu/Linux,FreeBSD)
30	30		- Selección automática de la librería cliente 'fbclient' o 'gds32'
31	31		- Consultas SQL parmetrizables
32	32		- Suporta el dialecto 1/3 de SQL
33	33		- Licencia LGPL
34	34		- Extrae Metadatos
35	35		- Analizador simple de guiones
36	36		- Únicamnete añade 100-150 KB al EXE final
37	37		- Suporta campos BLOB
38	38		- Exporta Datos a HTML, SQL, Script
39	39		- Gestor de servicios (copias de seguridad,volcados,gfix...)
40	40		- Alertas de Eventos
41	41
42	42		Puedes bajar la documentación de [sitio de FBLib](http://fblib.altervista.org/).
43	43
44	44		[Aquí](http://www.firebirdnews.org/?p=1769) puedes encontrar versiones actualizadas. O, mira en el [svn](https://tiopf.svn.sourceforge.net/svnroot/tiopf/3rdParty/FBLib/Trunk) (Consejo de [Guionardo](http://wiki.lazarus.freepascal.org/User:Guiosoft))
45	45
46	46		## Lazarus y MySQL
47	47
48	48		by ChrisKirk
49	49
50	50		1. Poner a trabajar MySQL en Linux o Windows, en modo consola.
51	51		2. Poner a trabajar MySQL con FPC en modo texto.
52	52		3. Poner a trabajar MySQL en un formulario Lazarus.
53	53		4. Descargue el Código fuente de ejemplo de MySQL
54	54
55	55		### 1 - Poner a trabajar MySQL en Linux o Windows
56	56
57	57		Siga las instrucciones del Manual del Usuario de MySQL. Asegúrese que el demonio mysqld esté corriendo adecuadamente, y que todos los potenciales usuarios (incluyendo a root, mysql, usted mismo y cualquier otro que lo necesite) tengan tantos privilegios como requieran, desde la cantidad de hosts que sean necesarios (incluyendo a 'localhost', el nombre de la misma máquina y de las otras integrantes de su red) hasta el grado de seguridad que se requiera. Es recomendable que todos los usuarios, incluyendo a root, tengan contraseña. Pruebe el funcionamiento del sistema de base de datos usando los ejemplos dados en el manual y verifique que todos los usuarios posean acceso a la misma.
58	58
59	59		### 2 - Poniendo a trabajar MySQL con FPC en modo texto
60	60
61	61		Hay un directorio con un ejemplo en \$(FreePascal_directory)/packages/base/mysql/, este directorio también contiene las unidades mysql.pp, mysql_com.pp y mysql_version.pp. Antes de correr los scripts de testeo debe crear la base de datos llamada testdb: Hágalo conectándose en la consola de mysql (como root con privilegios totales) y escriba la siguiente sentencia SQL
62	62
63		-	~~` CREATE DATABASE testdb;`~~
	63	+	```text
	64	+	CREATE DATABASE testdb;
	65	+	```
64	66
65	67		asegúrese que todos los usuarios que lo necesiten tengan el apropiado privilegio de acceso a ésta base.
66	68
67		-	~~` GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword'; `~~
	69	+	```text
	70	+	GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword';
	71	+	```
68	72
69	73		Hay un script llamado mkdb que debería tratar de correr:
70	74
71		-	~~` sh ./mkdb`~~
	75	+	```text
	76	+	sh ./mkdb
	77	+	```
72	78
73	79		Ésto probablemente fallará, debido a que el sistema no debería permitir a un usuario anónimo acceder a la base de datos. Por consiguiente modifique el script utilizando un editor para que la línea que invoca a mysql diga:
74	80
75		-	~~` mysql -u root -p ${1-testdb} << EOF >/dev/null`~~
	81	+	```text
	82	+	mysql -u root -p ${1-testdb} << EOF >/dev/null
	83	+	```
76	84
77	85		pruebe correrlo nuevamente, ingresando su contraseña cuando se la pida. Con suerte Ud. ya habría creado la base de datos de prueba, verifíquelo (conectado a la consola de mysql) escribiendo la siguiente sentencia
78	86
79		-	~~` select * from FPdev;`~~
	87	+	```text
	88	+	select * from FPdev;
	89	+	```
80	90
81	91		Debería ver la tabla listando el ID, nombre y dirección de email de algunos de los desarrolladores de FPC.
82	92
83	93		Ahora trate de correr el programa de testeo testdb.pp (puede ser necesario compilarlo y ¡seguramente fallará en el primer intento!).
84	94
85	95		He encontrado que el programa no puede conectarse a mysql por diversas razones:
86	96
87	97		- Mi sistema (SuSE Linux v9.0) instala mysql v4.0.15, no la versión 3 para la cual fue diseñado el programa.
88	98
89	99		- El programa necesita tener nombres de usuarios y contraseñas para acceder a la base de datos.
90	100
91	101		- El compilador necesita saber dónde encontrar las bibliotecas mysql ( SI AÚN NO HA INSTALADO LAS BIBLIOTECAS DE DESARROLLO DE MYSQL, ¡HÁGALO AHORA!)
92	102
93	103		Generé una copia de testdb.pp llamada trydb.pp, en lugar de modificar el original (ésto significa que el archivo original se actualizará automáticamente en las siguientes actualizacione por CVS). También copié los archivos encontrados en el subdirectorio mysql/ver40/ en el subdirectorio principal mysql/ , renombrandolos mysql_v4.pp, mysql_com_v4.pp y mysql_version_v4.pp, asegúrese de renombrar las unidades dentro de cada archivo según corresponda. Modifique la sentencia uses en trydb.pp a
94	104
95	105		``` pascal
96	106		uses mysql_v4
97	107		```
98	108
99	109		y la sentencia en mysql_v4.pp a
100	110
101	111		``` pascal
102	112		uses mysql_com_v4
103	113		```
104	114
105	115		Agregué una línea a /etc/fpc.cfg que apunta a mis bibliotecas:
106	116
107		-	~~` -Fl/lib;/usr/lib`~~
	117	+	```text
	118	+	-Fl/lib;/usr/lib
	119	+	```
108	120
109	121		y en /usr/lib debo encontrar el nombre real de la biblioteca mysqlclient. En mi caso utilicé la línea de comandos:
110	122
111		-	~~` ln -s libmysqlclient.so.12.0.0 lmysqlclient`~~
	123	+	```text
	124	+	ln -s libmysqlclient.so.12.0.0 lmysqlclient
	125	+	```
112	126
113	127		para crear un enlace simbólico permitiendo a FPC encontrar la biblioteca. Como buena media también creé el link
114	128
115		-	~~` ln -s libmysqlclient.so.12.0.0 mysqlclient`~~
	129	+	```text
	130	+	ln -s libmysqlclient.so.12.0.0 mysqlclient
	131	+	```
116	132
117	133		y ubiqué varios enlaces similares en otros directorios: no son estrictamente necesarios, ¡pero por si acaso!. Parece que algunos usuarios necesitan agregar tembién el siguiente link:
118	134
119		-	~~` ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`~~
	135	+	```text
	136	+	ln -s libmysqlclient.so.12.0.0 libmysqlclient.so
	137	+	```
120	138
121	139		Modifiqué trydb.pp para incluir el detalle del usuario, inicialmente agregando el host, usuario y contraseña como constantes:
122	140
123	141		``` pascal
124	142		const
125	143		host : Pchar= 'localhost';
126	144		user : Pchar= 'myusername';
127	145		passwd: Pchar = 'mypassword';
128	146		```
129	147
130	148		También me encontré que no podía conectarme a mysql usando la llamada mysql_connect(), la cual tiene muchos más parámetros. Para complicar las cosas aún más, el número de parámetros parece haber cambiado entre la versión 3 (donde son siete) y la versión 4 (donde son ocho). Antes de usar mysql_real_connect tengo que usar mysql_init() la cual no se encuentra en el archivo original mysql.pp, pero si está en mysql_v4.pp.
131	149
132	150		Por lo tanto, el código para la conexión a la base de datos ahora es:
133	151
134	152		``` pascal
135	153		{ a few extra variables}
136	154		var
137	155		alloc : PMYSQL;
138	156		{main program fragment}
139	157		begin
140	158		if paramcount=1 then
141	159		begin
142	160		Dummy:=Paramstr(1)+#0;
143	161		DataBase:=@Dummy[1];
144	162		end;
145	163		Writeln ('Allocating Space...');
146	164		alloc := mysql_init(PMYSQL(@qmysql));
147	165		Write ('Connecting to MySQL...');
148	166		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
149	167		if sock=Nil then
150	168		begin
151	169		Writeln (stderr,'Couldn''t connect to MySQL.');
152	170		Writeln (stderr, 'Error was: ', mysql_error(@qmysql));
153	171		halt(1);
154	172		end;
155	173		Writeln ('Done.');
156	174		Writeln ('Connection data:');
157	175		{$ifdef Unix}
158	176		writeln ('Mysql_port : ',mysql_port);
159	177		writeln ('Mysql_unix_port : ',mysql_unix_port);
160	178		{$endif}
161	179		writeln ('Host info : ',mysql_get_host_info(sock));
162	180		writeln ('Server info : ',mysql_stat(sock));
163	181		writeln ('Client info : ',mysql_get_client_info);
164	182		Writeln ('Selecting Database ',DataBase,'...');
165	183		if mysql_select_db(sock,DataBase) < 0 then
166	184		begin
167	185		Writeln (stderr,'Couldn''t select database ',Database);
168	186		Writeln (stderr,mysql_error(sock));
169	187		halt (1);
170	188		end;
171	189		{... as original contents of testdb.pp}
172	190		```
173	191
174	192		Ahora, ¿preparado para comenzar a compilar trydb.pp?
175	193
176		-	~~`fpc trydb`~~
	194	+	```text
	195	+	fpc trydb
	196	+	```
177	197
178	198		¡éxito! Ahora lo ejecutamos:
179	199
180		-	~~`./trydb`~~
	200	+	```text
	201	+	./trydb
	202	+	```
181	203
182	204		¡Epaaa! ¡Ya tengo la lista de desarrolladores de FPC!
183	205
184	206		Unos cuantos refinamientos extras: haga interactivos la entrada del nombre de usuario y de los comandos a la base de datos, usando variables en vez de constantes y permita varias sentencias SQL usuarios, vea el código fuente del programa donde el usuario es ingresado desde la consola, y el programa entra en un ciclo donde se aceptan comandos SQL (sin el punto y coma final) y se visualizan las respuestas, hasta que se ingresa la palabra 'quit'.
185	207
186	208		Vea un ejemplo de salida
187	209
188	210		### 3 - Conectando a MySQL desde una Aplicación Lazarus
189	211
190	212		Este documento muestra cómo conectar Lazarus a la base de datos MySQL, y ejecutar consultas simples, usando sólo los componentes básicos de Lazarus; no utiliza componentes conectados a datos, pero ilustra los principios de interacturar con la base de datos.
191	213
192	214		Cree un nuevo proyecto en Lazarus:
193	215
194	216		Project -\> New Project -\> Application
195	217
196	218		Automáticamente aparecerá un nuevo Form.
197	219
198	220		Aumente el tamaño del form hasta la mitad de la pantalla, lugo renómbre el formulario y su título como 'TryMySQL'.
199	221
200	222		Desde la pestaña de Componentes Standard ubique tres controles de edición en el lado superior izquierdo e inmediatamente arriba de cada control ubique una etiqueta. Cambie los nombres y los títulos a 'Host' (y HostLabel, HostEdit), 'UserName' (and UserLabel, UserEdit) y 'Password' (con PasswdLabel y PasswdEdit). Como alternativa podría haber utilizado el componente LabelledEdit desde la pestaña Adicionales.
201	223
202	224		Seleccione el cuadro de edición Passwd y busque la propiedad PasswordChar: cambiela a * o algún otro caracter, para que cuando ingrese la contraseña no aparezcan los caracteres en su pantalla y sólo se muestren una serie de *. Asegúrese que la propiedad Texto de cada cuadro de edición está en blanco.
203	225
204	226		Ahora ubique otra caja de edición y una etiqueta en el extremo superior derecho de su formulario. Cambie la etiqueta a 'Ingrese el comando SQL' y nómbrelo como CommandEdit.
205	227
206	228		Ubique tres botones en el formulario: dos en la parte izquierda, bajos los cuadros de edición y uno a la derecha bajo el cuadro de comando.
207	229
208	230		Nombre los botones en la izquierda como 'Conectar a la base de datos' (ConnectButton) y 'Salir' (ExitButton) y al de la derecha como 'Enviar consulta' (QueryButton).
209	231
210	232		Ubique un campo memo largo etiquetado 'Resultado' (ResultMemo) en la parte inferior derecha que cubra la mayor parte del espacio. Busque su propiedad ScrollBars y seleccione ssAutoBoth, para que ambas barras aparezcan automáticamente si el texto llena el espacio. Marque la propiedad WordWrap como Verdadera.
211	233
212	234		Inserte una barra de estado (desde la pestaña Common Controls) en el fondo del formulario y ponga en la propiedad SimpleText 'TryMySQL'.
213	235
214	236		Una captura de pantalla del formulario puede ser vista en: Ejemplo de pantalla Mysql
215	237
216	238		Ahora necesitamos escribir el código para manejar las acciones.
217	239
218	240		Los tres cuadros de edición de la izquierda son para el ingreso del nombre del host, usuario y contraseña. Cuando éstos han sido completados satisfactoriamente, se debe hacer click en el botón Connect. El manejador del evento OnClick está basado en parte del programa en modo texto del FPC que describimos antes.
219	241
220	242		Las respuestas desde la base de datos no pueden ser visualizadas usando las sentencias de Pascal write o writeln: en lugar de eso deben ser convertidas en strings y mostradas en el campo memo. Mientras que las sentencias write y writeln de Pascal son capaces de una conversión de tipos "al vuelo", el uso de un campo memo para visualizar la salida de texto necesita la explícita conversión de los tipos de datos al formato string, por ende las variables Pchar deben ser convertidas a string usando StrPass y los enteros se convierten con IntToStr.
221	243
222	244		Las strings son mostradas en el campo Memo usando
223	245
224	246		``` pascal
225	247		procedure ShowString (S : string);
226	248		(* display a string in a Memo box *)
227	249		begin
228	250		\|trymysqlForm1.ResultsMemo.Lines.Add (S)
229	251		end;
230	252		```
231	253
232	254		El evento en el botón ConnectButton queda como:
233	255
234	256		``` pascal
235	257		procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);
236	258		(* Connect to MySQL using user data from Text entry boxes on Main Form *)
237	259		var strg: string;
238	260		begin
239	261		dummy1 := trymysqlForm1.HostEdit.text+#0;
240	262		host := @dummy1[1];
241	263		dummy2 := trymysqlForm1.UserEdit.text+#0;
242	264		user := @dummy2[1] ;
243	265		dummy3 := trymysqlForm1.PasswdEdit.text+#0;
244	266		passwd := @dummy3[1] ;<br>
245	267		alloc := mysql_init(PMYSQL(@qmysql));
246	268		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
247	269		if sock=Nil then
248	270		begin
249	271		strg :='Couldn''t connect to MySQL.'; showstring (strg);
250	272		Strg :='Error was: '+ StrPas(mysql_error(@qmysql)); showstring (strg);
251	273		end
252	274		else
253	275		begin
254	276		trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';
255	277		strg := 'Now choosing database : ' + database; showstring (strg);
256	278		{$ifdef Unix}
257	279		strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);
258	280		strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);
259	281		{$endif}
260	282		Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));
261	283		showstring (strg);
262	284		Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);
263	285		Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);
264	286		trymysqlForm1.statusbar1.simpletext := 'Selecting Database ' + DataBase +'...';
265	287		if mysql_select_db(sock,DataBase) < 0 then
266	288		begin
267	289		strg :='Couldn''t select database '+ Database; ShowString (strg);
268	290		Strg := mysql_error(sock); ShowString (strg);
269	291		end
270	292		end;
271	293		end;
272	294		```
273	295
274	296		El campo texto en la derecha permite el ingreso de una sentencia SQL, sin el punto y coma final, cuando ud. ya ha completado la misma, el botón SendQuery es presionado y la sentencia es ejecutada, con los resultados devueltos dentro del cuadro ResultsMemo.
275	297
276	298		El manejador del evento SendQuery es basado también en la versión de texto de FPC, con la salvedad que se deben convertir explícitamente los tipos de datos a formato string antes que sean visualizados en el cuadro.
277	299
278	300		Una diferencia respecto del programa FPC modo texto es que, si ocurre un error en la sentencia, el programa no se detiene y no se cierra la conexión a MySQL, en lugar de eso, el control es devuelto al formulario principal y se da la oportunidad de corregir la misma antes de reenviar la sentencia. La aplicación finaliza (con el cierre de la conexión a MySQL) cuando se hace click en el botón Exit.
279	301
280	302		El código para SendQuery es:
281	303
282	304		``` pascal
283	305		procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);
284	306		var
285	307		dumquery, strg: string;
286	308		begin
287	309		dumquery := TrymysqlForm1.CommandEdit.text;
288	310		dumquery := dumquery+#0;
289	311		query := @dumquery[1];
290	312		trymysqlForm1.statusbar1.simpletext := 'Executing query : '+ dumQuery +'...';
291	313		strg := 'Executing query : ' + dumQuery; showstring (strg);
292	314		if (mysql_query(sock,Query) < 0) then
293	315		begin
294	316		Strg :='Query failed '+ StrPas(mysql_error(sock)); showstring (strg);
295	317		end
296	318		else
297	319		begin
298	320		recbuf := mysql_store_result(sock);
299	321		if RecBuf=Nil then
300	322		begin
301	323		Strg :='Query returned nil result.'; showstring (strg);
302	324		end
303	325		else
304	326		begin
305	327		strg :='Number of records returned : ' + IntToStr(mysql_num_rows (recbuf));
306	328		Showstring (strg);
307	329		Strg :='Number of fields per record : ' + IntToStr(mysql_num_fields(recbuf));
308	330		showstring (strg);
309	331		rowbuf := mysql_fetch_row(recbuf);
310	332		while (rowbuf <>nil) do
311	333		begin
312	334		Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' + rowbuf[2] +')';
313	335		showstring (strg);
314	336		rowbuf := mysql_fetch_row(recbuf);
315	337		end;
316	338		end;
317	339		end;
318	340		end;
319	341		```
320	342
321	343		Guarde su Proyecto y presione Run -\> Run
322	344
323	345		El código completo del programa está disponible en Código fuente del ejemplo
324	346
325	347		by ChrisKirk
326	348
327	349		## Lazarus y PostgreSQL
328	350
329	351		Este es un tutorial muy corto que explica como conectar mediante Lazarus (0.9.12\>) con el gestor de base de datos PostgreSQL, tanto en conexión local como remota, utilizando TPQconnection.
330	352
331	353		Después de una correcta instalación tanto de Lazarus como de PostgreSQL, debemos seguir los siguientes pasos:
332	354
333	355		1.- Situar en el formulario los siguientes componentes:
334	356
335	357		COMPONENTE / UBICACION EN EL IDE
336	358
337	359		- PQConnection ---------\> SQLdb
338	360		- SQLQuery ---------------\> SQLdb
339	361		- SQLTransaction -------\> SQLdb
340	362		- DataSource ----------\> DataAccess
341	363		- DBGrid ----------------\> DataControls
342	364
343	365		2.- En el inspector de objetos una vez seleccionado en el formulario PQConnection rellenar los valores de las siguientes propiedades:
344	366
345	367		- "transaction": objeto SQLTransaction.
346	368		- "Database name": nombre de la base de datos.
347	369		- "HostName": nombre de equipo que contiene el gestor de la base de datos que conecta a la base de datos.
348	370		- "UserName": login de usuario con acceso a dicha base de datos.
349	371		- "password": contrasena de acceso a la base de datos para el Username.
350	372
351	373		3.- Comprobar que SQLTransaction ha cambiado automáticamente para apuntar a PQConnection.
352	374
353	375		4.- En SQLQuery rellenar lo siguiente:
354	376
355	377		- "transaction": con su respectivo objeto.
356	378		- "database": con su respectivo objeto.
357	379		- "SQL" : debemos rellenarlo con la consulta SQL que deseamos realizar (algo así como 'select * from anytable')
358	380
359	381		5.- En el objeto DataSource rellenar:
360	382
361	383		- "DataSet": objeto SQLQuery.
362	384
363	385		6.- En el componente DBGrid rellenar:
364	386
365	387		- "DataSource": objeto DataSource.
366	388
367	389		7.- Modificar todo para que figure como conectado (connected) y activo (active)
368	390
369	391		- TDBText y TDBEdit parecen funcionar pero (al menos para mí) solamente muestra datos en la grid.
370	392
371	393		Para cambiar contenido de la base de datos realizo la llamada al motor de la base de datos (DB Engine) mediante las siguientes sentencias de código:
372	394
373	395		``` pascal
374	396		try
375	397		sql:= 'UPDATE table SET setting=1';
376	398		PQDataBase.Connected:=True;
377	399		PQDataBase.ExecuteDirect('Begin Work;');
378	400		PQDataBase.ExecuteDirect(sql);
379	401		PQDataBase.ExecuteDirect('Commit Work;');
380	402		PQDataBase.Connected:=False;
381	403		except
382	404		on E : EDatabaseError do
383	405		MemoLog.Append('DB ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
384	406		on E : Exception do
385	407		MemoLog.Append('ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
386	408		end;
387	409		```
388	410
389	411		- Notas:
390	412		- Testeado en windows, Lazarus 0.9.12 + PgSQL 8.3.1
391	413		- Algunos test realizados en linux, Lazarus 0.9.12 and PgSQL 8.0.x.
392	414
393	415		- Instalación y errores:
394	416		- En los test realizados con la version 0.9.12 de Lazarus, presentan errores los campos de tipo "text" y "numeric".
395	417		- Se usan sin problemas los tipos char de tamaño fijo, los int y float8.
396	418		- Algunas veces con tan solo reiniciar Lazarus se resuelven algunos errores estúpidos.
397	419		- Después de suceder algunos errores, las transacciones permanecen activas y deben desactivarse manualmente.
398	420		- Los cambios realizados en Lazarus por supuesto no son visibles hasta realizar una "transaction commited".
399	421		- El depurador integrado parece tener errores (al menos en la versión para windows) - en ocasiones trabajar fuera del IDE puede ayudar a encontrar los errores.
400	422		- En Linux ciertos mensajes de error se imprimen en la consola -- ejecutar los programas mediante la línea de mandatos resulta útil para obtener información extra para su depuracion.
401	423		- Error: "No puedo cargar el cliente PostgreSQL. ¿ Está instalado (libpq.so) ?"
402	424		- Añade la ruta (variable de entorno path) de búsqueda para libpq* donde se instaló PostgreSQL.
403	425		- En Linux añade la ruta al fichero libpq.so a la sección de librerias dentro del fichero /etc/fpc.cfg. Por ejemplo: -Fl/usr/local/pgsql/lib
404	426		- En windows, añade simplemente estas librerias en alguna de las rutas que figuren en la variable de entorno o bien en el directorio o carpeta donde se tenga guardado el proyecto.
405	427		- En windows yo copio todas las librerias que necesito de C:\Program Files\PostgreSQL\8.1\bin a otro directorio que figure en el PATH.
406	428		- También se puede añadir este directorio C:\Program Files\PostgreSQL\8.1\bin al path que resulta bastante mas sencillo y sin tener que mover ficheros de sitio.
407	429
408	430		Como un buen ejemplo funcional es más útil que mucho que se pueda contar, aquí os dejo un enlace a un programa escrito directamente para Lazarus y que con pequeñas modificaciones os puede permitir conectar con PostgreSQL 8.x en mi caso la prueba la realicé con 8.3 y funcionó. La versión de Lazarus la 0.9.26 Beta. Lo compila sin problemas.
409	431
410	432		- <http://paginas.fe.up.pt/~asousa/wiki/doku.php?id=proj:lazarus_projects>
411	433
412	434		[easyDB](http://paginas.fe.up.pt/~asousa/wiki/doku.php?id=proj:lazarus_projects), en la fecha en la que se traduce este párrafo en la web de descarga figura el fichero easy_db_plus.zip
413	435
414	436		Es importante cambiar los valores de usuario, contraseña, base de datos a conectar y equipo con el que conectar que puede estar en red o no. Si no está en red puede valer con localhost ó 127.0.0.1 y si lo está pués el nombre del equipo. Lógicamente que el usuario y contraseña estén correctos y que permita realizar lecturas, escrituras, borrado, por lo que es mejor tener un postgreSQL en prueba con acceso total (que no esté en producción). En mi caso verifico el funcionamiento teniendo al mismo tiempo abierto PGADMIN III. Fijaos en la cantidad de librerias que ha incluido en el fichero comprimido, ya que a mi al menos no me ha pedido nada adicional. Un cambio que he realizado es copiar todas las librerias de C:\Archivos de programa\PostgreSQL\8.3\bin sobreescribiendo las que vienen, lo he vuelto a compilar y funciona aceptable (sobre todo para que librerias como libpq.dll al tratarse de una versión más nueva debería estar más optimizada).
415	437
416	438		Otros enlaces interesantes que he encontrado son:
417	439
418	440		- <http://hdcm.sytes.net/documentos/programacion/lazarus/Lazarus_postgresql.html>
419	441
420	442		Permite obtener un documento con el título Postgresql y Freepascal en FreeBSD.
421	443
422	444		## Lazarus y SQLite
423	445
424	446		### Introducción
425	447
426	448		Para poder acceder a bases de datos basadas en el motor de SQLITE son necesarios los siguientes componentes (Ambos descendientes de TDataset) :
427	449
428	450		- TSqliteDataset: para acceder a bases de datos cuya versión sea 2.8.x.
429	451		- TSqlite3Dataset: para acceder a bases de datos cuya versión sea 3.x.x.
430	452
431	453		Relación de Ventajas/Desventajas:
432	454
433	455		Ventajas:
434	456
435	457		- Flexibilidad: Los programadores pueden elegir entre usar o no el lenguaje sql, permitiéndoles trabajar con tablas de datos simples o tan complejas como se desee.
436	458		- Actualización automatica de las bases de datos: no hay necesidad de actualizar la base de datos manualmente desde comandos sql, una serie de procedimientos establecidos se encargaran de ello.
437	459		- Rapidez: realiza una cache en memoria de los datos, lo que permite una visualización y navegación por los datos rápida.
438	460		- Estructura NO cliente/servidor: sólo es necesario distribuir la librería de sqlite.
439	461
440	462		Desventajas:
441	463
442	464		- Requiere la librería sqlite.
443	465
444	466		### Requerimientos
445	467
446	468		- Para bases de datos sqlite2:
447	469		- fpc 2.0.0
448	470		- Lazarus 0.9.10
449	471		- sqlite runtime library 2.8.15 o superior
450	472
451	473		- Para bases de datos sqlite3:
452	474		- fpc 2.0.2
453	475		- Lazarus 0.9.11
454	476		- sqlite runtime library 3.2.1 o superior )
455	477
456	478		Recomendaciones:
457	479
458	480		- La libreria sqlite está en el system PATH o en el directorio de trabajo.
459	481		- Bajo Linux ponga cmem como la primera unidad en uses .
460	482		- En debian y derivadas ( ubuntu, Mepis, Mint... ), para construir Lazarus serán necesarios los paquetes libsqlite-dev/libsqlite3-dev además de los sqlite/sqlite3 (También se aplica a OpenSuSe)
461	483
462	484		- Las últimas versiones de Lazarus ( 0.9.23 o superiores ) ya incluyen por defecto el componente sqlite3, por lo que se recomienda su uso ya que es automáticamente configurado por el entorno.
463	485
464	486		### Como usar la base de datos
465	487
466	488		Instalar el paquete SQLITE en lazarus. Se recomienda usar la versión con el componente ya instalado.
467	489
468	490		\- En tiempo de diseño asignar las siguientes propiedades básicas:
469	491
470	492		- FileName: ruta al archivo slqlite \[Obligatorio\]
471	493		- TableName: nombre de la tabla que se quiere acceder \[Obligatorio\]
472	494		- Sql: una sentencia SQL \[opcional\]
473	495
474	496		\- Crear una tabla de datos
475	497
476	498		Hacer doble clic en tiempo de diseño sobre el componente o usar el comando 'Create Table' del menú contextual (aparece al pulsar con el botón derecho del ratón) y se mostrará un simple editor auto explicado de tabla.
477	499
478	500		\- Listado de tipos de datos soportados por TSqliteDataset y TSqlite3Dataset:
479	501
480		-	~~` Integer`\~~
481		-	~~` AutoInc`\~~
482		-	~~` String`\~~
483		-	~~` Memo`\~~
484		-	~~` Bool `\~~
485		-	~~` Float`\~~
486		-	~~` Word`\~~
487		-	~~` DateTime`\~~
488		-	~~` Date`\~~
489		-	~~` Time`\~~
490		-	~~` LargeInt`\~~
491		-	~~` Currency`~~
	502	+	```text
	503	+	Integer
	504	+	AutoInc
	505	+	String
	506	+	Memo
	507	+	Bool
	508	+	Float
	509	+	Word
	510	+	DateTime
	511	+	Date
	512	+	Time
	513	+	LargeInt
	514	+	Currency
	515	+	```
492	516
493	517		\- Leer los datos de la base de datos
494	518
495	519		Una vez que se ha creado la tabla basta usar el procedimiento 'Open' si la propiedad SQL no se estableció se devuelven todas las entradas de la tabla especificada en la propiedad 'TableName', es equivalente a ejecutar la sentencia SQL:
496	520
497		-	~~` SQL:='Select * from TABLENAME'; `~~
	521	+	``` pascal
	522	+	SQL:='Select * from TABLENAME';
	523	+	```
498	524
499	525		Actualizar / Modificar los datos de la base de datos
500	526
501	527		Para actualizar los datos se usa la función 'ApplyUpdates'. Para poder usar la función la tabla de datos ha de contener alguna entrada que cumpla las condiciones de clave primaria ( los valores tienen que ser UNIQUE y not NULL).
502	528
503	529		Se recomienda encarecidamente el diseño de la base de datos mediante paradigmas relacionales como el modelo relacional de Chen u otros antes de implementar la base de datos, de esta forma se garantiza la integridad referencial, el uso de claves primarias etc, que evitaran problemas en la implementación
504	530
505	531		Para que las tablas tengan claves primarias se puede:
506	532
507	533		- Establecer el nombre de la propiedad 'PrimaryKey' al nombre de la clave primaria de la tabla.
508	534		- Añadir la opción AutoInc (autoincremento) al campo que deseamos que sea la clave primaria. De esta forma sqlite adoptará por defecto este campo como la clave primaria.
509	535
510	536		## Lazarus y MSSQL
511	537
512		-	~~` Por favor, escríbame!`~~
	538	+	```text
	539	+	Por favor, escríbame!
	540	+	```
513	541
514	542		## Mensajes de error
515	543
516	544		Se pueden generar errores que debemos leer detenidamente para tratar de solventarlos o gestionarlos.
517	545
518	546		- Cannot Open a non-select Statement: En este caso nos indica claramente que no podemos utilizar una sentencia SQL que sea diferente de SELECT al utilizar el componente SQLQUERY. Para estos casos diferentes de SELECT utilizar EXECSQL por ejemplo (caso de UPDATE, INSERT por ejemplo).
519	547
520	548		Dejo aquí los enlaces al foro donde se habla sobre esto:
521	549
522	550		<http://forum.lazarus.freepascal.org/index.php?topic=8319.0>
523	551
524	552		- Error Database not assigned:
525	553
526	554		## Contribuidores y Cambios
527	555
528	556		- Por favor, vea Log de actualizaciones para conocer la historia de modificaciones y agregados a esta página.
529	557
530	558		<http://lazarus-ccr.sourceforge.net/index.php?wiki=DbSpanishTutorial>
531	559
532	560		## Programas Lazarus que utilizan acceso a bases de datos
533	561
534	562		'''Como ejemplo práctico podemos encontrar los siguientes programas:
535	563
536		-	~~` - Facturlinex: `[`http://sourceforge.net/projects/facturlinex/`](http://sourceforge.net/projects/facturlinex/)\~~
537		-	~~` - Contalinex: `[`http://sourceforge.net/projects/contalinex/`](http://sourceforge.net/projects/contalinex/)~~
	564	+	```text
	565	+	- Facturlinex: http://sourceforge.net/projects/facturlinex/
	566	+	- Contalinex: http://sourceforge.net/projects/contalinex/
	567	+	```
538	568
539	569		En el caso de facturlinex2 aparte de los paquetes dcpcrypt-2.0.4.1, powerpdf_20100305 e Inet utiliza el paquete de acceso a bases de datos ZEOSDBO-6.6.6-stable.
540	570
541	571		---
542	572		From the Free Pascal wiki, page "Lazarus Database Tutorial/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).
543	573		Category: Castellano
544	574		Category: Español

Back to history