Hola a todos:
Estoy Tratando de realizar un insert en sql el cual tengo un campo llamado 'ESTAD' de tipo Char en mi db de firebird que es enviado con un componente TRadioButton sin embargo no he logrado implementar mande un valor de 1 y valor de 0 a mi DB.
Este es un ejemplo como lo estoy realizando:
Código Delphi
[-]
procedure TfrmTransacciones.rbActivoClick(Sender: TObject);
Var
Estado : char;
begin
if TRadioButton(sender).Name='rbActivo' then
begin
Estado := 1;
end;
if TRadioButton(sender).Name='rbInactivo' then
begin
Estado := 0;
end;
end;
en mi sentencia sql esta asi:
Código Delphi
[-]
procedure TfrmTransacciones.btnAgregarClick(Sender: TObject);
var
trn:tdbxTransaction;
exito:boolean;
begin
trn := dmConexion.dmConexion.BeginTransaction;
try
with dmConexion.qClientes do
begin
sql.Clear;
sql.Add('insert into Clientes(CEDULA, NOMBRE, PAIS, DIRECCION, TELEFONO, FAX, ESTADO)');
sql.Add('values (:pCEDULA,:pNOMBRE,:pPAIS,:pDIRECCION,:pTELEFONO,:pFAX,:pEstado )');
parambyname ('pCEDULA').asstring := edtCedula.Text;
parambyname ('pNOMBRE').AsString :=edtNombre.Text;
parambyname ('pPAIS').AsString := edtPais.Text;
parambyname ('pDIRECCION').AsString :=edtPais.Text;
parambyname ('PTELEFONO').AsString := edtTelefono.Text;
parambyname ('pFAX').AsString := edtFax.Text;
parambyname ('pESTADO').AsString := Estado;
execsql;
begin
dmConexion.dmConexion.CommitFreeAndNil(trn);
exito := true;
end;
end;
except
on e:exception do
begin
dmConexion.dmConexion.RollbackFreeAndNil(trn);
showmessage ('Error Encontrado'+ e.message);
end;
end;
if
exito = true then
begin
Showmessage ('Cliente Agregado');
Close;
end;
end;
Saludos
novato_erick