Consulta SQL - Delphi/Interbase6 - Meio complicada

Question

Uso o Interbase 6,  e os componentes ta paleta Interbase        dm1.IBQR_conscliente.Close;        dm1.IBQR_conscliente.sql.clear;        dm1.IBQR_conscliente.sql.add(�Select * From conserto co left j...

Anonymous · Answer

[quote=�accsjee�]Uso o Interbase 6, e os componentes ta paleta

Prezado Accsjee.

Sauda��es. Tudo bem?

Camarada, vc est� esquecendo de dar um Prepare, antes da passagem de par�metro:

dm1.IBQR_conscliente.Prepare;

Insira a linha acima antes da linha que passa o par�metro para a query, ok?

Verifique ai...

Valeus...

Wmunir · Answer

PS: Esqueci de logar antes de responder o t�pico acima... Sorry......

Anonymous · Answer

dm1.IBQR_conscliente.Close;
dm1.IBQR_conscliente.sql.clear;
dm1.IBQR_conscliente.sql.add(�Select * From conserto co left join cliente cli on co.cpf_cnpj=cli.cpf_cnpj where cli.nome like :nome�);
dm1.IBQR_conscliente.Params[0].AsString:= ��+UpperCase(edit1.Text)+��;
dm1.IBQR_conscliente.Open;

Ja que voce esta montando em tempo de execucao

dm1.IBQR_conscliente.sql.add(�Select * From conserto co left join client�)dm1.IBQR_conscliente.sql.add(cli on co.cpf_cnpj=cli.cpf_cnpj where cli.nome like �� + edit1.text); nao e necessario o UpperCase.

Accsjee · Answer

[quote=�Anonymous�] Tudo bem,fiz o seguinte:dm1.IBQR_conscliente.Close;        dm1.IBQR_conscliente.sql.clear;        dm1.IBQR_conscliente.sql.add(�Select * From conserto co left join cliente�);        dm1.IBQR_conscliente.sql.add(�cli on co.cpf_cnpj=cli.cpf_cnpj where cli.nome like :nome�);        dm1.IBQR_conscliente.prepare;        dm1.IBQR_conscliente.Params[0].AsString:= ���+UpperCase(edit1.Text)+���;        dm1.IBQR_conscliente.Open;� assim que vc falou?  N�o funcionou aqui. Obrigado....

Everton · Answer

Assim funcionar�:dm1.IBQR_conscliente.Close; dm1.IBQR_conscliente.sql.clear; dm1.IBQR_conscliente.sql.add(�Select * From conserto co left join cliente�); dm1.IBQR_conscliente.sql.add(�cli on co.cpf_cnpj=cli.cpf_cnpj where cli.nome like ���+ UpperCase(edit1.Text) + ����);dm1.IBQR_conscliente.prepare; dm1.IBQR_conscliente.Open;...