Como averiguar si hay un campo en la Db

[Jose Manuel]

Hola, trabajo con Delphi4 y con Dbase y quisiera saber como puedo averiguar si una tabla tiene un determinado campo.

Por ejemplo: como saber si la base de datos de "proveedores" tiene el campo "fax" antes de poner la propiedad Active a true.

Un saludo
Jose Manuel

[__cadetill]

puedes recorrerte los campos del dataset y mirar si existe


var
i : integer;
begin
i := 0;
while (i <= Table1.Fields.Count - 1) and (Table1.Fields[i].FieldName = 'fax') do
inc(i);

if i > Table1.Fields.Count - 1 then
ShowMessage('no existe')
else
ShowMessage('existe');
end;

[Jose Manuel]

Hola, el problema que hay que es son campos persistentes, de manera que siempre me dice que existe el campo en la tabla fDatamodulo.tbproveedores, pero luego si falta realmente el campo en la base de datos se produce el error.

Tambien he probado calculando el nº total de campos que debe tener la tabla, por ejemplo

If fDatamodulo.tbproveedor.FieldCount<=26 then "hay que actualizar"

pero esta instrucción siempre da el mismo nº de campos.

Gracias y saludo a todos
Jose Manuel

[sanxpue]

:( :mad:

var
i : integer;
begin
i := 0;
// Si Fields[0].FieldName = 'Indice' (supongamos)
// entonces no entra y te va a regresar que existe i = 0
//mala rutina
while (i <= Table1.Fields.Count - 1) and (Table1.Fields[i].FieldName = 'fax') do
inc(i);

if i > Table1.Fields.Count - 1 then
ShowMessage('no existe')
else
ShowMessage('existe');

end;


Bueno la idea es la siguiente que tengas otra TTable que llame a la tabla
que llama fDatamodulo.tbproveedor pero sin campos persistentes, (supongamos que
la tabla se llama proveedor.db) puedes tener una ttable que se llame tbLibre y
a la hora que quieras probar eso entonces :


Function SeEncuentraCampo : Boolean;
Var
I : Integer;
Begin
Result := False;
fDatamodulo.tbLibre.Close //por si esta abierta por algun lado
fDatamodulo.tbLibre.TableName := 'proveedor.db';
fDatamodulo.tbLibre.Open;
While (I <= fDatamodulo.tbLibre.Fields.Count-1) And (Not Result) Do
If fDatamodulo.tbLibre.Fields[i].FieldName = 'fax' Then
Result := True
Else
Inc(I);
fDatamodulo.tbLibre.Close;
End;


Ahora si vas a usar esto para varias tablas solo hay que hacer unas pequeñas
modificaciones a lo anterior :


Function SeEncuentraCampo(NomTab,Campo : String) : Boolean;
Var
I : Integer;
Begin
Result := False;
fDatamodulo.tbLibre.Close //por si esta abierta por algun lado
fDatamodulo.tbLibre.TableName := NomTab;
fDatamodulo.tbLibre.Open;
While (I <= fDatamodulo.tbLibre.Fields.Count-1) And (Not Result) Do
If fDatamodulo.tbLibre.Fields[i].FieldName = Campo Then
Result := True
Else
Inc(I);
fDatamodulo.tbLibre.Close;
End;


entonces ya en el procedimiento grande


if SeEncuentraCampo('proveedor.db','fax') then
Begin
fDatamodulo.tbproveedor.open;
.
.
end
Else
ShowMessage('No existe el campillo');



Saludos desde Puebla Mexico
asanxt@hotmail.com