Criar Dois Parametros em uma tabela
Galer a como eu crio dois parametro em uma tabela ?
Tenho uma tabela musica com os seguintes campos:
Codigo ,nome,artista,album estilo, onde artista ,albume estio estão relacionadas as tabela artista,album e estilo.
Queria criar dois parametros um para o campo nome e outro para o campo estilo não estou conseguindo criar para o campo estilo talves por ser uma chave estrangeira.
a instrução SQL é :select * from MUSICA where upper(nome) like(:nome) order by codigo
E o código é :
DM.cdsMusica.Close;
DM.cdsMusica.Params[0].AsString:=UpperCase(Edit1.Text) + ´¬´;
DM.cdsMusica.Open;
Essa instrução SQL e o codigo é para o campo nome , e agora como faço para o campo estilo ,alguém por gentileza poderia me ensinar?
Desde já eu agradeço!!!!
Tenho uma tabela musica com os seguintes campos:
Codigo ,nome,artista,album estilo, onde artista ,albume estio estão relacionadas as tabela artista,album e estilo.
Queria criar dois parametros um para o campo nome e outro para o campo estilo não estou conseguindo criar para o campo estilo talves por ser uma chave estrangeira.
a instrução SQL é :select * from MUSICA where upper(nome) like(:nome) order by codigo
E o código é :
DM.cdsMusica.Close;
DM.cdsMusica.Params[0].AsString:=UpperCase(Edit1.Text) + ´¬´;
DM.cdsMusica.Open;
Essa instrução SQL e o codigo é para o campo nome , e agora como faço para o campo estilo ,alguém por gentileza poderia me ensinar?
Desde já eu agradeço!!!!
Lsksskyblu
Curtidas 0
Respostas
Emerson Nascimento
19/05/2008
altere a instruçao para:
select * from MUSICA where upper(nome) like(:nome) and upper(estilo) like :estilo order by codigo
E o código é :
DM.cdsMusica.Close;
DM.cdsMusica.Params[0].AsString:=UpperCase(Edit1.Text) + ´¬´;
DM.cdsMusica.Params[1].AsString:=UpperCase(EditEstilo.Text) + ´¬´;
DM.cdsMusica.Open;
select * from MUSICA where upper(nome) like(:nome) and upper(estilo) like :estilo order by codigo
E o código é :
DM.cdsMusica.Close;
DM.cdsMusica.Params[0].AsString:=UpperCase(Edit1.Text) + ´¬´;
DM.cdsMusica.Params[1].AsString:=UpperCase(EditEstilo.Text) + ´¬´;
DM.cdsMusica.Open;
GOSTEI 0