Executar Query

[MatheusWC 0]

Bom dia ^^To presisando de uma ajudinha...Apartir de um XML to gerando as querys que quero executar par adicionar informações no banco...Porém to em duvida de como fazer isso, to usando o Zeos, no caso Eu uso o ZConnection para realizar a conexão, ai agora uso o ZQuery correto? Só que nele não tem uma opção para escolher a tabela que vou utilizar... tem o ZTable, ele tem para escolher a tabela, porém não achei o campo para o SQL, por acaso tem que ligar a duas?Abraços;

[marcio.theis 3]

A tabela você pode fazer isto, selecionar uma tabela do BD e ligar, no caso da Query, você deve de colocar o comando SQL, tipo:

 

select *from tabela

No caso pode trabalhar com esta query mesmo para fazer os Insert, Edit, Post, etc..

[MatheusWC 0]

Putz deculpa viajei com a parada de que ele não escolhe a tabela, ahuahuaa tabela é na hora da query mesmo, disfarça x_xUma pergunta, a query só vai ser executada quando 'Active' do ZQuery for True né?

[marcio.theis 3]

Sim... No caso se quiser controlar por código:

 

Para fechar:

 

query.Close;

Para abrir (ativar)

 

query.Open;

[MatheusWC 0]

Por exemplo, com o NEXTVAL('nome_da_seq') ele avança na sequencia e retorna o valor atual da sequencia, como faço para pegar o valor? Na verdade, atribuir esse valor à uma variavel, para que eu possa usar em outras Querys...Uma abração, e obrigado por estar me ajudando! =)

[marcio.theis 3]

Para recueprar o valor você pode usar o CURRVAL se não me engano é este o nome, ficando: CURRVAL('nome_da_seq')

[MatheusWC 0]

sim, o CURRVAL é pra recuperar o atual, mas o NEXTVAL ele avança a sequencia e retorna o novo valor, mas como que atribui o retorno disso à uma váriavel do Delphi?

[marcio.theis 3]

Declare uma variável, digamos:

 

var	valorAtual: integer;

No caso você coloca o comando dentro da sua query, depois adicione o campo no FieldEditor, no caso de dois cliques sobre a query, depois vai em Add Fields, ele vai adicionar um campo com um nome, no fonte faça algo do tipo:

 

valorAtual:=qryCAMPO_ADICIONADO.Value;

[MatheusWC 0]

To chegando lá! =D

 

Ele tá vindo como Int64, como faço para ele vir como String?

 

Fiz assim:

SQL_NumQuestionario := QueryPgSQLnextval.Value;

ai ele da o erro " Incompatible types: 'String' and 'Int64' "

 

Abração;

 

EDITADO:

Tipo descobri que parece que .Value não existe, dei uma olhada e vi que tem .DisplayText, e com ele funcionou certinho! ;D

SQL_NumQuestionario := QueryPgSQLnextval.DisplayText;

=]

 

Abração!

[marcio.theis 3]

Outra forma é convertendo assim:

 

SQL_NumQuestionario := QueryPgSQLnextval.AsString;

[Hugo Slepicka 0]

Frmz...

 

precisando...

 

estamos aki!!!

 

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[MatheusWC 0]

Outra dúvida ;]Eu tenho TListBox chamado SQLBox...Nele foi gerado em cada linha ta escrito um INSERT INTO blablabla...Agora quero executar esse Inserts.Teria que fazer como, colocar o conteudo do SQLBox dentro do 'SQL' de uma Query né? e Depois setar o Active = True pra ele executar, correto?

[marcio.theis 3]

Sim, no caso teria de fazer um for nesta sua lista, passando para dentro da query e depois executando, algo do tipo:

 

qry.Close;qry.SQL.Clear;qry.SQL.Add(passe aqui o sql da lista);qry.ExecSQL;

[MatheusWC 0]

Fiz de um jeito sem for, e conferi e ele passou tudo:

QueryAdicionaTudo.SQL.Text := SQLBox.Items.Text;

(a QeuryAdicionaTudo eu dexei o 'Active' setado em False)

 

então agora se eu quiser agora executar a query é só dar um

QueryAdicionaTudo.Active := True;

que ele vai fazer a query né?

[marcio.theis 3]

Para este tipo de comando use o ExecSQL;

 

qry.ExecSQL;

[MatheusWC 0]

Quando ele vai inserir tudo no banco da este erro:SQL Error: ERROR: invalid byte sequence for encoding "UTF 8": 0xea2729.Deve ser por causa que o banco é em utf-8 e o PC e iso-8859-1 né?Sabe como poderia resolver?

[marcio.theis 3]

Para ter uma resposta mais eficaz sobre este erro, crie um post no fórum de PostGre ou então tente busca no fórum a respeito deste erro... eu pelo menos desconheço...

[MatheusWC 0]

Mas acho que ta mais pro Delphi.. tem alguma função pra converter de iso-8859-1 para utf-8?

[marcio.theis 3]

Não, que eu saiba isto é do BD mesmo, pois é ele quem vai executar o comando SQL.

[MatheusWC 0]

A codificação do DB é utf8, e do pc não, então tem alguma função ou outra coisa que possa fazer para não precisar mudar a codificação do DB?