[firebase-br] Problemas com Select

[Fabiano]

Q surra q to levando kra..rs... Esse codigo funcionou certinho, o problema agora é q quando pesquiso na minha aplicação, os dados não aparecem no DBGrig. A pesquisa é feita, e o DBGrid aparece vazio, mas se eu selecionar a linha do DBGrid e apertar o botão OK, a aplicação vai p/tela princiapal, com o registro pesquisado no select....Não sei se tem alguma ligação, mas tbm ocorre q eu não consigo incluir no DBGrig as colunas da tabela que eu desejo. Quando insiro uma coluna no DBGrid e tento editar o campo FieldName, ocorre o seguinte erro: Missing query, table name or procedure name. Desculpem a amolação, mas é q essa é a primeira aplicação q estou fazendo com Delphi 7+DBExpress+Firebird.....

Joao Marcos <unixkiller em gmail.com> escreveu:  coloque exatamente o código abaixo:

Caso retorne erro do mesmo jeito, tente verificar as configurações de
hora do seu sistema operacional.

o código abaixo tá correntinho.


procedure TFrmPesquisa.SpeedButton1Click(Sender: TObject);
var
vDataIni,vDataFim : string;
begin
vDataIni := Quotedstr(FormatDateTime('DD.MM.YYY', DateTimePicker1.Date);
vDataFim := Quotedstr(FormatDateTime('DD.MM.YYY', 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 = ' +Quotedstr( Edit1.Text)+
' and v.vis_data between'+ vDataIni + ' and ' + vDataFim +
' and c.cli_codigo = v.cli_codigo';
DmPesquisa.cdsPesquisa.Open;
end;

______________________________________________
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


 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!