PEGAR PARAMETRO DE CONSULTA SQL
Ola pessoal tenho um dificuldade aki eu tenho uma consulta sql e um datareport
eu queria mostrar o perioda da consulta no relatorio tipo
data inicial e data final
a consulta esta assim
Dim Data1 As String
Dim Data2 As String
Data1 = Format(TxtDtIni2.Text, [Ô]mm/dd/yyyy[Ô])
Data2 = Format(TxtDtfim3.Text, [Ô]mm/dd/yyyy[Ô])
RSProduto.Open [Ô]SELECT codprod,descricao, sum(qtdsaida) as QtdTotalSaida [Ô] & _
[Ô]FROM tblproduto, tblsaida [Ô] & _
[Ô]WHERE codprod = codprodsaida [Ô] & _
[Ô]AND datasaida [Ô] & _
[Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] & _
[Ô]GROUP BY codprod , descricao[Ô], cnn, 3, 3
eu queria mostrar o perioda da consulta no relatorio tipo
data inicial e data final
a consulta esta assim
Dim Data1 As String
Dim Data2 As String
Data1 = Format(TxtDtIni2.Text, [Ô]mm/dd/yyyy[Ô])
Data2 = Format(TxtDtfim3.Text, [Ô]mm/dd/yyyy[Ô])
RSProduto.Open [Ô]SELECT codprod,descricao, sum(qtdsaida) as QtdTotalSaida [Ô] & _
[Ô]FROM tblproduto, tblsaida [Ô] & _
[Ô]WHERE codprod = codprodsaida [Ô] & _
[Ô]AND datasaida [Ô] & _
[Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] & _
[Ô]GROUP BY codprod , descricao[Ô], cnn, 3, 3
tentei isso mas nao deu
Private Sub DataReport_Activate()
Label5.Caption = frmrelsaida.TxtDtIni2.Text
End Sub
Private Sub DataReport_Activate()
Label5.Caption = frmrelsaida.TxtDtIni2.Text
End Sub
Antes de abrir o relatório (DataReport1.Show), faz o seguinte:
No exemplo, informei SECTION2.
Verifique qual a seção correta em que o objeto LABEL está.
DataReport1.Sections([Ô]Section2[Ô]).Controls([Ô]Label5[Ô]).Caption = [Ô]Mensagem para o relatório[Ô]
DataReport1.ShowNo exemplo, informei SECTION2.
Verifique qual a seção correta em que o objeto LABEL está.
OI Tecla boa tarde section 4
tecla eu quero informar o valor desta variaveis na label5
[Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] &
data1 e data 2 pra mostar no relatorio
tecla eu quero informar o valor desta variaveis na label5
[Ô]BETWEEN #[Ô] & Data1 & [Ô]# AND #[Ô] & Data2 & [Ô]# [Ô] &
data1 e data 2 pra mostar no relatorio
tecla funcionou perfeitamente o codigo ficou assim
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label5[Ô]).Caption = Data1
ficou otimo joia parabens tecla
pessoal este codigo eo seguinte eu tenho uma variavel em um form, e no relatorio teria q informar seu valor eo Tecla passou o codigo data1 ea varivel e seu valor foi passado para sections4 do relatorio na label5 e isso Tecla vlw
dptsaidadata.Sections([Ô]Section4[Ô]).Controls([Ô]Label5[Ô]).Caption = Data1
ficou otimo joia parabens tecla
pessoal este codigo eo seguinte eu tenho uma variavel em um form, e no relatorio teria q informar seu valor eo Tecla passou o codigo data1 ea varivel e seu valor foi passado para sections4 do relatorio na label5 e isso Tecla vlw
Tópico encerrado , respostas não são mais permitidas