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:
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:
Se tiverem alguma ideia de o que pode estar causando tal erro, agradeço.