Crear y verificar campos en Paradox

[[David]]

Hola

Tengo una aplicación en la que voy a realizar ciertos cambios y requiero añadir dos campos en una base de datos de paradox . Para ello he pensado hacer una pequeña aplicación para que añada estos campos , se la hago ejecutar el cliente , y luego le mando el ejecutable .

Los campos que quiero añadir serian numericos , IVA y Retención . Pero lo que quiero es que esta aplicación compruebe antes de hacer el cambio que estos campos no existen .

El código seria así :

Añado una TQuery .

Código Delphi [-]

if CamposnoExisten then
begin
Query1.sql.add('Alter table Caja add Iva Numeric default 16');
Query1.ExecSQL;
Query1.Clear;
Query1.SqlAdd('Alter table Caja add Ret Numeric default 5');
Query1.ExecSQL;
End;

Mis dudas , quiero saber si el código es el correcto , quiero añadir 2 campos númericos con un valor por defecto . Y lo que no sé hacer es como comprobar si en una base de datos de paradox un campo existe o no.

Saludos

[[David]]

Aunque nadie ha contestado , tengo otra duda , hay un campo que lo quiero variar , ahora es un String de extensión 5 (un A 5) , quiero convertirlo en un string 10 y también cambiar el valor del default .

Una manera de hacerlo seria borrar el campo y volverlo a añadir (todo por código) , pero claro perderia todos los datos , que tuviera guardado . Esto es un serio problema según veo yo.

Como se puede hacer esto .

[marcoszorrilla]

Lo que dices es posible sin que se pierda nada:

1. Creas el nuevo campo dejando el anterior como estaba.
2. Actualizas el nuevo campo con los datos del antiguo.
3. Eliminas el campo antiguo.

Todo ésto puede hacerse utilizando SQL.

[marcoszorrilla]

Un ejemplo de como saber si un campo existe o no:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
bExiste:Boolean;
begin
bExiste:=False;
 For n:=0 to Query1.FieldCount -1 do
 begin
   If (query1.Fields[n].DisplayName) = 'Fecha' then
   bExiste:=True;
 end;

 if bExiste = True then
 ShowMessage('el campo existe no crearlo.');

end;

Un Saludo.

[roman]

Aunque luego hay que repetir los pasos 1-3 para obtener el nombre original que hubiera tenido el campo.

// Saludos

[[David]]

Lo que no me sale es la sentencia SQL .

funciona :

'Alter table Caja add iva smallint '

pero no funciona al añadir la palabra clave default :

'Alter table Caja add iva smallint default 16 '

alguien sabe como tengo que hacer para añadir un valor por defecto .


Saludos