|
|
Postada em 05/07/2008 10:05 hs
Ola VBzadores!!!
Pessoal to apanhado em uma coisa que acredito ser simples!!!!!
Espia só: Quero criar uma tela onde os users digitam 4 informações em 4 TextBox e em seguida imprima um Cartaz de preço com esses dados que digitou.
Daí como não é necessário gravar em BD, apenas gostaria de mandar o conteudo dos TextBox para o DataReport mostrar e imprimir, simples (sem conexão com BD), mas ao vizualizar o DataReport dá o seguinte erro: Failed getting Rowset(s) from current data source.
OBS.: Não quero fazer no printer pq teria que usar muitos currency X,Y (cansera)
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" 
|
|
|
|
|
|
JOM
|
BOM JESUS DA LAPA
BA - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 05/07/2008 10:53 hs
Neste exemplo, jogo valores de textBox, Combos e até variáveis do form para o DataReport, tudo é possível: Obs: Nestes casos utilize sempre Label's. Rpt_carta.Sections("Section2").Controls.Item("Label_agencia").Caption = vagencia & " , " & Format(Date, "long date")
Rpt_carta.Sections("Section1").Controls.Item("Label_agencia_2").Caption = "Agência de " & vagencia
Rpt_carta.Sections("Section1").Controls.Item("Lbl_nome").Caption = variavel_nome
Rpt_carta.Sections("Section1").Controls.Item("Lbl_municipio").Caption = variavel_municipio
Rpt_carta.Sections("Section1").Controls.Item("Lbl_assunto").Caption = "ASSUNTO: " & Text_assunto
Rpt_carta.Sections("Section1").Controls.Item("lbl_cabecalho").Caption = Text_cabecalho.Text
Rpt_carta.Sections("Section1").Controls.Item("lbl_rodape").Caption = Text_rodape.Text
Rpt_carta.Sections("Section1").Controls.Item("Lbl_nome1").Caption = ComboAss_1
Rpt_carta.Sections("Section1").Controls.Item("Lbl_funcao1").Caption = ComboFun_1
Rpt_carta.Sections("Section1").Controls.Item("Lbl_nome2").Caption = ComboAss_2
Rpt_carta.Sections("Section1").Controls.Item("Lbl_funcao2").Caption = ComboFun_2 |
|
|
|
|
|
Postada em 05/07/2008 11:21 hs
Amigao obrigado por responder
em.... eu já transferi do mesmo modo que vc postou ai, veja:
'------------------------
'INICIA A IMPRESSÃO
'## Envia o conteudo dos TEXTs do FORM para os LABELs do DATAREPORT
Cartaz_Um_por_folha.Sections("Section1").Controls.Item("lbl_codigo").Caption = "Código(s): " & txt_codigo
Cartaz_Um_por_folha.Sections("Section1").Controls.Item("lbl_valor").Caption = txt_valor
Cartaz_Um_por_folha.Sections("Section1").Controls.Item("lbl_msg1").Caption = txt_msg1
Cartaz_Um_por_folha.Sections("Section1").Controls.Item("lbl_msg2").Caption = txt_msg2
'## Chama
Cartaz_Um_por_folha.Show 1
'TERMINA A IMPRESSÃO
'-----------------------
A questão é: quando ele chama o DataReport e o DataReport vê que não tem as conexoes com o BD, daí acontece o Erro que citei acima.....
A questão é se o DataReport mostra e imprimi dados que nao estão em BD e sim em texts.....
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/07/2008 13:07 hs
Rapaz... se for o caso cria um RS temporario e manda la, só pra não dar pau.
Eu uso o Active Report, e ele tambem precisa de um RS como parametro, é obrigatorio... mesmo q eu não use nada dele.
Quando eu preciso apenas iprimir algo que não tenha no banco, cria um Rs temporario com qualquer coisa, só pra não dar erro, tipo selecionar os dados do usuario atual, sei la... bobeira assim, só pra passar como parametro e não dar o pau.
T+
|
|
|
|
|
|
Postada em 08/07/2008 10:37 hs
é.........
Bom fiz assim:
Criei uma conexão temp, como o amigo Donkey citou, e mandei o conteudo dos TEXTBOX, ficou blz é uma gambi, mas.......
Obrigado a todos
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
