Combobox

23/02/2006

0

Estou com o seguinte problema:
Não consigo pesquisar usando um combobox(CmbPesquisa) + 1 edit(EdtPesquisa) o problema acontece quando seleciono o campo no combobox clico no botão pesquisar e não pesquisa nada. Onde será q errei?

Este é código que uso:

procedure T_FrmPesqCadPaciente.Botaochamacampos(Sender: TObject);
begin
With dm.cdsAux do
begin
close;
CommandText:=´SELECT A.PACI_COD ´CODIGO´´ + ´, ´ +
´A.PACI_NOM ´Nome´´ + ´, ´ +
´A.PACI_SOB_NOM ´Sobrenome´´ + ´, ´ +
´A.PACI_RG ´Identidade´´ + ´, ´ +
´A.PACI_CPF ´CPF´´ + ´, ´ +
´B.PC_ENDE_NUM ´Número´´ + ´, ´ +
´B.PC_ENDE_COM ´Complemento´´ + ´, ´ +
´C.LOGR_NOM ´Logradouro´´ + ´, ´ +
´D.BAIR_NOM ´Bairro´´ + ´, ´ +
´E.CIDA_NOM ´Cidade´´ + ´, ´ +
´B.ESTA_COD ´UF´´ + ´, ´ +
´B.PC_ENDE_CEP ´CEP´´ + ´ ´ +

´FROM PACIENTE A´ + ´ ´ +

´INNER JOIN PACI_ENDE B ON B.PACI_COD = A.PACI_COD´ + ´ ´ +
´INNER JOIN LOGRADOURO C ON C.LOGR_COD = B.LOGR_COD´ + ´ ´ +
´INNER JOIN BAIRRO D ON D.BAIR_COD = B.BAIR_COD´ + ´ ´ +
´INNER JOIN CIDADE E ON E.CIDA_COD = B.CIDA_COD´ + ´ ´;

Open;
// CmbPesquisa.Clear;
Fields.GetFieldNames(CmbPesquisa.items);
CmbPesquisa.ItemIndex:=1;
end;
DataSource1.DataSet:=dm.cdsAux;
DBGrid1.DataSource:=DataSource1;

end;





procedure T_FrmPesqCadPaciente.BtnPesquisarClick(Sender: TObject);
begin
With dm.cdsAux do
begin
close;
CommandText:=´SELECT A.PACI_COD ´CODIGO´´ + ´, ´ +
´A.PACI_NOM ´Nome´´ + ´, ´ +
´A.PACI_SOB_NOM ´Sobrenome´´ + ´, ´ +
´A.PACI_RG ´Identidade´´ + ´, ´ +
´A.PACI_CPF ´CPF´´ + ´, ´ +
´B.PC_ENDE_NUM ´Número´´ + ´, ´ +
´B.PC_ENDE_COM ´Complemento´´ + ´, ´ +
´C.LOGR_NOM ´Logradouro´´ + ´, ´ +
´D.BAIR_NOM ´Bairro´´ + ´, ´ +
´E.CIDA_NOM ´Cidade´´ + ´, ´ +
´B.ESTA_COD ´UF´´ + ´, ´ +
´B.PC_ENDE_CEP ´CEP´´ + ´ ´ +

´FROM PACIENTE A´ + ´ ´ +

´INNER JOIN PACI_ENDE B ON B.PACI_COD = A.PACI_COD´ + ´ ´ +
´INNER JOIN LOGRADOURO C ON C.LOGR_COD = B.LOGR_COD´ + ´ ´ +
´INNER JOIN BAIRRO D ON D.BAIR_COD = B.BAIR_COD´ + ´ ´ +
´INNER JOIN CIDADE E ON E.CIDA_COD = B.CIDA_COD´ + ´ ´ +
´WHERE ´´´+ CmbPesquisa.Text +´´´ LIKE ´´´+ EdtPesquisa.Text +´´´´ + ´ ´ +
´AND TP_ENDE_COD BETWEEN 1 AND 2´ + ´ ´;
OPEN;
end;


Exvasp

Exvasp

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar