Ver Mensaje Individual
  #4  
Antiguo 08-10-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
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.
Responder Con Cita