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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar