Como insertar datos

[borisf]

Empezado por ecfisa

Hola.
{ Insertar }
procedure TForm1.btInsertarClick(Sender: TObject);
begin
with ADOTable1 do
begin
Insert; // o Append;
FieldByName('Campo').AsString:= Edit1.Text;
...
Post;
end;
end;

Saludos.

Hola yo también soy nuevo en este lenguaje y me pasa un problema, mira este código arriba me funciona bien, pero tengo un problema y es que cuando estoy en un registro de mi tabla y uso el comando insert, se supone que me inserte la información en una posición por delante de la que estoy parado pero cuando corre el comando post para salvar los cambios el registro nuevo se adiciona al final de la tabla y no en la posición que deseaba, en verdad no se qué me está faltando?? Gracias por adelantado

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

[bulc]

Aunque tal vez no venga a cuento, apunto lo siguiente, pidiendo excusas si me salgo de cauce.
Es un punto que a me dio bastante la lata.
Veo que se usa la asignacion Tablax.(punto)Campo para apuntar a los campos. ¿No sería mejor usar la concatenación TablaxCampoY sin el punto por el medio? La única diferencia es que se tienen que cargar los campos durante el diseño, pero parece más propio, ¿no?
¿O hay alguna diferencia en usar uno u otro?

Table1.FieldByName('Campo').asString := Edit1.Text;
Table1Campox.Assign (o lo que sea)

[ecfisa]

Empezado por bulc

Aunque tal vez no venga a cuento, apunto lo siguiente, pidiendo excusas si me salgo de cauce.
Es un punto que a me dio bastante la lata.
Veo que se usa la asignacion Tablax.(punto)Campo para apuntar a los campos. ¿No sería mejor usar la concatenación TablaxCampoY sin el punto por el medio? La única diferencia es que se tienen que cargar los campos durante el diseño, pero parece más propio, ¿no?
¿O hay alguna diferencia en usar uno u otro?
Table1.FieldByName('Campo').asString := Edit1.Text;
Table1Campox.Assign (o lo que sea)

Hola bulc.

Hay varias formas para acceder a un campo:

Asignándolo directamente al nombre del campo persistente que hayamos creado:

Código Delphi [-]
  DataSetNombre.Value:= 'Juan';

Conociendo su posición, mediante la propiedad Fields:

Código Delphi [-]
  DataSet.Fields[0].Value:= 'Juan';

Conociendo su nombre, mediante la función FieldByName:

Código Delphi [-]
  DataSet.FieldByName('Nombre').Value:= 'Juan';

Mediante la propiedad FieldValues:

Código Delphi [-]
  DataSet.FieldValues['Nombre']:= 'Juan';

al ser esta la propiedad vectorial por defecto se puede simplificar a:

Código Delphi [-]
  DataSet['Nombre']:= 'Juan';

El resultado obtenido es el mismo, sea cual fuere el método que elijamos utilizar , pero:

Acceder mediante la propiedad Fields puede traer problemas si se reestructura la tabla y se cambia su posición, problema que no existe con el uso de FieldByName.

La asignación directa al nombre del campo es la más directa y eficiente, pero es la menos flexible. No podríamos por ejemplo, elegir un campo por nombre o posición en tiempo de ejecución.

Por último la opción más flexible es la propiedad vectorial por defecto ya que también permite cosas como:

Código Delphi [-]
var
  FV: Variant;
begin
  FV:= DataSet['Nombre;Domicilio;Telefono'];
  Label1.Caption:= FV[0]+' '+FV[1]+' '+FV[2]; 
  ...

Aunque esta flexibilidad paga un costo en eficiencia...

Saludos.

[bulc]

Gracias, Ecfisa, por tu aclaración.

[CHECHE81]

Saludos¡¡¡
Una cosa que yo utilizo es directamente el Grid junto con un Navigator asociado al DataSource y con ese objeto puedes hacer operaciones (Modificaciones, Agregar nuevo, Eliminar,Actualizar, Cancelar operación) que necesites sobre el registro seleccionado en tu Grid, directamente a los datos que te muestra, yo lo utilizo para catálogos pequeños, ok espero te sirva este dato.


(Navegador...)