Novato en Firebird

[[RONPABLO]]

El problema con el EAccesViolation es que es muy poco dicientes, lo que se me viene a la mente es que el problema no es de la consulta como tal, más bien diría que es del componente, o del valor que se esta enviando en TableName, busca una herramienta de debugger (algo así como el eurekaLog) ese puede dar mejores datos que el simple EAccesViolation

[salvica]

Hola RONPABLO, buenas noches.

Antes de abrir la consulta, (para comprobar), la salvo en un fichero:

Código SQL [-]
SQL.SaveToFile( PathSqlError+'\FIREBIRD_ExisteTabla_'+TableName+'.sql' );
try
  Open;
except
  SQL.SaveToFile( PathSqlError+'\ERROR_FIREBIRD_ExisteTabla_'+TableName+'.sql' );
end;

y el resultado es la misma que pongo al principio

Código SQL [-]
SELECT COUNT(*) AS existe
  FROM rdb$relations
 WHERE rdb$relation_name = 'MITABLA'
   AND rdb$view_blr is null
   AND (rdb$system_flag is null OR rdb$system_flag=0);

Esta misma consulta (con las adaptaciones correspondientes), la tengo para MySql y para SQLite3.

El error en sí no dice nada, pero si corro la consulta sobre FlameRobin o sobre SQL Maestro funciona correctamente, así que supongo que el error es de Firebird.

Si en la consulta cambio "MITABLA" por "mitabla", me devuelve CERO (no existe)

Por cierto, ya que estamos
¿Sabes como se configura el servidor para que admita mayúsculas y minúsculas en lo nombres de campo?
Cuando yo creo las tablas, los nombres de tabla los pongo en minúsculas y los nombres de campo en mayúsculas (cosas de la edad ), pero Firebird 2.5 lo cambia TODO a mayúsculas.

Gracias por lo que puedas ayudarme y perdona por el "rollo" que te he metido, pero estoy hasta los c****es de los diferentes formatos de SQL

Saludos
salvica

[ecfisa]

Hola salvica.

El error en sí no dice nada, pero si corro la consulta sobre FlameRobin o sobre SQL Maestro funciona correctamente, así que supongo que el error es de Firebird.

No uso Zeos por lo que no tengo manera de probarlo, pero creo que el error es debido al componente TZQuery y no a Firebird, ya que hice una prueba usando TIBQuery y me funciona correctamente:

Código Delphi [-]
function TForm1.ExisteTabla(Nombre: string): boolean;
begin
  with TIBQuery.Create(nil) do
  try
    Database:= IBDatabase1;
    SQL.Clear;
    SQL.Add('SELECT COUNT(*) AS FOUND');
    SQL.Add('FROM RDB$RELATIONS');
    SQL.Add('WHERE RDB$RELATION_NAME = :TABLA AND RDB$VIEW_BLR IS NULL');
    SQL.Add('AND (RDB$SYSTEM_FLAG IS NULL OR RDB$SYSTEM_FLAG = 0)');
    ParamByName('TABLA').AsString:= Nombre;
    Open;
    Result:= FieldByName('FOUND').AsInteger > 0;
    Close;
  finally
    Free;
  end;
end;

Un saludo.

[salvica]

Empezado por ecfisa

Hola salvica.

No uso Zeos por lo que no tengo manera de probarlo, pero creo que el error es debido al componente TZQuery y no a Firebird, ya que hice una prueba usando TIBQuery y me funciona correctamente:
Un saludo.

Hola ecfisa, buenas noches.

Indagaré, a ver si tengo algo mal en el ZConnection por si acaso, pero ya te adelanto que si no compruebo la existencia de la tabla, el mismo ZQuery crea la tabla sin problemas.

Saludos
salvica

[ecfisa]

Empezado por salvica

Hola ecfisa, buenas noches.

Indagaré, a ver si tengo algo mal en el ZConnection por si acaso, pero ya te adelanto que si no compruebo la existencia de la tabla, el mismo ZQuery crea la tabla sin problemas.

Hola salvica.

Es que tampoco creo que sea un error de creación, me inclino más por pensar que el componente no soporta esa consulta... ¿ Hiciste la prueba con un TIBQuery ?

Un saludo.

[[RONPABLO]]

Esa consulta la corro directamente sobre firebird y funciona bien osea que error de firebird no es, y con el resultado que envía se nota que el valor de "TableName" llega bien, por lo cual yo me centraría en buscr el error por los componentes ZeoMDO, de pronto hace alguna validación en la estructura del query y no soporta hacer consultas en tablas del sistema en firebird... Por curiosidad, la consulta:

Código SQL [-]
SELECT COUNT(*) AS existe   
FROM rdb$relations  WHERE rdb$relation_name = 'MITABLA'    
AND rdb$view_blr is null    
AND (rdb$system_flag is null OR rdb$system_flag=0);

Prueba a quitar el ";" del final, el componente no debe de necesitarlo al final y de pronto saca erro por tenerlo..




Respecto a usar Nombres de campos o de tablas en mayúsculas o minúsculas puede hacerlo desde comandos encerrando el nombre de la tabla o el campo entre comilla doble, aunque es muy dispendioso hacerlo así ya que de ahí en adeltante deberá hacer las consultas de esa misma forma. ejemplo:

Código SQL [-]
Create Table "Tabla1"....
....
....
select "Campo1" from "Tabla1"

[salvica]

Hola RONPABLO

Empezado por RONPABLO

Esa consulta la corro directamente sobre firebird y funciona bien osea que error de firebird no es, y con el resultado que envía se nota que el valor de "TableName" llega bien, por lo cual yo me centraría en buscr el error por los componentes ZeoMDO, de pronto hace alguna validación en la estructura del query y no soporta hacer consultas en tablas del sistema en firebird... Por curiosidad, la consulta:

Ya te digo que la consulta la he probado sobre FlameRobin y funciona correctamente.

Empezado por RONPABLO

Prueba a quitar el ";" del final, el componente no debe de necesitarlo al final y de pronto saca erro por tenerlo..

Le he quitado el punto y coma y hace lo mismo.
El punto y coma al final de la instrucción es para eso mismo, para decir que es el final y que lo ejecute, después pueden ir más sentencias sql.

Empezado por RONPABLO

Respecto a usar Nombres de campos o de tablas en mayúsculas o minúsculas puede hacerlo desde comandos encerrando el nombre de la tabla o el campo entre comilla doble, aunque es muy dispendioso hacerlo así ya que de ahí en adeltante deberá hacer las consultas de esa misma forma. ejemplo:

No, si lo que quiero es escribir los nombres de tabla en minúsculas y que me los reconozca. Vamos para no tener que ir metiendo UpperCase() por todo el código.

Esto funciona con MySql, SQLite, Oracle (vamos con todos, menos con mi Firebird)

Saludos
salvica

[[RONPABLO]]

Por ejemplo la siguiente consulta traería el resultado sin necesidad de hacer el upperCase, el problema, radica en que si existe una tabla llamada "MiTala" y otra llamada "MiTalaPersonal" encuentra las dos.

Código SQL [-]
SELECT COUNT(*) AS existe
  FROM rdb$relations
 WHERE rdb$relation_name CONTAINING  'MiTabla'
   AND rdb$view_blr is null
   AND (rdb$system_flag is null OR rdb$system_flag=0)

[[RONPABLO]]

Empezado por salvica

No, si lo que quiero es escribir los nombres de tabla en minúsculas y que me los reconozca. Vamos para no tener que ir metiendo UpperCase() por todo el código.

Esto funciona con MySql, SQLite, Oracle (vamos con todos, menos con mi Firebird)
Saludos
salvica

Ahora con lo de ir metiendo UpperCase me queda una duda:

Código SQL [-]
Select * from MITABLA

y

Código SQL [-]
Select * from MiTabla

Alguno de las dos consultas pone algún problema? o el problema es cuando hace la consulta a la tabla del sistema y compara los nombres de los campos allá y todos los encuentra en mayúsculas?

[salvica]

Hola de nuevo RONPABLO, te estoy dando la noche

Son dos cosas diferentes:

• El error de excepción: Me lo dá cuando hago el Open en la ZQuery de ZeosDBO.

Si elimino a "mano" la tabla y en el código del programa quito la línea que comprueba la existencia de la tabla, el mismo ZQuery efectúa un CREATE TABLE mitabla sin problemas, con lo que (inicialmente), la conexión es correcta, el enlace del ZQuery con el ZConnection es correcto y el ZQuery trabaja como se espera.

• Lo de las mayúsculas: Otro cantar, que no sé si es por el manejador FlameRobin que viene con Firebird o qué.

Por ejemplo, yo creo una tabla:

Código SQL [-]
    with ZQuery do begin
         SQL.Clear;
         SQL.Add( 'CREATE TABLE mitabla (' );
         SQL.Add( '       NUM_REG     INTEGER        NOT NULL,' );
         SQL.Add( '       ID_CLAVE    CHAR(8)        NOT NULL,' );
         SQL.Add( '       CORRECTO    CHAR(1)        DEFAULT ''0'' NOT NULL,' );
         SQL.Add( '       TEXTO       VARCHAR(80)'    );
         SQL.Add( ');' );
         SQL.SaveToFile( PathSql+'\SQL_CrearTabla_mitabla.sql');
         try
           ExecSQL;
         except
           SQL.SaveToFile( PathSql+'\ERROR_SQL_CrearTabla_mitabla.sql');
         end;
         Close; { cerrar la tabla por si queda abierta }
    end; { del with ZQuery do }

