[firebase-br] Problemas com Select

[Paulo Sérgo Feix]

Só uma sugestão, por que vc não usa os comado dentro da tua query

Este comando coloca no teu botão

IBOSaldoClientes.Close;
IBOSaldoClientes.ParamByName('Date01').AsDate:=DateTimePicker1.Date;
IBOSaldoClientes.ParamByName('Date02').AsDate:=DateTimePicker2.Date;
IBOSaldoClientes.ParamByName('CodCliente').AsInteger:=StrToInt(DBEdit1.Text);
IBOSaldoClientes.Open;

Este comando dentro da Query

select * from Compras
where anula = 1 and
Cliente = :CodCliente and
Data Between :Date01 and :Date01

Paulinho....







Em 15/07/06, Fabiano<fabiano_programador em yahoo.com.br> escreveu:
> Prezados Colegas,
>
> Estou desenvolvendo uma aplicação com Delphi 7, DBExpress e com o banco
> firebird, estou com problemas para pesquisar os registros no banco. Meu
> botão p/consulta está assim:
>
> procedure TFrmPesquisa.SpeedButton1Click(Sender: TObject);
> var
> vDataIni,
> vDataFim : string;
> begin
> vDataIni := FormatDateTime('mm/dd/yyyy', DateTimePicker1.Date);
> vDataFim := FormatDateTime('mm/dd/yyyy', DateTimePicker2.Date);
>
> DmPesquisa.cdsPesquisa.Close;
> DmPesquisa.cdsPesquisa.CommandText :=
> 'select c.cli_codigo, c.cli_nome, v.cli_codigo, v.vis_data, v.vis_hora' +
> 'from cliente c, visita v where c.cli_nome = ' + Edit1.Text +
> 'and v.vis_data between '+ vDataIni + 'and' + vDataFim +
> 'and c.cli_codigo = v.cli_codigo';
> DmPesquisa.cdsPesquisa.Open;
> end;
>
> Só q na hora em q mando pesquisar ocorre o seguinte erro:
> Token unknown -line 1, char 83 c.
>
> O q pode está errado?
>
>  		
> ---------------------------------
>  Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
> Registre seu aparelho agora!
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>


-- 
Paulinho...