Pesquisa utilizando SQL
Boa tarde,
Estou precisando fazer uma pesquisa no banco de dados(Interbase) que retorne resultados próximos, por exemplo ´ca´ retorna ´[b:3adfc629d8]ca[/b:3adfc629d8]rro´, ´[b:3adfc629d8]ca[/b:3adfc629d8]rteira´, ´ata[b:3adfc629d8]ca[/b:3adfc629d8]do´, etc. Estou utilizando os comopnente DBExpress para acesso ao BD (SQLConnection,SQLDataSet) e os componentes de acesso a dados DataSource, ClientDataSet e DataSetProvider.
Caso alguém possa me ajudar ficarei muito grato.
Estou precisando fazer uma pesquisa no banco de dados(Interbase) que retorne resultados próximos, por exemplo ´ca´ retorna ´[b:3adfc629d8]ca[/b:3adfc629d8]rro´, ´[b:3adfc629d8]ca[/b:3adfc629d8]rteira´, ´ata[b:3adfc629d8]ca[/b:3adfc629d8]do´, etc. Estou utilizando os comopnente DBExpress para acesso ao BD (SQLConnection,SQLDataSet) e os componentes de acesso a dados DataSource, ClientDataSet e DataSetProvider.
Caso alguém possa me ajudar ficarei muito grato.
Ivan Silva
Curtidas 0
Respostas
Debug
25/01/2004
procedure TfmPesquisaDpvat.edtPesqChange(Sender: TObject);
var Sql:string;
begin
if (RGOpcoes.ItemIndex = 2)and(trim(edtPesq.Text)<>´´) then
begin
SQL := ´ SELECT D.SEQUENCIAL, D.NUM_SINISTRO, D.VITIMA, D.CPF,´+
´ H.TIPO, D.VALOR_INDENIZACAO, S.DESCRICAO ´+
´ FROM DPVAT D, HONORARIOS H, STATUS_SINISTRO S ´+
´ WHERE UPPER(VITIMA)LIKE UPPER ´+´(´+QuotedStr(edtPesq.Text+´¬´)+´)´ +
´ AND D.TIPO_SINISTRO = H.HONORARIOS_ID ´+
´ AND D.STATUS_SINISTRO = S.COD_STATUS´;
Desativar_Tabela(CDPesq);
Ativar_Tabela(CDPesq,SQL,stResetar);
end;
var Sql:string;
begin
if (RGOpcoes.ItemIndex = 2)and(trim(edtPesq.Text)<>´´) then
begin
SQL := ´ SELECT D.SEQUENCIAL, D.NUM_SINISTRO, D.VITIMA, D.CPF,´+
´ H.TIPO, D.VALOR_INDENIZACAO, S.DESCRICAO ´+
´ FROM DPVAT D, HONORARIOS H, STATUS_SINISTRO S ´+
´ WHERE UPPER(VITIMA)LIKE UPPER ´+´(´+QuotedStr(edtPesq.Text+´¬´)+´)´ +
´ AND D.TIPO_SINISTRO = H.HONORARIOS_ID ´+
´ AND D.STATUS_SINISTRO = S.COD_STATUS´;
Desativar_Tabela(CDPesq);
Ativar_Tabela(CDPesq,SQL,stResetar);
end;
GOSTEI 0
Ivan Silva
25/01/2004
Estou tentando fazer assim:
SQLDS_CID.CommandText := ´select CD_COD from CID where(CD_COD like :P_CD_COD)´;
SQLDS_CID.ParamByName(´P_CD_COD´).AsString :=EditBusca.Text+´¬´;
SQLDS_CID.Open;
Tem algum erro aparente?
SQLDS_CID.CommandText := ´select CD_COD from CID where(CD_COD like :P_CD_COD)´;
SQLDS_CID.ParamByName(´P_CD_COD´).AsString :=EditBusca.Text+´¬´;
SQLDS_CID.Open;
Tem algum erro aparente?
GOSTEI 0
Vinicius2k
25/01/2004
[quote:8c33ad633a=´Ivan Fabricio Moura Silva´]SQLDS_CID.ParamByName(´P_CD_COD´).AsString :=[color=red:8c33ad633a]EditBusca.Text+´¬´[/color:8c33ad633a];[/quote:8c33ad633a]
Ivan,
SQLDS_CID.ParamByName(´P_CD_COD´).AsString :=[color=green:8c33ad633a]´¬´+EditBusca.Text+´¬´[/color:8c33ad633a];
T+
Ivan,
SQLDS_CID.ParamByName(´P_CD_COD´).AsString :=[color=green:8c33ad633a]´¬´+EditBusca.Text+´¬´[/color:8c33ad633a];
T+
GOSTEI 0