Tipos de Datos

[novato_erick]

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

[novato_erick]

PD: las caras con la lengua no son parte del codigo SQL :P = : Parametro

[novato_erick]

El problema que el valor

Código Delphi [-]

Estado := '0';

No es enviado a la tabla Estado de la DB

[kapcomx]

que tal amigo novato_erick, el problema es que tu variable Estado no esta declarada como una variable global
la declaras y le asignas valor en el procedimiento del radio button

Código Delphi [-]
procedure TfrmTransacciones.rbActivoClick(Sender: TObject); Var Estado : char; begin

quitala de ahi y colocala arriba

Código Delphi [-]
 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTransacciones: TfrmTransacciones; 
Estado : char; 
implementation

saludos...

[ecfisa]

Empezado por novato_erick

PD: las caras con la lengua no son parte del codigo SQL :P = : Parametro

Hola novato_erick.

Ya corregí los íconos en el código de tu mensaje; para evitar que aparezcan encerra a :p entre las etiquetas noparse.

Por ejemplo: [noparse]:p[/noparse]CEDULA

Un saludo.

[novato_erick]

ecfisa

gracias por corregir el codigo...

kapcomx

gracias me sirvio...


Saludos compañeros...

novato_erick