FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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
__________________
Toda Teoria es Gris mas es verde en Arbol de Dorados Frutos que es la Vida (Goethe) |
#3
|
|||
|
|||
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; |
#4
|
||||
|
||||
Supongo que hará falta un Table1.Open antes del Append.
// Saludos |
#5
|
|||
|
|||
o tambien
procedure TForm4.FormCreate(Sender: TObject; var Action: TCloseAction); begin table1.Active := True; end;
__________________
Toda Teoria es Gris mas es verde en Arbol de Dorados Frutos que es la Vida (Goethe) |
#6
|
|||
|
|||
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. |
|
|
|