6 respuestas en este tema

[TiammatMX]

Continuando con mi problema actual...

Tengo éste código en la forma padre de mi proyecto:

delphi

procedure TDts.Edit;
var
   i : Integer;
begin
  clndsDts.Edit;
  for i := 0 to clndsDts.FieldCount - 1 do
  begin
    clndsDts.Fields[ i ].AsString := Trim( clndsDts.Fields[ i ].AsString );
  end;
end;

Buscando en la ayuda de Delphi 7, encontré el tipo de campo fkInternalCalc e intenté añadirlo a mi código:

delphi

procedure TDts.Edit;
var
   i : Integer;
begin
  clndsDts.Edit;
  for i := 0 to clndsDts.FieldCount - 1 do
  begin
    if clndsDts.Fields[ i ].FieldKind <> fkInternalCalc then
      clndsDts.Fields[ i ].AsString := Trim( clndsDts.Fields[ i ].AsString );
  end;
end;

Pero no me identifica el campo autoincrementable (Identity) de la tabla que estoy abriendo.

¿Alguna idea de cómo puedo identificar un campo autoincrementable de MS SQL Server 2005?

[TiammatMX]

Por si de algo sirve, las tablas están definidas así:

sql

CREATE TABLE [dbo].[CtlClbArm](
    [ClvClbArm] [INT] IDENTITY(1,1) NOT NULL,
    [DscClbArm] [VARCHAR](50) NOT NULL
) ON [PRIMARY]

[Marc]

No creo que haya ninguna propiedad en Delphi que te indique eso. Personalmente lo que hago es seguir siempre una misma estructura sencilla, que es que los campos primarios de mis tablas (es decir, los autoincrentales) sean el primer campo de todos.

De forma que tu código quedaría :

delphi

procedure TDts.Edit;
var
   i : Integer;
begin
  clndsDts.Edit;
  for i := 1 to clndsDts.FieldCount - 1 do  // Nos saltamos el campo 0 (Autoincremental)
  begin
    clndsDts.Fields[ i ].AsString := Trim( clndsDts.Fields[ i ].AsString );
  end;
end;

[TiammatMX]

No creo que haya ninguna propiedad en Delphi que te indique eso. Personalmente lo que hago es seguir siempre una misma estructura sencilla, que es que los campos primarios de mis tablas (y por lo tanto los autoincrentales) sean el primer campo de todos.

De forma que tu código quedaría :

delphi

procedure TDts.Edit;
var
   i : Integer;
begin
  clndsDts.Edit;
  for i := 1 to clndsDts.FieldCount - 1 do  // Nos saltamos el campo 0 (Autoincremental)
  begin
    clndsDts.Fields[ i ].AsString := Trim( clndsDts.Fields[ i ].AsString );
  end;
end;

Gracias, Marc..., la solución también ya la habíamos pensado los compañeros de la oficina y yo, pero como ésta es una función que se aplica A TODOS los TClientDataSet's que componen el proyecto, no estamos seguros qué tanto afectará a otras pantallas del mismo...

Y como estamos trabajando en equipo, difícilmente se puede optar por una solución que genere problemas en otro lugar. Pero sí, prometo ponderarla para su posible aplicación.

[Rolphy Reyes]

Saludos.

TiammatMX, observa este artículo a ver si te ayuda!

[Wilson]

Ensaya con esto usando la propiedad DataType y no FieldKind

delphi

procedure TDts.Edit;
var
   i : Integer;
begin
  clndsDts.Edit;
  for i := 0 to clndsDts.FieldCount - 1 do
  begin
    if clndsDts.Fields[ i ].DataType<> ftAutoInc then // o tambien ftInteger
      clndsDts.Fields[ i ].AsString := Trim( clndsDts.Fields[ i ].AsString );
  end;
end;

Aunque yo comparararía mejor los tipo string para poder aplicar la función Trim, para que no se vean involucrados los campos de fechas, booleanos, etc.

delphi

procedure TDts.Edit;
var
   i : Integer;
begin
  clndsDts.Edit;
  for i := 0 to clndsDts.FieldCount - 1 do
  begin
    if clndsDts.Fields[ i ].DataType = ftString then // 
      clndsDts.Fields[ i ].AsString := Trim( clndsDts.Fields[ i ].AsString );
  end;
end;

[rmejia]

basta en un query poner el siguiente codigo

SELECT  c.name FROM syscolumns c, sysobjects o WHERE c.STATUS & 128 = 128
AND o.id = c.id AND o.name= nombre_de_la_tabla

el nombre de la tabla pasalo como string

te devuelve el campo identity