CONEXAO DO CRYSTAL COM ACCESS
estou usando o seguinte código para chamar o relatório do crystal com o access no vb.net 2008:
Dim CrysSum As New Urina
CarregarDados([Ô]Select * from tblPacientes Where Cod=[Ô] & lblRegistro.Text, [Ô]tblPacientes[Ô])
CrysSum.SetDataSource(Tabela)
ExibeRelatorio.cr1.ReportSource = CrysSum
ExibeRelatorio.Show()
Na máquina do cliente ele pede o Login e a senha do banco de dados, já fui em verify database e está tudo certo. Não sei mais oq fazer
Dim CrysSum As New Urina
CarregarDados([Ô]Select * from tblPacientes Where Cod=[Ô] & lblRegistro.Text, [Ô]tblPacientes[Ô])
CrysSum.SetDataSource(Tabela)
ExibeRelatorio.cr1.ReportSource = CrysSum
ExibeRelatorio.Show()
Na máquina do cliente ele pede o Login e a senha do banco de dados, já fui em verify database e está tudo certo. Não sei mais oq fazer
Bom dia,
Amigo veja no link abaixo o que esta acontecendo.
http://social.msdn.microsoft.com/Forums/pt/vsreportingpt/thread/e3a1dd18-7244-42be-a709-f0ce4be8a7b1
Até mais.
Amigo veja no link abaixo o que esta acontecendo.
http://social.msdn.microsoft.com/Forums/pt/vsreportingpt/thread/e3a1dd18-7244-42be-a709-f0ce4be8a7b1
Até mais.
Oi amigo obrigado por me responder, mais esse link ai não tem nada! Se alguém puder me dar outra dica agradeço!
Bom dia,
você está passando os dados para o crystal através de um dataset?
Até mais.
você está passando os dados para o crystal através de um dataset?
Até mais.
Não estou via código mesmo, como mostrei ai em cima, ainda não usei o DataSet
Bom dia,
No link que lhe passei lá fala que isso pode estar acontecendo é que não está utilizando um dataset. Tente alimentar o dataset e depois gerar o relatório.
Até mais.
No link que lhe passei lá fala que isso pode estar acontecendo é que não está utilizando um dataset. Tente alimentar o dataset e depois gerar o relatório.
Até mais.
Oi altair, não sei mais o que fazer já fiz de tudo, coloquei o componente DataSet, até consegui chamar um relatório e ele não pediu senha, mais esse foi um relatório que contém uma só tabela. Todos os outros que contém várias tabelas e relacionamentos, quando vou colocar na máquina cliente, ele pede Login e senha. Não sei mais oq fazer
Boa noite,
Amigo infelizmente não sei como posso te ajudar, vamos ver se alguém do fórum aqui pode te ajudar.
Abraços...
Amigo infelizmente não sei como posso te ajudar, vamos ver se alguém do fórum aqui pode te ajudar.
Abraços...
Fico no aguardo, mais obrigado!
Existe 2 maneiras de vc gerar o relatorio, uma e passando um data set para o relatorio a outra e passando parametros de busca (filtros) criado dentro do arquivo do cristal..
vo te passar umas linha de codigo usando um dataset...
Dim conns As String
conns = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\PEDIDO PEÇAS.mdb[Ô]
Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = conns
Dim RPT As New RPIRES
Dim cmd As OleDb.OleDbCommand = conect.CreateCommand
Dim da As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
cmd.CommandText = [Ô]select * from recibo where N_RECIBO LIKE [ô][Ô] & N_RECIBO.Text & [Ô][ô][Ô]
Try
da.SelectCommand = cmd
da.Fill(ds, [Ô]RECIBO[Ô])
RPT.SetDataSource(ds)
recibof.CrystalReportViewer1.ReportSource = RPT
recibof.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
testa ai vai funcionar qualquer coisa so pedir um helpp...
vo te passar umas linha de codigo usando um dataset...
Dim conns As String
conns = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\PEDIDO PEÇAS.mdb[Ô]
Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = conns
Dim RPT As New RPIRES
Dim cmd As OleDb.OleDbCommand = conect.CreateCommand
Dim da As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
cmd.CommandText = [Ô]select * from recibo where N_RECIBO LIKE [ô][Ô] & N_RECIBO.Text & [Ô][ô][Ô]
Try
da.SelectCommand = cmd
da.Fill(ds, [Ô]RECIBO[Ô])
RPT.SetDataSource(ds)
recibof.CrystalReportViewer1.ReportSource = RPT
recibof.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
testa ai vai funcionar qualquer coisa so pedir um helpp...
Amigo obrigado pela ajuda, mais até agora nada, isso só acontece em relatórios que tem mais de uma tabela não sei mais oq fazer. Abaixo esotu colocando o código que carregar os dados:
Public Sub CarregarDados(ByVal SQL As String, ByVal NomeTabela As String)
Dim Dados As New DataSet
Dim cmd As New OleDb.OleDbCommand
Dim ver As New OleDb.OleDbDataAdapter
ver.TableMappings.Add([Ô]Table[Ô], NomeTabela)
cmd = New OleDb.OleDbCommand(SQL, CNN)
cmd.CommandType = CommandType.Text
ver.SelectCommand = cmd
ver.Fill(Dados, NomeTabela)
ver.Dispose()
Dados.AcceptChanges()
Tabela = Dados.Tables.Item(NomeTabela)
[ô]-------------
Dados.Dispose()
End Sub
Para chamar o relatório:
Dim CrysSum As New Urina
CrysSum.SetDataSource(Tabela) [ô]var, tabela publica tipo: DataTable
ExibeRelatorio.cr1.ReportSource = CrysSum
ExibeRelatorio.Show()
Public Sub CarregarDados(ByVal SQL As String, ByVal NomeTabela As String)
Dim Dados As New DataSet
Dim cmd As New OleDb.OleDbCommand
Dim ver As New OleDb.OleDbDataAdapter
ver.TableMappings.Add([Ô]Table[Ô], NomeTabela)
cmd = New OleDb.OleDbCommand(SQL, CNN)
cmd.CommandType = CommandType.Text
ver.SelectCommand = cmd
ver.Fill(Dados, NomeTabela)
ver.Dispose()
Dados.AcceptChanges()
Tabela = Dados.Tables.Item(NomeTabela)
[ô]-------------
Dados.Dispose()
End Sub
Para chamar o relatório:
Dim CrysSum As New Urina
CrysSum.SetDataSource(Tabela) [ô]var, tabela publica tipo: DataTable
ExibeRelatorio.cr1.ReportSource = CrysSum
ExibeRelatorio.Show()
Tópico encerrado , respostas não são mais permitidas