Erro ao executar Query

[Spider Masters 0]

Olá amigos,

 

Novamente peço o auxílio de vcs para sanar um problema.

 

Utilizo o código abaixo para obter o próximo número de Sequence de uma tabela.

 

StrSql := 'SELECT nextval(''seq_mov_codigo''::regclass) as ID';QueryAntigo.SQL.Add(StrSql);QueryAntigo.Open;

Onde seq_mov_codigo é o número da minha Sequence.

 

Mas recebo o seguinte erro: "Projeto.exe raised exception class EOleException with message 'ERROR: syntax error at or near ":";

Error while executing the query'.

 

Necessito de aspas simples entre a palavra seq_mov_codigo, pior que copiando a variável StrSql a colando no Query Editor do próprio PostGresql, a Query funciona, alguém tem alguma sugestão da causa desse erro?

 

Abraços,

 

Spider

 

Ah sim utilizo Delphi 7, e os componetes TADOConnection e TQuery.

[marcio.theis 3]

Nesta QueryAntigo não tem nenhum código antes de executar ?

Faz um teste limpando o sql antes, ficando:

 

StrSql := 'SELECT nextval(''seq_mov_codigo''::regclass) as ID';QueryAntigo.Close;QueryAntigo.SQL.Clear;QueryAntigo.SQL.Add(StrSql);QueryAntigo.Open;

[Spider Masters 0]

Olá Márcio, obrigado por responder.Já havia limpado a Query antes e tentei limpar novamente mas o problema persiste, são as aspas do seq_mov_codigo, já tentei utilizar o Zeos mas ocorria o mesmo erro.Spider.

[marcio.theis 3]

Não trabalho com Postgre, mas no caso não poderia somente fazer:

 

 

QueryAntigo.Close;QueryAntigo.SQL.Clear;QueryAntigo.SQL.Add(SELECT nextval(''seq_mov_codigo'') as ID);QueryAntigo.Open;

Sem a informação de regclass ?

[Spider Masters 0]

Olá Márcio,Funcionou perfeitamente, aparentemente a ausência do regclass não causou erros, o ::regclass é uma referência de entrada de dados ou objetos de acordo com a configuração de schema do path, mas no caso atendeu o que precisava.Obrigado mais uma vez,Abraços,Spider

[marcio.theis 3]

beleza... coisa boa que deu certo... :D