1

Estou com um problema para salvar as informações que seleciono em um RadioGroup no Banco de dados, após fazer a alteração que foi sugerida nesta pergunta o erro de tentar adicionar algo na coluna Ativo parou, porém em alguns casos está ocorrendo o seguinte erro:

inserir a descrição da imagem aqui

Estou fazendo o Insert da seguinte forma:

begin
    sdsSuprimentoCadastro.Close;
    sdsSuprimentoCadastro.ParamByName('SUPRIMENTO').AsString := cdsSuprimentoSuprimento.AsString;
    sdsSuprimentoCadastro.Open;
    if not sdsSuprimentoCadastro.IsEmpty then
       raise  Exception.Create('Cadastro para Suprimento já incluído');
    cdsSuprimentoCodigo.AsInteger := dmDatabase.NextID('SUPRIMENTO');
      dmDatabase.SQLConnection.Execute('INSERT INTO SUPRIMENTO (CODIGO, SUPRIMENTO, CAPACIDADE, '+
       'CODIGOTIPOSUPRIMENTO, ESTOQUEMINIMO, QUANTIDADEML, PARTNUMBER, STATUS, DESCRICAO) VALUES ('+ cdsSuprimentoCodigo.AsString+','''+
       cdsSuprimentoSuprimento.AsString+''','+
       cdsSuprimentoCapacidade.AsString + ',' + cdsSuprimentoCODIGOTIPOSUPRIMENTO.AsString + ',' +
       cdsSuprimentoEstoqueMinimo.AsString +','''+cdsSuprimentoQuantidadeML.AsString +
       ''','''+cdsSuprimentoPartNumber.AsString+ ''','''+QuotedStr(cdsSuprimentostatus.AsString)+ ''','''+cdsSuprimentoDESCRICAO.AsString+''')', nil);
  end

Meu update esta assim:

else
    dmDatabase.SQLConnection.Execute('UPDATE Suprimento SET SUPRIMENTO = '''+cdsSuprimentoSuprimento.AsString+
        ''', CAPACIDADE = '''+ cdsSuprimentoCapacidade.AsString +
        ''', CODIGOTIPOSUPRIMENTO = '+ cdsSuprimentoCODIGOTIPOSUPRIMENTO.AsString +
        ', QUANTIDADEML = '''+ cdsSuprimentoQuantidadeML.AsString +
        ''', PARTNUMBER = '''+ cdsSuprimentoPartNumber.AsString +
        ''', DESCRICAO = '''+ cdsSuprimentoDESCRICAO.AsString +
        ''', STATUS = '''+ QuotedStr(cdsSuprimentostatus.AsString)+
        ''', ESTOQUEMINIMO = '+ cdsSuprimentoEstoqueMinimo.AsString +
        ' WHERE CODIGO = '+cdsSuprimentoCodigo.AsString, nil);
  frmCadSuprimento.iCodigo := cdsSuprimentoCodigo.AsInteger;
  cdsSuprimento.Close;
  sdsSuprimento.CommandText := 'select * from Suprimento where codigo = 0';
  cdsSuprimento.Open;

a tabela esta configurada assim:

inserir a descrição da imagem aqui Se tiverem alguma ideia de o que pode estar causando tal erro, agradeço.

1 Resposta 1

2

Vejo que você tem uma coluna DESCRICAO logo a cima do status, ela também precisa do QuotedStr

Ficando assim

var update: string;
begin
  update =
        ' UPDATE Suprimento ' +
        ' SET SUPRIMENTO = ' + QuotedStr(cdsSuprimentoSuprimento.AsString) +
        '   , CAPACIDADE = '+ cdsSuprimentoCapacidade.AsString +
        '   , CODIGOTIPOSUPRIMENTO = '+ cdsSuprimentoCODIGOTIPOSUPRIMENTO.AsString +
        '   , QUANTIDADEML = '+ QuotedStr(cdsSuprimentoQuantidadeML.AsString) +
        '   , PARTNUMBER = '+ QuotedStr(cdsSuprimentoPartNumber.AsString) +
        '   , DESCRICAO = '+ QuotedStr(cdsSuprimentoDESCRICAO.AsString) +
        '   , STATUS = '+ QuotedStr(cdsSuprimentostatus.AsString)+
        '   , ESTOQUEMINIMO = '+ cdsSuprimentoEstoqueMinimo.AsString +
        ' WHERE CODIGO = '+cdsSuprimentoCodigo.AsString;

  dmDatabase.SQLConnection.Execute(update, nil);
end;

Sempre que tiver um campo que seja Varchar procure usar o QuotedStr.

7
  • fiz essa edição no meu Update e o erro passou a ser na descrição agora, mostra a mesma janela de erro só que agora ele me mostra o que esta no campo descrição Syntax error at or near "**o que esta no campo descricao**"
    – R.Santos
    Commented 12/01/2017 às 10:46
  • Compartilha a instrução create de sua tabela por favor. Commented 12/01/2017 às 10:55
  • Eu tenho ela no PostGreSQL apenas, poderia ser a imagem de como a tabela esta configurada? Com as colunas, etc.
    – R.Santos
    Commented 12/01/2017 às 10:58
  • Colunas e tipo de dados Commented 12/01/2017 às 10:58
  • Editei a pergunta com a imagem de como esta configurado o BAnco
    – R.Santos
    Commented 12/01/2017 às 14:01

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .