|
a mi mismo
Me respondo a mi mismo, mmm... bueno, en realidad es otra duda porque al parecer pude solucionar el problema sin embargo fue incluyendo una instruccion que creia solo tenia que poner una vez... miren:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Insert;
ADOTable1.Fields.FieldByName('matricula').Text:=Edit2.Text;
ADOTable1.Fields.FieldByName('nombre').Text:= Edit1.Text;
ADOTable1.Fields.FieldByName('periodo').Text:= Edit3.Text;
ADOTable1.Fields.FieldByName('grupo').Text:= Edit4.Text;
ShowMessage('Registro Guardado');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
ADOTable1.Insert;
end;
Alguien me puede explicar a que se debe esto?
me ocasionara algun problema?
|