jajajajajaj caral
mira quedo asi y ya no me da error...
Código Delphi
[-]
procedure TForm1.Button4Click(Sender: TObject);
var
c:string;
begin
if not adotable1.locate('COD',c,[])then
ADOTable1.Open;
begin
if (LabeledEdit2.text <> '') then
begin
adotable1.Insert;
ADOTable1.FieldByName('COD').AsString:=(LabeledEdit1.Text);
ADOTable1.FieldByName('NOMBRE').AsString:=(LabeledEdit2.Text);
ADOTable1.FieldByName('F_CADUCIDAD').AsDateTime:=strtodate(LabeledEdit3.text);
ADOTable1.Post;
Application.MessageBox('Todos Los Datos Han Sido Almacenados Correctamente','FarmaSoft',MB_OK);
LabeledEdit1.clear;
LabeledEdit2.clear;
LabeledEdit3.clear;
LabeledEdit1.setfocus;
end;
end;
end;
gracias caral