Añadir field a un TTable tiempo ejecucion

[axak]

es correcto me faltaba poner en uses el db muchas gracias por aclararme esa duda pero veo que la sentencia no es la correcta que yo estaba buscando ya que no me sale el error anterior pero no me reconoce Tvacia1oficio ya que no esta cargado como field

La verdad que estoy loco buscando esto porque lo que quiero es que el campo oficio guarde lo escrito en el combobox y nada ahora estoy utilizando

Principal.TVacia1.FieldByName('oficio').AsString:=CBOficio.Text;

Pero nada y es que estoy dando palos de ciegos por que en realidad no se lo que hace esta sentencia la lei en el foro me parecio que me valia y la inserter pero nada y lo mismo me paso con
Principal.TVacia1.fielddefs.Add('oficio', ftString, 100);
que pensaba que cargaba oficio en los fields pero tampoco
de todas formas muchisimas gracias asi voy aclarando dudas y aprendiendo.

[cloayza]

Amigo, segun lo que entiendo quieres accesar datos de una tabla sin definirlos como persistentes.

Para ello debes realizar lo siguiente:

Primero:

Código Delphi [-]
TVacia1.Active:=False;
TVacia1.DatabaseName:='DBGESCONS';
TVacia1.TableName:='oficios.db';
TVacia1.Active:=True;

A partir de ahora todos los campos que tenga la tabla Oficios los podras acceder de la siguiente forma:

Código Delphi [-]
TVacia1.FieldByname('Oficio').AsString
TVacia1.FieldByname('Numero').AsInteger
TVacia1.FieldByname('Numero_Real').AsFloat
TVacia1.FieldByname('Logico').AsBoolean;

Ademas puedes validar si la tabla tiene un campo de la siguiente forma:

Código Delphi [-]
if TVacia1.FindField('Oficio)<>NIL Then
   ShowMessage(TVacia1.FieldByname('Oficio').AsString)
else
   ShowMessage('El campo Oficio no existe');

Para ingresar o modificar:

Código Delphi [-]
TVacia1.Append; Esta linea es para agregar
//TVacia1.Edit; Esta linea es para editar
TVacia1.FieldByname('Oficio').AsString:='Oficion Texto';
TVacia1.FieldByname('Numero').AsInteger:=10;
TVacia1.FieldByname('Numero_Real').AsFloat:=10.9;
TVacia1.FieldByname('Logico').AsBoolean:=True;
TVacia.Post;

Saludos y espero haber aclarado algo tus dudas.

[axak]

Muchas gracias Claro que me ha servido me estaba volviendo loco, ahora entiendo que poner
TVacia1.FieldByName('oficio').AsString:=CBOficio.Text;
es como poner cuando tienes los fields definidos con el editor de fields
Tvaciaoficio.value:=CBoficio.text;
me estaba volviendo tan loco esta linea que haste he puesto la sentencia TVacia.edit; en vez de Tvacia1.post; y cuando he puesto tu linea que ya sabia que funcionaba me he dado cuenta que habia otro error que era ese es que de tanto tocar el codigo ya ni sabia lo que ponia
muchas gracias de verdad.

[genyus00]

FieldDefs.Add('oficio', ftString, 100, false); //eso te falta

[Casimiro Noteví]

Cuatro años después

[genyus00]

jejeje. siempre hay alguien en busca una respuesta y estas son las primeras en salir y sin concluir. Pero para que veas hay un tema que cada año alguien le agrega algo y creo llevan 10 años en eso. reviven el link cada año.

Código Delphi [-]
//agregar campo en tiempo de ejecución
procedure TForm1.Button2Click(Sender: TObject);
var
  T: TStringField;
begin
  Query1.Close;
  T := TStringField.Create(Self);
  T.FieldName := 'CO_NAME';
  T.Name := Query1.Name + T.FieldName;
  T.Index := Query1.FieldCount;
  T.DataSet := Query1;
  Query1.FieldDefs.UpDate;
  Query1.Open;
end;

//Eliminar campo en tiempo de ejecución
procedure TForm1.Button1Click(Sender: TObject);
var
  TC: TComponent;
begin
  TC := FindComponent('Query1CO_NAME');
  if not (TC = nil) then begin
    Query1.Close;
    TC.Free;
    Query1.Open;
  end;
end;

[Casimiro Noteví]

Empezado por genyus00

jejeje. siempre hay alguien en busca una respuesta y estas son las primeras en salir y sin concluir. Pero para que veas hay un tema que cada año alguien le agrega algo y creo llevan 10 años en eso. reviven el link cada año.

Pues tomamos nota y te esperamos dentro de un año aquí