PARAMETRO EM DATA REPORT
e ai galera! tÃÂ' com um trauma aqui:
Obs: uso dataenvironment, connection, command...
já fiz muitos relatórios, mas pela primeira vez tÃÂ' tentando impor parâmetros num relatório, peguei um relatório que ja tinha pronto e tentei impor uma condição: aparecer os registros onde o campo data fosse a data que eu estarÃÂÂa colocando num textbox, fiz o seguinte:
pus no SQL Statement do Command:
select * from dados where ('D/credito'=?)
na aba Parameter coloquei:
name: data
Direction:input
datatype:addate
hostdatatype:date(vt_date)
e coloquei no botão para chamar o relatorio:
mas o relatório aparece em branco
então agradeço desde já a atenção de todos.
Obs: uso dataenvironment, connection, command...
já fiz muitos relatórios, mas pela primeira vez tÃÂ' tentando impor parâmetros num relatório, peguei um relatório que ja tinha pronto e tentei impor uma condição: aparecer os registros onde o campo data fosse a data que eu estarÃÂÂa colocando num textbox, fiz o seguinte:
pus no SQL Statement do Command:
select * from dados where ('D/credito'=?)
na aba Parameter coloquei:
name: data
Direction:input
datatype:addate
hostdatatype:date(vt_date)
e coloquei no botão para chamar o relatorio:
Private Sub Command5_Click()
If IsDate(Text3.Text) = True Then
DataEnvironment1.Command1 CDate(Text3.Text)
rptcheques.Show
End If
End Submas o relatório aparece em branco
então agradeço desde já a atenção de todos.
Ja tentou formatar a data ... Ex.:
DataEnvironment1.Command1 CDate(Format(Text3.Text,"dd/mm/yyyy"))
OU
DataEnvironment1.Command1 CDate(Format(Text3.Text,"mm/dd/yyyy"))
DataEnvironment1.Command1 CDate(Format(Text3.Text,"dd/mm/yyyy"))
OU
DataEnvironment1.Command1 CDate(Format(Text3.Text,"mm/dd/yyyy"))
acabei de tentar e nada...
Se lembrar de qualquer outra forma que eu possa tentar te agradeço Josimar.
Se lembrar de qualquer outra forma que eu possa tentar te agradeço Josimar.
Amigo você pode usar o Data Report sem o Data enviromment. Fica mais fácil.
Veja minha resposta neste tópico. Tambem estou enviando em anexo dois exemplos de uso do data report com e sem o data enviroment e com critério em combo ou textbox
Veja minha resposta neste tópico. Tambem estou enviando em anexo dois exemplos de uso do data report com e sem o data enviroment e com critério em combo ou textbox
Robiu e Nil o exemplo de vocês são realmente bons, e resolvem o problema, mas quando encontramos algo melhor no sistema mudamos de opinião correto? achei um exemplo que usa um FILTER para chamar o dataReport, achei bem mais interessante, mas por regra do forum, como se trata de outro assunto vou fechar este tópico e abrir outro falando sobre este método e também fazendo uma outra pergunta, àqual acho que pra quem sabe bem de SQL poderá me ajudar.
Espero que vocês olhem meu proximo tópico e possam opinar.
Só pra dar o ponta pé inicial, o esquema é o seguinte, não preciso alterar em nada meu relatório ou fazer qualquer outra coisa, é só chamar o Relatório assim:
Pronto! o relatório vira com os dados apenas do nome digitado no textnome
Questão que irei lançar no próximo tópico:
Para chamar pelo campo com data:
Desta forma o relatório trará apenas os registros com a data maior ou igual àdigitada no textDC
PERGUNTA:
Como colocar pra que este FILTER traga o campo:
TEXTDATAINICIO >= D/CREDITO <= TEXTDATAFIM
Ou seja terá mais uma variavel.
Espero que vocês olhem meu proximo tópico e possam opinar.
Só pra dar o ponta pé inicial, o esquema é o seguinte, não preciso alterar em nada meu relatório ou fazer qualquer outra coisa, é só chamar o Relatório assim:
Private Sub Command5_Click()
DataEnvironment1.rsCommand1.Filter = " nome = '" & Textnome.Text & "'"
rptcheques.Show
End SubPronto! o relatório vira com os dados apenas do nome digitado no textnome
Questão que irei lançar no próximo tópico:
Para chamar pelo campo com data:
Private Sub Command5_Click()
DataEnvironment1.rsCommand1.Filter = " D/CREDITO >= '" & TextDC.Text & "'"
rptcheques.Show
End SubDesta forma o relatório trará apenas os registros com a data maior ou igual àdigitada no textDC
PERGUNTA:
Como colocar pra que este FILTER traga o campo:
TEXTDATAINICIO >= D/CREDITO <= TEXTDATAFIM
Ou seja terá mais uma variavel.
Tópico encerrado , respostas não são mais permitidas