DATAREPORT SEM DATAENVIRONMENT
oi gente por favor alguem poderia me ajudar
tenho o seguinte banco de dados
http://picasaweb.google.com.br/lh/photo/m7aghrqrv5GUANHtr4szSQ?feat=directlink
e preciso gerar no datareport um relatorio sem DataEnvironment estou usando o seguinte codigo
Private Sub CmdImprimir_Click()
On Error GoTo Trata_Erro
Dim i As Integer
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
rs.Open [Ô]select * from movimento where data=[ô][Ô] & Format(minhadata, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô][Ô], cn [ô], adOpenKeyset, adLockOptimistic
If rs.EOF = False Then
Set DtRep.DataSource = rs
DtRep.Refresh
DtRep.Show
DtRep.SetFocus
End If
rs.Close
Exit Sub
Trata_Erro:
MsgBox Str$(Err.Number) & [Ô] [Ô] & Err.Description
End Sub
ate ai beleza
mais eu precisaria inserir tambem
os outros dados que estao no form
toda ajuda é bem vinda
tenho o seguinte banco de dados
http://picasaweb.google.com.br/lh/photo/m7aghrqrv5GUANHtr4szSQ?feat=directlink
e preciso gerar no datareport um relatorio sem DataEnvironment estou usando o seguinte codigo
Private Sub CmdImprimir_Click()
On Error GoTo Trata_Erro
Dim i As Integer
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
rs.Open [Ô]select * from movimento where data=[ô][Ô] & Format(minhadata, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô][Ô], cn [ô], adOpenKeyset, adLockOptimistic
If rs.EOF = False Then
Set DtRep.DataSource = rs
DtRep.Refresh
DtRep.Show
DtRep.SetFocus
End If
rs.Close
Exit Sub
Trata_Erro:
MsgBox Str$(Err.Number) & [Ô] [Ô] & Err.Description
End Sub
ate ai beleza
mais eu precisaria inserir tambem
os outros dados que estao no form
toda ajuda é bem vinda
segunda duvida que me surgiu agora como faz pra colocar a imagem aqui
putz sabia que esse negocio nao servia para quase nada
amigo voce quer Concatenar para Filtrar para emissao de Relatorios
não tenho nenhum exemplo concatenado
mais procure pelas palavras concatenar e filtro
seria algo assim
variavel = [Ô][Ô]
Se Variavel Não for vazia campo2 Tabela + Variavel
Se Variavel Não for vazia campo3 Tabela + Variavel
ai no select para fazer o relatorio chamaria essa variavel no Where , e conforme a pessoa escolher informacoes ...elas se filtram se deixar em branco filtra todos
em outras linguagens faço assim como acima no VB ainda nao fiz !
Abs
Marcelo fazan
não tenho nenhum exemplo concatenado
mais procure pelas palavras concatenar e filtro
seria algo assim
variavel = [Ô][Ô]
Se Variavel Não for vazia campo2 Tabela + Variavel
Se Variavel Não for vazia campo3 Tabela + Variavel
ai no select para fazer o relatorio chamaria essa variavel no Where , e conforme a pessoa escolher informacoes ...elas se filtram se deixar em branco filtra todos
em outras linguagens faço assim como acima no VB ainda nao fiz !
Abs
Marcelo fazan
GERARDA Bom Dia da uma olhada nesses tópicos, acho que isso pode te ajudar
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=281876&varWorld=
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=85798&varWorld=
http://www.macoratti.net/vb_drsde.htm
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=281876&varWorld=
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=85798&varWorld=
http://www.macoratti.net/vb_drsde.htm
obrigado
Tópico encerrado , respostas não são mais permitidas