RELATORIO VB.NET

ALTAIR148 30/03/2011 20:31:04
#369775
Estou precisando criar um sistema para emitir recibos, e não sei como fazer, estou usando o VS 2008, e o que preciso é o seguite, que ao digitar o numero do recibo ele abra o respectivo registro com a numeração digitada.
Obs.: Meu banco de dados esta em mysql.
TECLA 30/03/2011 22:29:57
#369799
ALTAIR148 31/03/2011 12:25:17
#369874
Entendi, mas agora tenho uma dúvida, no cliente quando o sistema for instalado terá que instalar o crystal report também?
ALTAIR148 01/04/2011 18:02:32
#370110
Eu consegui criar um relatório com o Crystal report usando um conector ODBC, mas isso eu fiz utilzando o assistente, eu gostaria de saber como que eu faço para fazer a conexao do relatório via código, abaixo segue o módulo que eu utilizo para fazer a conexão:
Dim CN As New ADODB.Connection
Public comando As New ADODB.Command
Public Sub Conectar()
CN = New ADODB.Connection [ô]conexao usando ADO
CN.Open([Ô]DRIVER={MySQL ODBC 5.1 Driver};server=XX;user id=XX;password=XX;database=aXX[Ô])
[ô]Solicitar instancia
Public Function GetConexao() As ADODB.Connection

If CN.State <> ConnectionState.Open Then
Conectar()
End If

Return CN

End Function


Obrigado.
TECLA 01/04/2011 21:08:14
#370127
Citação:

:
Entendi, mas agora tenho uma dúvida, no cliente quando o sistema for instalado terá que instalar o crystal report também?


Sim.

Citação:

Eu consegui criar um relatório com o Crystal report usando um conector ODBC, mas isso eu fiz utilzando o assistente, eu gostaria de saber como que eu faço para fazer a conexao do relatório via código, abaixo segue o módulo que eu utilizo para fazer a conexão:



Porque não segue a linha do artigo, ou seja, crie uma conexão e alimente um DATASET TIPADO.
Na sequência, utilize o objeto TIPADO para alimentar o REPORT.
ALTAIR148 02/04/2011 00:51:52
#370161
Obrigado pela dica... Mas vc teria um simples exemplo para que eu possa tenda adapta-ló?

Obrigado
KURTGU 02/04/2011 01:44:03
#370163
Emitir recibo com CrystalReports

link dowload exemplo
http://sites.google.com/site/programacaoonline/family-blog/vb-net/emitir-recibo-com-crystal-report
ALTAIR148 02/04/2011 10:56:43
#370195
Seguindo o exemplo do TECLA, até uma certa parte eu cheguei, agora a dúvida é a seguinte, eu quero gerar o relatório atraves de uma Stored Procedure, eu já tenho ela criada, só que da forma que ela está ela me traz apenas um registro.
Ex.: Quero gerar um relatório do código 01 até o 200. Da forma que está ele me traz apenas o 01 por exemplo. Abaixo segue o código:



Dim dr1 As MySql.Data.MySqlClient.MySqlDataReader
Dim cmdsql As MySql.Data.MySqlClient.MySqlCommand

Dim parametro As New MySql.Data.MySqlClient.MySqlParameter
Dim parametro1 As New MySql.Data.MySqlClient.MySqlParameter
conexao = New MySql.Data.MySqlClient.MySqlConnection([Ô]server=127.0.0.1;user id=altair;password=123;database=exemplo[Ô])

parametro.ParameterName = [Ô]vcodigo1[Ô]
parametro1.ParameterName = [Ô]vcodigo2[Ô]
parametro.Value = TextBox1.Text
parametro1.Value = TextBox2.Text
cmdsql = New MySql.Data.MySqlClient.MySqlCommand([Ô]teste[Ô], conexao)

cmdsql.CommandType = CommandType.StoredProcedure

cmdsql.Parameters.Add(parametro)
cmdsql.Parameters.Add(parametro1)
conexao.Open()

dr1 = cmdsql.ExecuteReader

Do While dr1.Read

valor.Text = dr1([Ô]senat[Ô])

Loop
Dim ds As New DataSet1
Dim dr As DataRow = ds.Tables(0).NewRow()
dr([Ô]valor[Ô]) = valor.Text
ds.Tables(0).Rows.Add(dr)

Dim cr As New CrystalReport1
cr.SetDataSource(ds)
Form2.CrystalReportViewer1.ReportSource = cr
Form2.Show()
conexao.Close()
TECLA 02/04/2011 11:23:37
#370200 Resposta escolhida
Vou preparar um exemplo e posto aqui pra te servir como base.
ALTAIR148 02/04/2011 11:39:41
#370206
Ok, TECLA, muito obrigado, fico no aguardo....
TECLA 02/04/2011 16:18:58
#370229
Conforme o prometido, segue um projeto-exemplo usando o Crystal com Access em VB.NET.
Espero que te ajude.

http://sites.google.com/site/programacaoonline/family-blog/vb-net/usando-o-crystal-reports-com-access-em-vb-net
Página 1 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar