Problemas com instru��o SQL

Question

OL� A TODOS.Estou com o seguinte problema: tenho um form onde irei fazer o recebimento de contas do meu sistema. inicialmente tenho um dblookupcombobox para listar qual o cliente, ap�s isso tenho um d...

Marcio.theis · Answer

Para fazer isto vc deve de usar um Query, onde que vc poderia fazer algo como:

No envento OnChange do seu dblookupcombobox colocaria

if dblookupcombobox.Text <> �� then
    qry.Close;
    qry.SQL.Clear;
    qry.SQL.Add(�select documento, data_emissao, vencimento, valor�);
    qry.SQL.Add(�from conta_receber�);
    qry.SQL.Add(�where conta_receber = � + IntToStr(tblClienteNUCLIENTE.Value));
    qry.Open;

Caso n�o ficou claro para vc, coloque seu c�digo para podermos dar uma olhada nele.

Gtts · Answer

muito obrigado pela sua colabora��o!Funcionou e n�o deu nenhum erro. Se eu tentar com um edit, como citei logo acima, em qual evento que colocaria a instru��o? No caso o Edit iria receber o valor que selecionei na consulta em outro form em um DBGrid....

Marcio.theis · Answer

Fica a sua escolha entre o OnChange e OnExit, eu prefiro o OnExit, mas vc quem escolhe....

Gtts · Answer

M�rcio.

Coloquei o c�digo, confome tu postou no f�rum, s� que usei um edit.

if edit2.Text �� then
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(�select documento, data_emissao, vencimento, valor�);
query1.SQL.Add(�from conta_receber�);
query1.SQL.Add(�where conta_receber = � + IntToStr([u:31e1bab0df]tblClienteNUCLIENTE.Value[/u:31e1bab0df]));
query1.Open;

minha d�vida agora � o que coloco onde est� sublinhado? O erro de compila��o est� ali. Coloque o nome da tabela e o campo NOME e n�o deu certo. Se puder me ajudar, ficarei muito grato.

Marcio.theis · Answer

No caso na instru��o SQL vc deve de passar o c�digo do cliente, no caso se o nome do campo na tabela conta_receber for igual a NUCLIENTE, ficaria assim:

query1.SQL.Add(�where conta_receber.nucliente = � + IntToStr(tblClienteNUCLIENTE.Value));

o (tblClienteNUCLIENTE.Value) no caso � o c�digo do cliente que foi selecionado, se vc quiser passar o nome pode passar diretamente o Edit.Text, mas o seu SQL iria mudar para:

query1.Close;
query1.SQL.Clear;
query1.SQL.Add(�select documento, data_emissao, vencimento, valor�);
query1.SQL.Add(�from conta_receber, cliente�);
query1.SQL.Add(�where conta_receber.nucliente = cliente.nucliente�);
query1.SQL.Add(�and cliente.nmcliente = �� + Edit.Text + ��);
query1.Open;

mas na minha opini�o, o melhor seria vc executar o SQL buscando o cliente pelo seu c�digo, pois vc pode de ter clientes com o mesmo nome e neste caso iria trazer os dois.

Gtts · Answer

MARCIO.tentei buscar pelo c�digo, conforme tu me indicou e o c�digo ficou o seguinte:[color=green:64966eb4d0]if edit1.Text  �� then    query1.Close;    query1.SQL.Clear;    query1.SQL.Add(�select documento, data_emissao, vencimento, valor�);    query1.SQL.Add(�from conta_receber, cliente�);    query1.SQL.Add(�where conta_receber.codigo_cliente = � + IntToStr(tbClientesCODIGO.Value));    query1.SQL.Add(�where conta_receber.nucliente = cliente.CODIGO�);    query1.SQL.Add(�and cliente.nmcliente = ��� + Edit2.Text + ����);    query1.Open; [/color:64966eb4d0]o problema � que compila, n�o d� erro nenhum e qdo vou executar ele faz a consulta tudo sem problema o edit recebe o c�gigo mas d�a seguinte mensagem:invalid variant type conversion!Tu saberia me dizer o que est� acontecendo?Desde j� muito grato....

Marcio.theis · Answer

Bom... se vc usar a busca pelo c�digo o seu SQl pode ficar assim:

edit1.Text �� then
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(�select documento, data_emissao, vencimento, valor�);
query1.SQL.Add(�from conta_receber, cliente�);
query1.SQL.Add(�where conta_receber.nucliente = cliente.CODIGO�);
query1.SQL.Add(�and conta_receber.codigo_cliente = � + IntToStr(tbClientesCODIGO.Value));
query1.Open;

o erro (Invalid Variant Type Conversion! ) ocorre quando vc n�o converteu uma vari�vel, como por exemplo de string para integer, algum lugar poderia estar esperando integer e venho string, assim ocorre o erro.

F�rum Problemas com instru��o SQL #267823