Duvida com Qry

[papaicleber]

:angry:

Boa Noite Pessoal

Só está faltando uma coisa que eu não sei o que, mas tenho certeza que alguém com um pouco mais conhecimento que eu

poderá me dizer.

A questão é a seguinte:

Na Minha Qry tenho o seguinte comando:

Select * From TBGas where DataGas BetWeen :DataIni and :DataFim

and Situacao= :Situacao and NomeEscola= :Escola

Até tudo bem: Eu Acho!

Então no meu Form de consulta tenho o seguinte:

Um Radio Buton com o seguinte comando:

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;

Isso Funciona.

Mas O Problema está no seguinte comando do BtnButon:

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;

If Edit1.Text <> '' Then

Begin

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

end;

end;

Dados.QryConsLanGas.Prepare;

Dados.QryConsLanGas.Open;

end;

Esse comando funciona muito bem, se eu colocar o nome correto no edit, porém estou com dificudade se tento bucar parte do nome ou todos.

alguém pode me ajudar?

Cleber

[Jhonas]

Esse comando funciona muito bem, se eu colocar o nome correto no edit, porém estou com dificudade se tento bucar parte do nome ou todos

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

ficaria assim

Dados.QryConsLanGas.ParamByName('Escola').AsString:= '%'+Edit1.Text+'%';

abraço

[papaicleber]

Esse comando funciona muito bem, se eu colocar o nome correto no edit, porém estou com dificudade se tento bucar parte do nome ou todos

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

ficaria assim

Dados.QryConsLanGas.ParamByName('Escola').AsString:= '%'+Edit1.Text+'%';

abraço

Olá Amigo..

Desculpa, não sei o que tem esse código, mas não funciona.

Se coloco dessa forma, ele não retorna nenhum dado. e se coloco só o nome do campo (Edit1.text) ae ele traz,

mas tenho que colocar o nome inteiro.

O que pode ser?

Abraços

[papaicleber]

Esse comando funciona muito bem, se eu colocar o nome correto no edit, porém estou com dificudade se tento bucar parte do nome ou todos

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

ficaria assim

Dados.QryConsLanGas.ParamByName('Escola').AsString:= '%'+Edit1.Text+'%';

abraço

Olá Amigo..

Desculpa, não sei o que tem esse código, mas não funciona.

Se coloco dessa forma, ele não retorna nenhum dado. e se coloco só o nome do campo (Edit1.text) ae ele traz,

mas tenho que colocar o nome inteiro.

O que pode ser?

Abraços

Boa Noite

Problema do Qry REsolvido

Graças a Deus e a sua ajuda, muito obrigado.

Mas Agora o problema é outro: :blush:

Montei um relatório onde o meu QuickReport está ligado na Qry anterior, e quando dou o comando:

Frm.QuickReport.Preview;

Dá um erro danado de Access Violation, O que pode ser Amigo?

Como resolvo isso, já li inumeros materias sobre o quick mas esse problema não to conceguindo resolver.

Obrigado

Cleber

[Jhonas]

Montei um relatório onde o meu QuickReport está ligado na Qry anterior, e quando dou o comando:

Frm.QuickReport.Preview;

Dá um erro danado de Access Violation, O que pode ser Amigo?

Se o relatório não foi criado antes de dar o Preview, vai dar erro de Access Violation

abraço