(Resolvido) Duvida em uma sql

[Vivendo&Aprendendo]

Olá pessoal... mais uma vez recorro a vocês aqui do forum.

Tenho um sistema de venda que funciona da seguinte forma:

- digito o código do produto e a qtde;

- confirmo a venda;

- se caso for par do produto ele automáticamente gera outra linha na tabela itens buscando da tabela produtos;

- o meu problema esta aqui, quando o banco estava em access funcionaca beleza, mas mudei para mysql pois o banco ficará online agora, e agora parou de funcionar, apenas a primeira venda busca os produtos certos as outras ele adiciona apenas a primeira linha e as demais são salvas no banco mas em branco.

Segue abaixo a sql de busca dos produtos caso seja par:

Tabela.Close;
        Tabela.SQL.Clear;
        Tabela.SQL.Add('Select * From Produtos');
        Tabela.SQL.Add('Where (LocalReg = "'+Cidade+'")');
        Tabela.SQL.Add(' and (Cor = "'+Cor+'")');
        Tabela.SQL.Add(' and (Categoria = "'+Categoria+'")');
        Tabela.SQL.Add(' and (Veiculo = "'+Veiculo+'")');
        Tabela.SQL.Add(' and (Tipo = "'+Tipo+'")');
        Tabela.SQL.Add(' and (LocalPlaca = "'+Local+'")');
        Tabela.Open;

O que pode ser que esta fazendo dar errado, repito no access ele funciona normalmente, mas no mysql não busca nada, apenas o primeiro produto inserido.

Acredito que tenha começado esse erro pois na tabela produtos existem produtos repetidos que são diferenciados apenas pela cidade onde eles estão. O que não consigo entender é porque na primeira venda do sistema funciona certo e depois para de funcionar.

Uso delphi 7, mysql 5.0 e Zeos.

Abraço

Editado Setembro 2, 2008 por Vivendo&Aprendendo

[Duduh_Capixaba]

Você já experimentou fazer esse SELECT fora do Delphi, em alguma ferramenta para o MySQL? Tente fazer alguns testes fora da sua aplicação para ver qual é o resultado.

[Vivendo&Aprendendo]

Olá Duduh_Capixaba

Eu fiz esse teste sim, usei uma ferramenta para consulta do mysql e funciona beleza.

Não entendo o que pode estar acontecendo.

Espero ajuda.... rsrs

Abraços

[Duduh_Capixaba]

Cara, ao invés de colocar essas variáveis dentro do seu código SQL, não seria melhor usar parâmetros?!

Ao Invés disso:

Tabela.SQL.Clear;
  Tabela.SQL.Add('Select * From Produtos');
  Tabela.SQL.Add('Where (LocalReg = "'+Cidade+'")');
  Tabela.SQL.Add(' and (Cor = "'+Cor+'")');
  Tabela.SQL.Add(' and (Categoria = "'+Categoria+'")');
  Tabela.SQL.Add(' and (Veiculo = "'+Veiculo+'")');
  Tabela.SQL.Add(' and (Tipo = "'+Tipo+'")');
  Tabela.SQL.Add(' and (LocalPlaca = "'+Local+'")');

Tente isso:

Tabela.SQL.Clear;
  Tabela.SQL.Add('Select * From Produtos ');
  Tabela.SQL.Add('Where LocalReg = :par1 ');
  Tabela.SQL.Add('and Cor = :par2 ');
  Tabela.SQL.Add('and Categoria = :par3 ');
  Tabela.SQL.Add('and Veiculo = :par4 ');
  Tabela.SQL.Add('and Tipo = :par5 ');
  Tabela.SQL.Add('and LocalPlaca = :par6');

  Tabela.Params[0].AsTipo := Cidade;
  Tabela.Params[1].AsTipo := Cor;
  Tabela.Params[2].AsTipo := Categoria;
  Tabela.Params[3].AsTipo := Veiculo;
  Tabela.Params[4].AsTipo := Tipo;
  Tabela.Params[5].AsTipo := LocalPlaca;

[Vivendo&Aprendendo]

Cara tentei usar parametros da forma que você me passou, mas continuou da mesma forma.

Ainda no aguardo.

Abraço

[Duduh_Capixaba]

Então talvez seu problema não esteja no código SQL. Tente acompanhar seu código com o Step Over para ver onde está acontecendo o problema. Ou poste todo seu código para podermos entender melhor sua lógica. Abraço!

[Vivendo&Aprendendo]

Opa Duduh_Capixaba... resolvido o problema, era apenas um mal posicionamento de uma variável.

Abraço