Extrayendo metadatos

[cesarsoftware]

Hola compis, tengo una duda no existencial, uso un codigo que circula por la red para extraer los campos de una tabla (para tener integrado un visor de bbdd en las aplicaciones).

Es el siguiente

Código Delphi [-]
    sql := 'SELECT r.RDB$RELATION_NAME as table_name,';
    sql := sql + ' r.RDB$FIELD_POSITION as field_position,';
    sql := sql + ' r.RDB$FIELD_NAME AS field_name,';
    sql := sql + ' r.RDB$DESCRIPTION AS field_description,';
    sql := sql + ' r.RDB$DEFAULT_VALUE AS field_default_value,';
    sql := sql + ' r.RDB$NULL_FLAG AS field_not_null_constraint,';
    sql := sql + ' f.RDB$FIELD_LENGTH AS field_length,';
    sql := sql + ' f.RDB$FIELD_PRECISION AS field_precision,';
    sql := sql + ' f.RDB$FIELD_SCALE AS field_scale,';
    sql := sql + ' CASE f.RDB$FIELD_TYPE';
    sql := sql + '   WHEN 7 THEN ''' + 'SMALLINT''';
    sql := sql + '   WHEN 8 THEN ''' + 'INTEGER''';
    sql := sql + '   WHEN 9 THEN ''' + 'QUAD''';
    sql := sql + '   WHEN 10 THEN ''' + 'FLOAT''';
    sql := sql + '   WHEN 12 THEN ''' + 'DATE''';
    sql := sql + '   WHEN 13 THEN ''' + 'TIME''';
    sql := sql + '   WHEN 14 THEN ''' + 'CHAR''';
    sql := sql + '   WHEN 16 THEN ''' + 'BIGINT''';
    sql := sql + '   WHEN 27 THEN ''' + 'DOUBLE PRECISION''';
    sql := sql + '   WHEN 35 THEN ''' + 'TIMESTAMP''';
    sql := sql + '   WHEN 37 THEN ''' + 'VARCHAR''';
    sql := sql + '   WHEN 40 THEN ''' + 'CSTRING''';
    sql := sql + '   WHEN 45 THEN ''' + 'BLOB_ID''';
    sql := sql + '   WHEN 261 THEN ''' + 'BLOB''';
    sql := sql + ' ELSE ''' + 'UNKNOWN''';
    sql := sql + ' END AS field_type,';
    sql := sql + ' f.RDB$FIELD_SUB_TYPE AS field_subtype,';
    sql := sql + ' coll.RDB$COLLATION_NAME AS field_collation,';
    sql := sql + ' cset.RDB$CHARACTER_SET_NAME AS field_charset';
    sql := sql + ' FROM RDB$RELATION_FIELDS r';
    sql := sql + ' LEFT JOIN RDB$FIELDS f ON r.RDB$FIELD_SOURCE = f.RDB$FIELD_NAME';
    sql := sql + ' LEFT JOIN RDB$COLLATIONS coll ON r.RDB$COLLATION_ID = coll.RDB$COLLATION_ID';
    sql := sql + ' AND f.RDB$CHARACTER_SET_ID = coll.RDB$CHARACTER_SET_ID';
    sql := sql + ' LEFT JOIN RDB$CHARACTER_SETS cset ON f.RDB$CHARACTER_SET_ID = cset.RDB$CHARACTER_SET_ID';
    sql := sql + ' WHERE RDB$RELATION_NAME = ''' + tabla + '''';
    sql := sql + ' ORDER BY r.RDB$RELATION_NAME, r.RDB$FIELD_POSITION;';
  try
    FormBBDD.SQLConnection.Execute(sql, nil, @DataSetCampos);
  except
    on E: Exception do
    begin
      msg := 'No se ha podido leer la tabla ' + tabla + #13 + #10 + E.Message;
      AvisoMsg(msg, True);
      DataSetCampos.Free;
      Exit;
    end;
  end;
  cuantos := DataSetCampos.RecordCount;
  STnumCampos.Caption := IntToStr(cuantos);

En primer lugar deciros que no entiendo las funciones "coll" y "cset" ni poque ha veces usa "f" y otras "r" pero funciona, si me lo podeis explicar me haceis un favor.
Y lo segundo es que no entiendo porque hace un case para obtener el tipo de datos si estos estan en la tabla RDB$TYPES, ¿no se podria hacer un left join o algo para sacar directamente el tipo de datos, es decir si el tipo es 14 entonces "TEXT" ya que ese datos esta en la tabla de tipos?

Gracias de antemano.

[Casimiro Notevi]

Son alias, se usan cuando se hace referencia a más de una tabla, para que no haya problemas de saber a qué campo de qué tabla nos referimos, de esa manera puedes tener campos con el mismo nombre pero de tablas diferentes y estaría claro, ejemplo:

tabla empresas (id, nombre, telefono)
tabla sucursales (id, id_empresa, nombre, telefono)

Ejemplos:

Código SQL [-]
select e.telefono, s.telefono
from empresas e
inner join sucursales s on (s.id_empresa=e.id)
order by e.nombre, s.nombre

Código SQL [-]
select emp.telefono, suc.telefono
from empresas emp
inner join sucursales suc on (suc.id_empresa=emp.id)
order by emp.nombre, suc.nombre

En el primer caso, se ha usado el alias e para empresas y s para sucursales
En el segundo caso, se ha usado el alias emp para empresas y suc para sucursales.
Puedes usar el alias que quieras

[cesarsoftware]

Gracias "casimiro" entendido el tema de alias, entoces coll y cset tambien son alias de COLLATION Y CHARSET.

Por tanto r se refiere a RELATIONS y f a FIELDS, 't'a claro.

¿Y la segunda cuestion? ¿Como meter en el campo field_type el valor del campo RDB$TYPES_NAME de la tabla RDB$TYPES,
es decir que en vez de tener un 8 (INTEGER) y hacerle el "case" que coja el nombre de la tabla RDB$TYPES?

Sin haber estudiado, lo haria asi, mal, pero es para aclararme
"busca en la tabla TYPES y mete en el campo field_type el valor del campo TYPE_NAME de la tabla TYPES segun el valor del campo FIELD_TYPE de la tabla FIELD"
LEFT JOIN RDB$TYPES ON field_type = RDB$TYPES.RDB$TYPE_NAME = RDB$FIELDS.RDB$FIELD_TYPE

No quiero (o si) que me resuelvas el codigo sino aprender a hacerlo.

Gracias,

[Casimiro Notevi]

Si existe ese relación, entonces debe funcionar.
Aunque en varios sitios he visto que no se usa, no he investigado el motivo, mira este mensaje:

[cesarsoftware]

Gracias casimiro, ya habia visto codigos parecidos.

No soy experto en SQL pero igual que a ti me extraña que los codigos que circulan no usen esa relacion.

¿Un buen curso de SQL?

Thanks

[Casimiro Notevi]

No sé, ya digo, no lo he mirado, aunque supongo que debe existir algún motivo.