Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   de edit a tabla de base de datos. (https://www.clubdelphi.com/foros/showthread.php?t=22893)

gontxalo 30-06-2005 15:52:12

de edit a tabla de base de datos.
 
Hola
Tengo un Edit en un Form y quiero que al apretar un botón, lo que se ponga en el Edit se guarde en la tabla. Tengo la tabla ya diseñada, y todo creo que correcto pero lo que no se es que hay que poner en el procedure del click del botón:

procedure TForm4.Button1Click(Sender: TObject);
begin
??
end;

Otra cosa, para que lo que se escriba en los edit se guarden en las tablas de base de datos, pueden ser Edit, o tienen que ser DBEdit.

Gracias.

quetzal 30-06-2005 16:08:57

mmmmm
lo mas facil es usar un DBEdit

pero si quieres usar los Edit
por los que Tienes que hacer es asignarle lo que tiene el valor del edit al campo.
ejemplo:

Table1.Edit o Table1.Insert o Table1.Append; //agregar o editar un registro
Table1.FieldByName('Nombre del Campo').value:=Edit1.text; //ten en cuenta los tipos de datos si son int, string, real, etc
Table1.FieldByName('Nombre del Campo').value:=Editn.text
// para cada uno de los campos
Table1.Post; //guardar el registro en la tabla


espero esto te sirva :D

gontxalo 30-06-2005 16:34:09

mensaje de error al dar el botón.
 
Hola
Gracias.
Lo he puesto pero al dar el botón me salta el siguiente error:
Table1: Cannot perform this operation on a closed dataset. El code quedaría así:

procedure TForm4.Button1Click(Sender: TObject);
begin
Table1.Append; //agregar o editar un registro
Table1.FieldByName('name').value:=Edit1.text; //ten en cuenta los tipos de datos si son int, string, real, etc
Table1.FieldByName('lastname').value:=Edit2.text; // para cada uno de los campos
Table1.Post; //guardar el registro en la tabla
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.Active := False;

roman 30-06-2005 18:52:26

Supongo que hará falta un Table1.Open antes del Append.

// Saludos

quetzal 01-07-2005 00:49:07

o tambien :D
procedure TForm4.FormCreate(Sender: TObject; var Action: TCloseAction);
begin
table1.Active := True;
end;

gontxalo 01-07-2005 11:09:56

ya me funciona
 
Hola
Gracias.
Ya me funciona. Me faltaba lo que me ponéis, abrir la tabla. Le he puesto table1.open, y ya funciona correctamente.
Gracias.


La franja horaria es GMT +2. Ahora son las 03:35:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi