F�rum selecionar produtos d determinado fornecedor #403981

29/06/2011

Tenho um formulario de cadastro de pedido e utilizo uma dblookupcombobox para seleceionar o fornecedor, em seguida clico em uma stringgrid para listar os produtos, porem gostaria que o form me mostrasse somente os produtos do fornecedor selecionado no form anterior, estou usando a seguinte linha de codigo

ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from TABELAPRODUTO where FORNECEDOR = ') + Form_OC.dblookupcombobox1.KeyValue;
ADOQuery1.Open;

Porem ele da erro no codigo keyvalue, nao estou sabendo qual codigos usar

Daniel

Curtir t�pico

+ 0

Responder

Posts

29/06/2011

Wilson Junior

Que erro est� ocorrendo? Qual a estrutura da sua tabela "TABELAPRODUTO"?

Aguardo retorno.

Responder

Gostei + 0

29/06/2011

Daniel

Que erro est� ocorrendo? Qual a estrutura da sua tabela "TABELAPRODUTO"?

Aguardo retorno.

Incompatible types: 'string and integer' o banco de dados � o access

Responder

Gostei + 0

29/06/2011

Wilson Junior

Teste assim:

ADOQuery1.SQL.Add('select * from TABELAPRODUTO where FORNECEDOR = ' + IntToStr(Form_OC.dblookupcombobox1.KeyValue) );

Espero ter colaborado.

Responder

Gostei + 0

04/07/2011

Daniel

Teste assim:

ADOQuery1.SQL.Add('select * from TABELAPRODUTO where FORNECEDOR = ' + IntToStr(Form_OC.dblookupcombobox1.KeyValue) );

Espero ter colaborado.

Kra deu modificada no codigo deixei ele deste jeito:

  ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from TABELAPRODUTO where FORNECEDOR = ' + Form_OC.DBEdit2.Text);
ADOQuery1.Open;

pois copiei os dados da dblookup para uma edit e nao estou pesquisando mais por codigo e sim por nome (isso foi uma altera��o no meu banco de dados), porem qdo pesquiso o fornecedor MASTER SOLA ele da o seguinte erro 'Erro de sintaxe (operador faltando) na expressao de consulta 'FORNECEDOR = MASTER SOLA''.

Responder

Gostei + 0

04/07/2011

Wilson Junior

Coloque assim

ADOQuery1.SQL.Add('select * from TABELAPRODUTO where FORNECEDOR = ' + QuotedStr(Form_OC.DBEdit2.Text));

Espero ter colaborado.

Responder

Gostei + 0

04/07/2011

Daniel

Coloque assim

ADOQuery1.SQL.Add('select * from TABELAPRODUTO where FORNECEDOR = ' + QuotedStr(Form_OC.DBEdit2.Text));

Espero ter colaborado.

Kra deu certo, muito obrigado pela ajuda

Responder

Gostei + 0