Botao Edit Que tem Contem no Form um DBGrid
Agora eu estou no botao de Edit de Remetente, quero que quando clico dentro do edit e digito uma letra ja traz todos os dados que tem tem dentro do Edit com a flechinha para o campo que contem a letra, estou usando esse comando aqui:
Lembrando que o que estou tentando busca no edit é uma chave estrangeira , onde ja arrumei tudo no botão vizualizar pois la esta tudo certo , esta trazendo todos os campos.
procedure TfrmPesqDoc.edtPesquisa1Change(Sender: TObject);
begin
cdsCadDoc.Close;
sqlCadDoc.Close;
sqlCadDoc.SQL.CLear;
sqlCadDoc.SQL.ADD(´select R.NOME ,DOC.DATA_CAD, DOC.TIPO, DOC.assunto, DOC.data_emiss, DOC.decla_cont, DOC.especificacao, DOC.pessoa_emiss´);
sqlCadDoc.SQL.ADD (´FROM CAD_DOCUMENTOS DOC, REMETENTE R´);
sqlCadDoc.SQL.ADD (´WHERE DOC.ID_COD_REMET = R.ID_CODIGO UPPER(R.NOME)LIKE ´+
UpperCase(quotedStr(´¬´+edtPesquisa1.text+´¬´)+´ORDER BY R.NOME ASC´));
sqlCadDoc.Open;
cdsCadDoc.open;
END;
Mais esta dando um erro na penultima linha de UPPER
Obrigado Amigo!
Lembrando que o que estou tentando busca no edit é uma chave estrangeira , onde ja arrumei tudo no botão vizualizar pois la esta tudo certo , esta trazendo todos os campos.
procedure TfrmPesqDoc.edtPesquisa1Change(Sender: TObject);
begin
cdsCadDoc.Close;
sqlCadDoc.Close;
sqlCadDoc.SQL.CLear;
sqlCadDoc.SQL.ADD(´select R.NOME ,DOC.DATA_CAD, DOC.TIPO, DOC.assunto, DOC.data_emiss, DOC.decla_cont, DOC.especificacao, DOC.pessoa_emiss´);
sqlCadDoc.SQL.ADD (´FROM CAD_DOCUMENTOS DOC, REMETENTE R´);
sqlCadDoc.SQL.ADD (´WHERE DOC.ID_COD_REMET = R.ID_CODIGO UPPER(R.NOME)LIKE ´+
UpperCase(quotedStr(´¬´+edtPesquisa1.text+´¬´)+´ORDER BY R.NOME ASC´));
sqlCadDoc.Open;
cdsCadDoc.open;
END;
Mais esta dando um erro na penultima linha de UPPER
Obrigado Amigo!
Rodlima
Curtidas 0
Respostas
Paulo
30/05/2008
Tire um parentesis do final e coloque fechando o QuotedStr e o Upper, como abaixo:
cdsCadDoc.Close;
sqlCadDoc.Close;
sqlCadDoc.SQL.CLear;
sqlCadDoc.SQL.ADD(´select R.NOME ,DOC.DATA_CAD, DOC.TIPO, DOC.assunto, DOC.data_emiss, DOC.decla_cont, DOC.especificacao, DOC.pessoa_emiss´);
sqlCadDoc.SQL.ADD (´FROM CAD_DOCUMENTOS DOC, REMETENTE R´);
sqlCadDoc.SQL.ADD (´WHERE DOC.ID_COD_REMET = R.ID_CODIGO UPPER(R.NOME)LIKE ´+
UpperCase(quotedStr(´¬´+edtPesquisa1.text+´¬´))+´ORDER BY R.NOME ASC´);
sqlCadDoc.Open;
cdsCadDoc.open;
GOSTEI 0