Salvando String com valor null no postgres utilizando DBExpress e conexão ODBC

[douglas_k]

Boa tarde Pessoal,

   Estou com a seguinte dificuldade.

       - Tenho um campo chamado usuario do tipo character varying em uma tabela com base de dados Postgres.

       - Utilizo o DBExpress com a conexão ODBC

      - Preciso Salvar esse campo em uma determinada situação como null, mais ele sempre esta salvando como ''. Faço da seguinte forma:

                ClientDataset.Edit;
                ClientDataset.FieldByName('usuario=').AsString := '';
                ClientDataset.post;
                ClientDataset.ApplyUpDates(-1);

    Pesquisei e tentei fazer assim, mas ai ele me retorna erro: 'No error Information; Error while executing the query':

                ClientDataset.Edit;
                ClientDataset.FieldByName('usuario').Value := Null;
                ClientDataset.post;
                ClientDataset.ApplyUpDates(-1);

  Se faço o mesmo teste usando Firedac ele salva corretamente como null, tanto usando conexão ODBC como direto pelo driver do Postgres.

  Resumindo, tem alguem que utilize DBExpress com ODBC e conexão postgres, que consiga ou saiba salvar null um campo String?

 

 

Editado 21 Agosto, 2019 por douglas_k

[douglas_k]

Em 21/08/2019 at 14:40, douglas_k disse:

Boa tarde Pessoal,

   Estou com a seguinte dificuldade.

       - Tenho um campo chamado usuario do tipo character varying em uma tabela com base de dados Postgres.

       - Utilizo o DBExpress com a conexão ODBC

      - Preciso Salvar esse campo em uma determinada situação como null, mais ele sempre esta salvando como ''. Faço da seguinte forma:

                ClientDataset.Edit;
                ClientDataset.FieldByName('usuario=').AsString := '';
                ClientDataset.post;
                ClientDataset.ApplyUpDates(-1);

    Pesquisei e tentei fazer assim, mas ai ele me retorna erro: 'No error Information; Error while executing the query':

                ClientDataset.Edit;
                ClientDataset.FieldByName('usuario').Value := Null;
                ClientDataset.post;
                ClientDataset.ApplyUpDates(-1);

  Se faço o mesmo teste usando Firedac ele salva corretamente como null, tanto usando conexão ODBC como direto pelo driver do Postgres.

  Resumindo, tem alguem que utilize DBExpress com ODBC e conexão postgres, que consiga ou saiba salvar null um campo String?

 

 

Ainda não encontrei a solução, acredito que vou trocar nesse caso para firedac essas leituras, mais se alguém tiver alguma solução para o DBExpress me avise.

 

Obrigado.

[EMBarbosa]

Até onde me lembro o código deveria ser algo como:

                ClientDataset.Edit;
                ClientDataset.FieldByName('usuario').Clear;
                ClientDataset.post;
                ClientDataset.ApplyUpDates(-1); 

 

[douglas_k]

1 hora atrás, EMBarbosa disse:

Até onde me lembro o código deveria ser algo como:

                ClientDataset.Edit;
                ClientDataset.FieldByName('usuario').Clear;
                ClientDataset.post;
                ClientDataset.ApplyUpDates(-1); 

 

Boa tarde, Obrigado pela sugestão. Testei de algumas formas assim, usando o Clear, mais devo estar fazendo algo incorreto, pois mesmo o código executando e não retornando nenhum erro, na base de dados o valor não salva, ele sempre fica com o valor já salvo no campo string. Testei com duas tabelas diferentes, com clientdatasets diferentes e não tive sucesso.

 

Obrigado.

[EMBarbosa]

Agora, douglas_k disse:

Boa tarde, Obrigado pela sugestão. Testei de algumas formas assim, usando o Clear, mais devo estar fazendo algo incorreto, pois mesmo o código executando e não retornando nenhum erro, na base de dados o valor não salva, ele sempre fica com o valor já salvo no campo string. Testei com duas tabelas diferentes, com clientdatasets diferentes e não tive sucesso.

 

Obrigado.

Se no lugar do clear acontecer o mesmo problema com outros valores então possivelmente é problema na lógica mesmo. Talvez controle transacional.

[douglas_k]

5 minutos atrás, EMBarbosa disse:

Se no lugar do clear acontecer o mesmo problema com outros valores então possivelmente é problema na lógica mesmo. Talvez controle transacional.

Na verdade se salvo outros valores ele faz corretamente, se por exemplo mover o valor 'Teste' ele salva corretamente, agora o .Clear, simplesmente não altera o valor, fica o mesmo que ja estava.

[douglas_k]

8 minutos atrás, douglas_k disse:

Na verdade se salvo outros valores ele faz corretamente, se por exemplo mover o valor 'Teste' ele salva corretamente, agora o .Clear, simplesmente não altera o valor, fica o mesmo que ja estava.

Só para exemplificar, nessa sequencia de testes todos executam e tem o resultado esperado, menos o ultimo que seria o .clear. Ele chega executar só não altera a base de dados.

  dmSupervisor.cldsTeste.Active := False;
  dmSupervisor.cldsTeste.CommandText := 'SELECT * ' +
                                         'FROM sis_usuarios ' +
                                         'WHERE login_siusua=:P1';
  dmSupervisor.cldsTeste.Params[0].DataType := ftString;
  dmSupervisor.cldsTeste.Params[0].AsString := '0';
  dmSupervisor.cldsTeste.Active := True;
  while not dmSupervisor.cldsTeste.Eof do
    begin
      dmSupervisor.cldsTeste.Edit;
      dmSupervisor.cldsTeste.FieldByName('nome_siusua').AsString := 'Teste';
      dmSupervisor.cldsTeste.post;
      dmSupervisor.cldsTeste.ApplyUpDates(-1);
      dmSupervisor.cldsTeste.Next;
    end;

  dmSupervisor.cldsTeste.Active := False;
  dmSupervisor.cldsTeste.CommandText := 'UPDATE sis_usuarios ' +
                                        'SET nome_siusua=null ' +
                                        'WHERE login_siusua=:P1';
  dmSupervisor.cldsTeste.Params[0].DataType := ftString;
  dmSupervisor.cldsTeste.Params[0].AsString := '0';
  dmSupervisor.cldsTeste.Execute;

  dmSupervisor.cldsTeste.Active := False;
  dmSupervisor.cldsTeste.CommandText := 'SELECT * ' +
                                        'FROM sis_usuarios ' +
                                        'WHERE login_siusua=:P1';
  dmSupervisor.cldsTeste.Params[0].DataType := ftString;
  dmSupervisor.cldsTeste.Params[0].AsString := '0';
  dmSupervisor.cldsTeste.Active := True;
  while not dmSupervisor.cldsTeste.Eof do
    begin
      dmSupervisor.cldsTeste.Edit;
      dmSupervisor.cldsTeste.FieldByName('nome_siusua').AsString := 'Outro Teste';
      dmSupervisor.cldsTeste.post;
      dmSupervisor.cldsTeste.ApplyUpDates(-1);
      dmSupervisor.cldsTeste.Next;
    end;

  dmSupervisor.cldsTeste.Active := False;
  dmSupervisor.cldsTeste.CommandText := 'SELECT * ' +
                                        'FROM sis_usuarios ' +
                                        'WHERE login_siusua=:P1';
  dmSupervisor.cldsTeste.Params[0].DataType := ftString;
  dmSupervisor.cldsTeste.Params[0].AsString := '0';
  dmSupervisor.cldsTeste.Active := True;
  while not dmSupervisor.cldsTeste.Eof do
    begin
      dmSupervisor.cldsTeste.Edit;
      dmSupervisor.cldsTeste.FieldByName('nome_siusua').Clear;
      dmSupervisor.cldsTeste.post;
      dmSupervisor.cldsTeste.ApplyUpDates(-1);
      dmSupervisor.cldsTeste.Next;
    end;

 

[EMBarbosa]

29 minutos atrás, douglas_k disse:

Na verdade se salvo outros valores ele faz corretamente, se por exemplo mover o valor 'Teste' ele salva corretamente, agora o .Clear, simplesmente não altera o valor, fica o mesmo que ja estava.

Pode ser um bug no componente então. Ou no ClientDataSet ou no DBX que você usa por trás.

Lembro de ter tido um problema como esse. Estava até no QC da Embarcadero...

[douglas_k]

14 horas atrás, EMBarbosa disse:

Pode ser um bug no componente então. Ou no ClientDataSet ou no DBX que você usa por trás.

Lembro de ter tido um problema como esse. Estava até no QC da Embarcadero...

Show, contornei usando o update direto com sql, se encontrar alguma solução para o caso publico aqui.

Muito obrigado EMBarbosa.

Até mais.