Hola a Todos tengo lo siguiente:
Código Delphi
[-]
procedure TfrmEmpleados.btnAgregarClick(Sender: TObject);
var
exito: boolean;
begin
trn := dmConecta.FBLINUXCONECTION.BeginTransaction;
try
with dmConecta.qEmpleados do
begin
sql.Clear;
sql.Add('insert into EMPLEADOS (NOMBRE, NOMBRE_2, APELLIDO, APELLIDO_2, CEDULA, NACIMIENTO, ....)');
sql.Add('values (:pNOMBRE,:pNOMBRE_2,:pAPELLIDO,:pAPELLIDO_2,:pCEDULA,:pNACIMIENTO,:pID_GENERO... )');
parambyname('pNOMBRE').AsString := edtNombre1.Text;
parambyname('pNOMBRE_2').AsString := edtNombre2.Text;
parambyname('pAPELLIDO').AsString := edtApellido1.Text;
parambyname('pAPELLIDO_2').AsString := edtapellido2.Text;
parambyname('PCEDULA').AsString := edtCedula.Text;
parambyname('pNACIMIENTO').AsDateTime := dtpFNacimiento.DateTime;
parambyname('pID_GENERO').AsInteger := IdGenero;
parambyname('pDIRECCION').AsString := mDireccion.Text;
parambyname('pTELEFONO').AsString := edtTelefono.Text;
parambyname('pCELULAR').AsString := edtCelular.Text;
execsql;
begin
dmConecta.FBLINUXCONECTION.CommitFreeAndNil(trn);
exito := true;
end;
end;
except
on e: exception do
begin
dmConecta.FBLINUXCONECTION.RollbackFreeAndNil(trn);
showmessage('Error Encontrado' + e.message);
end;
end;
if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
MB_ICONQUESTION OR MB_YESNO) = ID_NO then
begin
dmConecta.qEmpleados.Close;
frmPrincipal.CerrarPestana;
end
else
begin
end;
Que me recomiendan?
novato_erick