No se que consulta en tu query y esos valores que le pasas a los campos no se si los tendra claro pero esto que sigue debe funcionar.
if not Tbconcepto.active then
Begin
Tbconcepto.open;
Tbconcepto.Insert;
Tbconcepto.FieldByName('cod_concepto').AsString := "A5";
Tbconcepto.FieldByName('cod_especialidad').AsString := "Esp. A5";
Tbconcepto.FieldByName('descripcion_concepto').AsString := "Esta es la Especialidad";
Tbconcepto.Post;
End;
Debes usar Begin ... End; para una mejor logica de tus codigos.
Suerte.
Nelson Polanco
Rep. Dom.
|