Query insertar dato en un Edit

[Basi]

hola a todos como ya sdaben soy nuevo en delhpi y bueno me la paso o tratando de apreder cada dia un poco mas y bueno la duda que tengo que eh buscado y no eh podido hacer es como insertar datos en los edit mediante el query.. ya teniendo una base de datos... bueno si me pudieran ayudar.. o darme algun lugar donde pueda guiarme se le agradeceria saludos..

[ecfisa]

Hola Basi.

Te pongo un ejemplo simple:

Código Delphi [-]
procedure TForm1.tuQueryAfterScroll(DataSet: TDataSet);
begin
  with DataSet do
  begin
    Edit1.Text := FieldByName('CAMPO_1').AsString;
    Edit2.Text := FieldByName('CAMPO_2').AsString;
    Edit3.Text := IntToStr(FieldByName('CAMPO_3').AsInteger);
    ...
  end;
end;

En este caso se aprovecha el evento AfterScroll del query para ir mostrando los campos en los Edits a medida que se va cambiando de registro activo.

Saludos.

[Basi]

Dejame probarlo y adadtar la idea a lo que ya estaba practicando..

antes estaba haciendo estos ejemplos para sigientes y atras.

Código Delphi [-]
 
procedure TForm1.SiguienteButtonClick(Sender: TObject);
begin
  PersonasQuery.Open;
  PersonasQuery.Next;
  LasNameEdit.Text:=(PersonasQueryLasName.value);
  CiudadEdit.Text:=(PersonasQueryCiudad.value);
end;
procedure TForm1.AtrasButtonClick(Sender: TObject);
begin
  PersonasQuery.Open;
  PersonasQuery.prior;
  LasNameEdit.Text:=(PersonasQueryLasName.value);
  CiudadEdit.Text:=(PersonasQueryCiudad.Value);
end;

y bueno para registrar un nuevo registro agrege un nuevo query que lo llame asi RegistrarQuery y en su propidad SQL coloque esto

Código SQL [-]
 
insert into personas values ();

y bueno no se si me captan la idea creo que mi problema sera en el sql..
buenos gracias por reponder efisa saludos

[ecfisa]

Empezado por Basi

creo que mi problema sera en el sql..

Hola.

La cadena SQL (cambiando los nombres de campo por los correspondientes) como ejemplo sería:

Código SQL [-]
  with tuQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO PERSONAS (CAMPO_1, CAMPO_2, ..., CAMPO_N)');
    SQL.Add('VALUES (:CAMPO_1, :CAMPO_2, ..., :CAMPO_N )');
    ParamByName('CAMPO_1').AsString := Edit1.Text;
    ParamByName('CAMPO_2').AsInteger:= StrToInt(Edit2.Text);
    ...
    ParamByname('CAMPO_N').AsString := EditN.Text;
    ExecSQL;  // No uses Open o Active en este caso
  end;

Aunque yo acostumbro utilizar el mismo nombre del campo para los nombres de los parámetros, pueden ser los que gustes siempre que se precedan por dos puntos ':' en la cadena SQL.

Saludos

[cancun]

Hola


Por que usas Edits para mostrar la información? si puedes usar DBEdits o DBTexts y te ahorras bastante código o tal vez te sirva un DBGrid, los haz probado?


Saludos