Esto funciona sin problemas , ahora voy al FlameRobin (gratis) o al SQL Maestro for Firebird (de pago, pero bastante bueno, yo lo uso con SQLite) y ejecuto la consulta

Código SQL [-]
SELECT COUNT(*) AS existe
  FROM rdb$relations
 WHERE rdb$relation_name = 'MITABLA'

El campo EXISTE vale UNO (1), ha encontrado la tabla creada.

Si cambio la consulta por:

Código SQL [-]
 SELECT COUNT(*) AS existe
   FROM rdb$relations
  WHERE rdb$relation_name = 'mitabla'

El campo EXISTE vale CERO (0), no ha encontrado la tabla creada.

Esto si que es un "rollo"

Saludos
salvica

[Casimiro Noteví]

Si das de alta (creas) una tabla, campos, store procedure, etc. SIN poner comillas, entonces lo podrás usar escribiéndolo como quieras, mayúsculas o minúsculas.
Pero si lo das de alta CON comillas, entonces luego tienes que llamarlo exactamente igual a como lo diste de alta.
Resumiendo:
caso 1:
create tabla TABLA
es lo mismo que
create tabla tabla

pero:
caso 2:
create tabla 'TABLA'
es distinto a
create tabla 'tabla'

En el caso 1, podrás usar: select TABLA, select tabla, select TaBlA, select tAbLa, etc.
en el caso 2, sólo podrás usar 'TABLA'.

Por ese motivo yo siempre doy de alta (lo creo) todo sin comillas. Como el primer caso.

[[RONPABLO]]

Empezado por salvica

Hola de nuevo RONPABLO, te estoy dando la noche

Son dos cosas diferentes:

• El error de excepción: Me lo dá cuando hago el Open en la ZQuery de ZeosDBO.

Si elimino a "mano" la tabla y en el código del programa quito la línea que comprueba la existencia de la tabla, el mismo ZQuery efectúa un CREATE TABLE mitabla sin problemas, con lo que (inicialmente), la conexión es correcta, el enlace del ZQuery con el ZConnection es correcto y el ZQuery trabaja como se espera.

Has mirado si hay una versión más nueva de los componentes, puede que con actualizarlos se arreglen.

Empezado por salvica

Lo de las mayúsculas: Otro cantar, que no sé si es por el manejador FlameRobin que viene con Firebird o qué.

Por ejemplo, yo creo una tabla:
Código SQL [-] with ZQuery do begin SQL.Clear; SQL.Add( 'CREATE TABLE mitabla (' ); SQL.Add( ' NUM_REG INTEGER NOT NULL,' ); SQL.Add( ' ID_CLAVE CHAR(8) NOT NULL,' ); SQL.Add( ' CORRECTO CHAR(1) DEFAULT ''0'' NOT NULL,' ); SQL.Add( ' TEXTO VARCHAR(80)' ); SQL.Add( ');' ); SQL.SaveToFile( PathSql+'\SQL_CrearTabla_mitabla.sql'); try ExecSQL; except SQL.SaveToFile( PathSql+'\ERROR_SQL_CrearTabla_mitabla.sql'); end; Close; { cerrar la tabla por si queda abierta } end; { del with ZQuery do }


Esto funciona sin problemas , ahora voy al FlameRobin (gratis) o al SQL Maestro for Firebird (de pago, pero bastante bueno, yo lo uso con SQLite) y ejecuto la consulta
Código SQL [-]SELECT COUNT(*) AS existe FROM rdb$relations WHERE rdb$relation_name = 'MITABLA'

El campo EXISTE vale UNO (1), ha encontrado la tabla creada.

Si cambio la consulta por:
Código SQL [-] SELECT COUNT(*) AS existe FROM rdb$relations WHERE rdb$relation_name = 'mitabla'

El campo EXISTE vale CERO (0), no ha encontrado la tabla creada.

Esto si que es un "rollo"

Saludos
salvica

Es curioso, para mi ese es el funcionamiento que debe de tener una consulta, el identificar la diferencia entre mayúsculas y minúsculas es lo que me espero en un "Where Campo = 'Valor', ahora si la consulta solo la construye una sola vez y la llama muchas veces mandando el nombre de la tabla como parametro entoces podría hacer el Upper en la consulta y no en el código Delphi y así no se va a llenar de UpperCase, ya si la consulta la construye siempre pues esto sería casi igual.