Modificar Tablas desde Codigo

[[BlueSteel]]

Hola amigos

tengo un problema. Hace un tiempo realice un sistema con Interbase,,, y ahora me piden una modificación.. como el sistema esta poblado... necesito agregar campos a una tabla en particular...y quisiera realizarlo desde delphi..

la siguiente sentencia me agrega el campo Pro_Precio a la tabla Producto, de tipo Integer y cuyo valor por Defecto es 0

Código SQL [-]
ALTER TABLE "Producto"
ADD "Pro_Precio" INTEGER
DEFAULT 0

mi problema esta en como ejecuto esa sentencia desde delphi... utilizo igualmente los IBQuery... o se necesita otro componente..

y para eliminar el campo estaria utilizando esto

Código SQL [-]
Alter Table "Producto" Drop "Pro_Precio"

gracias...

[[BlueSteel]]

se me olvidada..

que debo preguntar si el campo existe(eso no se como hacerlo).... si es así, que no se cree... de lo contrario..que se cree

PS: utilice el componente IBQuery para ejecutarlo y me funciono... (sigo usando este mismo componente o debo utilizar otro?

Código Delphi [-]
Datos.IBQ_Edit.Close;
Datos.IBQ_Edit.SQL.Clear;
Datos.IBQ_Edit.SQL.Add('ALTER TABLE "Producto" ADD "Pro_Precio" INTEGER DEFAULT 0');
Datos.IBQ_Edit.ExecSQL;

donde Datos es un Form de tipo DataModule....IBQ_Edit, es un IBQuery

[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;