Oracle/es: what changed

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

Old	New		Line
1	1		## Interfaz de bajo nivel del Servidor de BBDD Oracle
2	2
3	3		La interfaz de bajo nivel al servidor de BB.DD de Oracle existe en una unidad, oraoci, la cual es una traducción directa de los ficheros de cabecera del interfaz Oracle.
4	4
5	5		Hay dos programas de ejemplo:
6	6
7	7		- oraclew contiene algunas rutinas para el interfaz Oracle, para un manejo más fácil del conjunto resultante. Necesita la unidad classes del FCL.
8	8		- test01 es un simple programa para demostrar la interface.
9	9
10	10		## Acceso OOP a Oracle
11	11
12	12		Construido sobre la interfaz de bajo nivel, el marco de trabajo SQLDB que viene con FPC soporta el acceso a Oracle (utilizando TOracleConnection); ver también [[Lazarus Database Overview\|Lazarus_Database_Overview#Lazarus_and_Oracle]]
13	13
14	14		Lazarus dispone de un componente:
15	15
16		-	~~<figure>~~
17		-	~~<img src="sqldbcomponents.png" title="sqldbcomponents.png" />~~
18		-	~~<figcaption>sqldbcomponents.png</figcaption>~~
19		-	~~</figure>~~
	16	+	![](/wiki-images/c/cc/Sqldbcomponents.png)
20	17
21	18		- Hostname: igual que con otros conectores sqldb, utilizaremos el nombre de la máquina o la dirección IP. Dejaremos vacío si se utiliza el servicio de nombres de red TNSNAMES.ORA en DatabaseName.
22	19		- Username/password: igual que con otros conectores sqldb.
23	20		- DatabaseName:
24	21		- Instancia/SID del servidor Oracle al que se necesita conectar or
25	22		- servicio de nombres de red en un fichero TNSNAMES.ORA.
26	23
27	24		. A fecha de realizar esta traducción de su versión en inglés no se si este inconveniente ha sido subsanado ya, si alguien lo sabe que corrija esto.
28	25
29	26		## Resolución de problemas
30	27
31	28		### Conjuntos de caracteres para Cliente y Servidor
32	29
33	30		Podemos arrancar el siguiente programa para obtener información sobre que conjunto de caracteres/NLS se encuentran activos. Por favor, no olvides rellenar correctamente los datos de nombre de servidor, nombre de base de datos, nombre de usuario y contraseña antes de compilar.
34	31
35	32		``` pascal
36	33		program oracharset;
37	34
38	35		{ Muestra información del conjunto de caracteres/NLS (Soporte Nacional de Lenguaje) utilizado en Cliente y Servidor}
39	36		{ Por favor edita los datos de conexión primero: nombre usuario, contraseña, nombre de servidor y base de datos. }
40	37
41	38		{$mode objfpc}{$H+}
42	39
43	40		uses {$IFDEF UNIX} {$IFDEF UseCThreads}
44	41		cthreads, {$ENDIF} {$ENDIF}
45	42		Classes,
46	43		SysUtils,
47	44		sqldb,
48	45		oracleconnection;
49	46
50	47		var
51	48		Col: integer;
52	49		Conn: TOracleConnection; { para la conexión }
53	50		Tran: TSQLTransaction; { para la transacción }
54	51		Q: TSQLQuery; { para la query o consulta }
55	52		begin
56	53		Conn := TOracleConnection.Create(nil); { Creamos Conexión reservando recursos }
57	54		Tran := TSQLTransaction.Create(nil); {Creamos Transacción reservando recursos}
58	55		Q := TSQLQuery.Create(nil); { Creamos consulta reservando recursos }
59	56		try
60	57		// * EDITAR INFORMACIÓN DE IDENTIFICACIÓN SEGÚN SEA NECESARIO *
61	58		Conn.HostName := ''; { HostName: nombre del equipo al que conectamos }
62	59		Conn.UserName := 'system'; { UserName: usuario de BB.DD con el que nos validamos }
63	60		Conn.Password := ''; { Password: contraseña del usuario para conectar a la BB.DD }
64	61		Conn.DatabaseName := 'XE'; { DatabaseName: nombre de la base de datos (BB.DD)a la que conectamos dentro del servidor }
65	62		// * FIN INFORMACIÓN DE IDENTIFICACIÓN *
66	63		Conn.Transaction := Tran;
67	64		Q.DataBase := Conn; { Pasamos los datos de conexión a la Query }
68	65		Conn.Open; { Abrimos conexión }
69	66		Tran.Active := true;
70	67
71	68		writeln('Información del conjunto de caracteres del Servidor:');
72	69		Q.SQL.Text := 'SELECT value$ FROM sys.props$ WHERE name like ''NLS_%'' ';
73	70		Q.Open;
74	71		Q.First;
75	72		while not (Q.EOF) do { Mientras la query no nos devuelva final hacer esto... }
76	73		begin
77	74		writeln('*****************');
78	75		for Col := 0 to Q.Fields.Count - 1 do { desde columna 0 hasta cuenta de campos-1...}
79	76		begin
80	77		try
81	78		writeln(Q.Fields[Col].DisplayLabel + ':'); { Imprimimos en pantalla la etiqueta del campo con índice Col }
82	79		writeln(Q.Fields[Col].AsString); { Imprimimos en pantalla el campo con índice Col de la query, retornado como cadena }
83	80		except
84	81		writeln('Error solicitando campo ', Col);
85	82		end;
86	83		end;
87	84		Q.Next;
88	85		end;
89	86		Q.Close;
90	87
91	88		writeln('');
92	89		writeln('Información del conjunto de caracteres del cliente:');
93	90		Q.SQL.Text := 'SELECT * FROM NLS_SESSION_PARAMETERS ';
94	91		Q.Open;
95	92		Q.First;
96	93		while not (Q.EOF) do
97	94		begin
98	95		writeln('*****************');
99	96		for Col := 0 to Q.Fields.Count - 1 do
100	97		begin
101	98		try
102	99		writeln(Q.Fields[Col].DisplayLabel + ':');
103	100		writeln(Q.Fields[Col].AsString);
104	101		except
105	102		writeln('Error solicitando campo ', Col);
106	103		end;
107	104		end;
108	105		Q.Next;
109	106		end;
110	107		Q.Close;
111	108		// FIN DE CÓDIGO DE EJEMPLO DE TESTEO DE ERROR
112	109		Conn.Close; { Cerramos la conexión }
113	110		finally
114	111		Q.Free; { Liberamos los recursos de la query }
115	112		Tran.Free; { Liberamos los recursos de la transacción }
116	113		Conn.Free; { Liberamos los recursos de la conexión }
117	114		end;
118	115		writeln('Programa completado. Presiona cualquier tecla para continuar.');
119	116		readln;
120	117		end.
121	118		```
122	119
123	120		### ORA-00911 : invalid character
124	121
125	122		Si visualizas este mensaje de error (o su equivalente en español (carácter no válido), puedes probar lo siguiente:
126	123
127	124		- Suprimiendo el punto y coma - ; - si lo has puesto en una sentencia SELECT.
128	125		- Añadiendo el punto y coma (e.g. en sentencias CALL o EXECUTE)
129	126
130	127		Ver este hilo que se aplica a .Net pero que se puede aplicar también a SQLDB: [1](http://social.msdn.microsoft.com/Forums/en/adodotnetdataproviders/thread/58a27505-a3fb-4cb1-9063-3946b3f26acd)
131	128
132	129		Volver a [[Package List\|Packages List]]
133	130
134	131		---
135	132		From the Free Pascal wiki, page "Oracle/es", as it stood on 2020-02-23 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