Fórum Aonde estou errando ??? #272197

14/03/2005

0

Delphi

Bom Dia para todos, gostaria de saber aonde estou errando nesse código ???

if ComboBox1.Text = ´CLIENTES´ then
begin
while not tblOrigem.Eof do
begin
with TIBQuery.Create(Self) do
begin
SQL.Text:=´UPDATE CLIENTES SET CAPITAL =: CAPITAL AND REGIAO =: REGIAO WHERE CODIGO =: CODIGO´;
Open;
end;
tblDESTINO.Post;
tblORIGEM.Next;
end;
end

Atc.
Rafael Cabral


Rscrj

Rscrj

Responder

Posts

14/03/2005

Faelcavalcanti

Qual a mensagem de erro ?


Responder

Gostei + 0

14/03/2005

Rômulo Barros

Troque [b:1b1448d864]Open [/b:1b1448d864]por [b:1b1448d864]ExecSql[/b:1b1448d864];


Responder

Gostei + 0

14/03/2005

Massuda

Eu não entendo muito de BD, mas além do que o UI indicou, acho que tem mais dois problemas:[list=1:e00ef2588b][*:e00ef2588b]Você não atribuiu valores aos parâmetros de sua query.[*:e00ef2588b]Depois de criar e utilizar a query de update, seria bom você dar um Free nela, senão você irá acumular objetos TIBQuery que só serão destruídos quando o form ou o programa for fechado.[/list:o:e00ef2588b]


Responder

Gostei + 0

14/03/2005

Faelcavalcanti

Outra coisa que vi foi a linha abaixo :
SQL.Text:=´UPDATE CLIENTES SET CAPITAL =: CAPITAL AND REGIAO =: REGIAO WHERE CODIGO =: CODIGO´;


Uma dica é, tome sempre costume de utilizar constantes SQL. Mas na parte [b:5528cd60fd]CAPITAL =: CAPITAL[/b:5528cd60fd], quando se refere à parâmetro seria [b:5528cd60fd]CAPITAL = :CAPITAL[/b:5528cd60fd], contanto que os dois pontos fique próximo do nome do parâmetro. Outra coisa também, cadê o valor dos parâmetros identificados tipo [b:5528cd60fd]Query.ParamByName(´CAPITAL´).AsInteger = 1[/b:5528cd60fd], por exemplo.

Espero ter ajudado.


Responder

Gostei + 0

02/04/2005

Antoniologica

Como vc tá criando o IBQuery em tempo de execução falta configurar a propriedade Database.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar