Failure to enter data in the database by Radiogroup

Question

I’m trying to save information in the bank through a Radiogroup, but instead of saving it in the column Status I hold the floor active he tries to find the column active. my form is like this:

And mine Insert is like this:

begin
    sdsEmpresaCadastro.Close;
    sdsEmpresaCadastro.CommandText := 'select * from Empresa where Nome = '''+cdsEmpresaNOME.AsString + '''';
    sdsEmpresaCadastro.Open;

    if not sdsEmpresaCadastro.IsEmpty then
       raise  Exception.Create('Empresa já incluída');
    cdsEmpresaCODIGO.AsInteger := dmDatabase.NextID('EMPRESA');
    dmDatabase.SQLConnection.Execute('INSERT INTO Empresa (CODIGO, NOME, VALORIMPRESSAO, '+
         'VALORDIGITALIZACAO, VALORIMPRESSAOEXCEDENTE, CONTATO, NOMEREDUZIDO, CNPJ, ENDERECO, BAIRRO, CEP, '+
         'CIDADE, TEFONE, UF, INSCRICAOESTADUAL, CONTATONF, EMAIL, EMAILNF, OBSERVACAO, '+
         'FRANQUIADIGITALIZACAO, STATUS, VALORDIGITALIZACAOEXCEDENTE) VALUES ('+
         cdsEmpresaCODIGO.AsString+','''+cdsEmpresaNOME.AsString+''','+
         TrocaVirgPPto(cdsEmpresaVALORIMPRESSAO.AsString)+','+
         iif(cdsEmpresaVALORDIGITALIZACAO.AsString='','0', TrocaVirgPPto(cdsEmpresaVALORDIGITALIZACAO.AsString))+','+
         iif(cdsEmpresaVALORIMPRESSAOEXCEDENTE.AsString='','0', TrocaVirgPPto(cdsEmpresaVALORIMPRESSAOEXCEDENTE.AsString))+
         ','''+cdsEmpresaCONTATO.AsString+''','''+cdsEmpresaNOMEREDUZIDO.AsString+ ''','''+
         cdsEmpresaCNPJ.AsString +''','''+cdsEmpresaENDERECO.AsString+''','''+
         cdsEmpresaBAIRRO.AsString +''','''+cdsEmpresaCEP.AsString+ ''','''+
         cdsEmpresaCIDADE.AsString+''','''+cdsEmpresaTEFONE.AsString+''','''+
         cdsEmpresaUF.AsString+''','''+cdsEmpresaINSCRICAOESTADUAL.AsString+ ''','''+
         cdsEmpresaCONTATONF.AsString+ ''','''+ cdsEmpresaEMAIL.AsString + ''','''+
         cdsEmpresaOBSERVACAO.AsString + ''','''+ cdsEmpresaEMAILNF.AsString+''','+
         iif(cdsEmpresaFRANQUIADIGITALIZACAO.AsString='','0', cdsEmpresaFRANQUIADIGITALIZACAO.AsString)+','+
         cdsEmpresastatus.AsString +','+
         iif(cdsEmpresaVALORDIGITALIZACAOEXCEDENTE.AsString='','0', TrocaVirgPPto(cdsEmpresaVALORDIGITALIZACAOEXCEDENTE.AsString))+')', nil);
  end

I’ve just tried to save the word right active in the bank, but he is not saving it, yet he accuses this mistake:

If you have any idea what might change, or what might be causing such a mistake, I would appreciate it.

Answer 1

Missing you add simple quotes.

Try to use the function QuotedStr to add the simple quotes, being as follows

QuotedStr(cdsEmpresastatus.AsString)