(Resolvido) Problemas com Parametros em um select

[papaicleber]

:wacko:

Olá Pessoal,

Sou novato por aqui,

Estou desenvolvendo um sistema de controle de manutenção e estou com um serio problema, é o seguinte:

Tenho um form onde vai ser lançado os pedidos de manutenção, e para isso tem campos como nome da escola, equipamento, onde escola e equipamentos são tabelas diferentes. Até ae tudo bem, pois em um botão, quando acionado chama outro form de consulta para escola, seleciono a mesma no grid clico em ok e esse dado vai para o form de lançamento bonitinho. O Problema depois que clico no botão de consulta do equipamento, pois nessa consulta uso um Qry com o seguinte comando e parametro:

Select * From TBManu where NomeEscola =:PEscola

Até ae tudo bem,

No form digito o nome da escola no Edit e ele seleciona todos os equipamentos que tem nessa escola. Agota eu preciso que quando de um Ok, ele pegue esse dado equipamento selecionado e jogue nos campos DBedits do form Lançamentos de manutenção. Ele da um erro que diz que o "Qry : Cannot Modify a Read-Only DataSet"

alguém por obsequio pode me ajudar a desvendar esse misterio.

É muito importante.

Obrigado.

Cleber

[Jhonas]

"Qry : Cannot Modify a Read-Only DataSet"

Não pode modificar um DataSet somente como leitura

na propriedade ReadOnly da Query deixe como False;

abraço

[papaicleber]

"Qry : Cannot Modify a Read-Only DataSet"

Não pode modificar um DataSet somente como leitura

na propriedade ReadOnly da Query deixe como False;

abraço

:blush:

Olá amigo.

Eu bem que tinha tentado essa alternativa, mas é que nas propriedades da Qry não tem essa bendita ReadOnly.

Tem apenas: Param, RequestLive, SessionName, Sql, Tag..

O que eu faço agora?

Por que não aparece a propriedade ReadOnly?

Ai meu Deus, meus amigos me deem uma luz, por favor! :unsure:

[Jhonas]

foi mal ... me confundi com outro componente

na propriedade RequestLive = true

abraço

[papaicleber]

foi mal ... me confundi com outro componente

na propriedade RequestLive = true

abraço

:rolleyes:

Muito Obrigado. Como eu pude não prestar atenção nesse pequeno detalhe.

Isso me ajudou muito.

Só mais uma questão.

como eu posso fazer para quando eu clicar no botao que traz a tabela de equipamento ele já reconhecer

o codigo da escola e trazer os equipamentos filtrados.

Tem como?

Obrigado por tudo.

:rolleyes:

[Jhonas]

o processo é praticamente o mesmo que voce já usou

Select * From TBManu where NomeEscola = :PEscola

se os dados estiverem em tabelas diferentes , procure no forum referencia entre tabelas

ou veja a clausula select usando UNION ou JOIN

abraço

[papaicleber]

o processo é praticamente o mesmo que voce já usou

Select * From TBManu where NomeEscola = :PEscola

se os dados estiverem em tabelas diferentes , procure no forum referencia entre tabelas

ou veja a clausula select usando UNION ou JOIN

abraço

:rolleyes:

Olá meu amigo Jhonas,

Só você pode me ajudar nesse dificil dilema que estou passando.

Estou com uma consulta (código abaixo), que só da certo para uma pesquisa, uma condição, mas preciso

para todos os filtros, ou apenas o que estiver sido preenchido.

Porfavor me ajude, e me diga o que tem de errado, e como melhorar!!

begin

inherited;

If DS.DataSet.Active = true then

begin

Dados.QryConsLanGas.Close;

Dados.QryConsLanGas.ParamByName('DataIni').AsDate := FrmConsLanGas.DTPIni.Date;

Dados.QryConsLanGas.ParamByName('DataFim').AsDate := FrmConsLanGas.DTPFim.Date;

Dados.QryConsLanGas.ParamByName('Escola').AsString:= FrmConsLanGas.edit1.Text;

Dados.QryConsLanGas.Prepare;

Dados.QryConsLanGas.Open;

end;

end;

procedure TFrmConsLanGas.FormCreate(Sender: TObject);

begin

inherited;

DS.DataSet := Dados.QryConsLanGas;

end;

procedure TFrmConsLanGas.RGSituacaoClick(Sender: TObject);

begin

inherited;

If DS.DataSet.Active = TRue then

begin

if RGSituacao.ItemIndex = 0 then

begin

Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'PEDIDO'

end

else

begin

if RGSituacao.ItemIndex = 1 then

begin

Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'PLANILHA'

end

else

begin

if RGSituacao.ItemIndex = 2 then

Begin

Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'COMANDA';

end;

end;

end;

end;

end;

end.

Um Abraço

Cleber

:o

[Jhonas]

If DS.DataSet.Active = true then

begin

Dados.QryConsLanGas.Close;

Dados.QryConsLanGas.ParamByName('DataIni').AsDate := FrmConsLanGas.DTPIni.Date;

Dados.QryConsLanGas.ParamByName('DataFim').AsDate := FrmConsLanGas.DTPFim.Date;

Dados.QryConsLanGas.ParamByName('Escola').AsString:= FrmConsLanGas.edit1.Text;

Dados.QryConsLanGas.Prepare;

Dados.QryConsLanGas.Open;

end;

dentro da query não existe esse parametro

Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'COMANDA';

abraço

[papaicleber]

If DS.DataSet.Active = true then

begin

Dados.QryConsLanGas.Close;

Dados.QryConsLanGas.ParamByName('DataIni').AsDate := FrmConsLanGas.DTPIni.Date;

Dados.QryConsLanGas.ParamByName('DataFim').AsDate := FrmConsLanGas.DTPFim.Date;

Dados.QryConsLanGas.ParamByName('Escola').AsString:= FrmConsLanGas.edit1.Text;

Dados.QryConsLanGas.Prepare;

Dados.QryConsLanGas.Open;

end;

dentro da query não existe esse parametro

Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'COMANDA';

abraço

Olá,

Boa Noite Caro Jhonas

Muito Obrigado pelas dicas..

Caso encerrado.

Abraços