Modificar Tablas desde Codigo

[juanelo]

Que tal,
Así preguntas por un campo de una tabla.

Código SQL [-]
Select RDB$FIELD_NAME from  RDB$RELATION_FIELDS
 where  RDB$RELATION_NAME="NOM_TABLA"  AND RDB$FIELD_NAME="NOMBRE_CAMPO"
order by RDB$FIELD_POSITION

Saludos

[jhonny]

juanelo ya te ha dicho como averiguar por la existencia de dicho campo, asi que solo me queda decirte que me parece bien que uses el IBQuery para este caso, no veo cual pueda ser el problema .

[[BlueSteel]]

Holas,... gracias


ejecute la sentencia que me dio juanelo.. y me da el siguiente error

[Error]
fmSQLEditor.Query:
Column does not belong to referenced table.Dynamic SQL Error.
SQL error code = -206.
Column unknown.
Producto.
[/Error]

la sentencia la ejecute desde monitor SQL de la sgte forma

Código SQL [-]
 
Select RDB$FIELD_NAME From RDB$RELATION_FIELDS
Where RDB$RELATION_NAME="Producto" AND RDB$FIELD_NAME="Pro_Precio"

[[BlueSteel]]

buscando por ahí.. encontre que la consulta debo realizarla con comillas simples y no dobles.. por lo que quedaría así

Código SQL [-]
Select RDB$FIELD_NAME From RDB$RELATION_FIELDS
Where RDB$RELATION_NAME='Producto' AND RDB$FIELD_NAME='Pro_Precio'

ahora tendria que ver como traspaso eso desde delphi, ya que si pongo la comilla simple me lo toma como error de programación (asume termino de linea)

alguien sabe cual es el comodin para solucionarlo....?

Código Delphi [-]
Datos.IBQ_Edit.Close;
Datos.IBQ_Edit.SQL.Clear;
Datos.IBQ_Edit.SQL.Add('Select RDB$FIELD_NAME From RDB$RELATION_FIELDS');
Datos.IBQ_Edit.SQL.Add('Where RDB$RELATION_NAME="Producto" AND RDB$FIELD_NAME='Pro_Precio'');
Datos.IBQ_Edit.SQL.Add('Order by RDB$FIELD_POSITION');
Datos.IBQ_Edit.Open;

[jhonny]

Debes colocar comilla simple porque seguramente tu BD esta en Dialecto 3 .

En cuanto a lo de Delphi, usalo asi:

Código Delphi [-]
Datos.IBQ_Edit.Close;
Datos.IBQ_Edit.SQL.Clear;
Datos.IBQ_Edit.SQL.Add('Select RDB$FIELD_NAME From RDB$RELATION_FIELDS');
Datos.IBQ_Edit.SQL.Add('Where RDB$RELATION_NAME=''Producto'' AND RDB$FIELD_NAME=''Pro_Precio''');
Datos.IBQ_Edit.SQL.Add('Order by RDB$FIELD_POSITION');
Datos.IBQ_Edit.Open;

O tambien con la función QuotedStr, asi:

Código Delphi [-]
  Datos.IBQ_Edit.Close;
  Datos.IBQ_Edit.SQL.Clear;
  Datos.IBQ_Edit.SQL.Add('Select RDB$FIELD_NAME From RDB$RELATION_FIELDS');
  Datos.IBQ_Edit.SQL.Add('Where RDB$RELATION_NAME='+ QuotedStr('Producto') + ' AND RDB$FIELD_NAME='+QuotedStr('Pro_Precio'));
  Datos.IBQ_Edit.SQL.Add('Order by RDB$FIELD_POSITION');
  Datos.IBQ_Edit.Open;

[[egostar]]

Empezado por BlueSteel

ahora tendria que ver como traspaso eso desde delphi, ya que si pongo la comilla simple me lo toma como error de programación (asume termino de linea)

alguien sabe cual es el comodin para solucionarlo....?

Y si usas el QuotedStr, de esta forma

Código Delphi [-]
Datos.IBQ_Edit.SQL.Add('Where RDB$RELATION_NAME='+QuotedStr('Producto')+' AND RDB$FIELD_NAME='+QuotedStr('Pro_Precio'));

Salud OS

Edito: Se me ha adelantado estimado jhonny.

[jhonny]

Otra cosa, para el proposito que buscas no es necesario el Order By, ya que solo necesitas saber si existe o no el campo y ademas siempre te devolvera un solo registro .

P.D. para egostar: no siempre puedo perder .

[[egostar]]

Empezado por jhonny

P.D. para egostar: no siempre puedo perder .

Ah no amigo jhonny, recuerda que lo importante es la constancia

Salud OS

[jhonny]

Se me olvidaba, los nombres de las tablas y los campos deben ir en mayusculas, por lo que sería conveniente (claro que eso lo decidis vos), hacerle lo siguiente a la consulta...

Código SQL [-]
Select RDB$FIELD_NAME from  RDB$RELATION_FIELDS
 where  RDB$RELATION_NAME=UPPER('Nombre_Tabla') AND RDB$FIELD_NAME=UPPER('Nombre_Campo')

Propongo esa consulta en caso de que el nombre de la tabla y el del campo, lo vayas a pasar por parametro o algo asi .

P.D. para egostar: No en el caso de ser el perder .