crystal report - erro logon

[AlineMFB 0]

Olá...

Estou desenvolvendo relatórios no crystal do .net 2005.

Quando vou abrir o relatório da esse erro.

Logon Failed. Please try again.

 

Alguém tem alguma ideia?

 

Att,

Aline

[Nilson Cl. 0]

Bom dia

 

Meu Amigo

 

Tenta usar esta sub se tiver duvida e somente me passar, te informo como você deve dar sequencia.

'A Variavel SQL Traz o Comando Sql para o banco de dados
	'A Variavel Rel traz o nome do relatorio do cristal tendo que informar a estenção Ex. (Produto.rpt")
	'A Variavel RepotDT traz o nome do DataSet que esta conectado ao relatório
	' A variavel Tabela traz o nome da Tabela ou qry do banco de dados 
	Sub ConectaReportAcc(ByVal SQL As String, ByVal FormulaNone As Object, ByVal FormulaValue As Object, ByVal Rel As String, ByVal RepotDT As DataSet, ByVal Tabela As String, ByVal Mostra As Forms.CrystalReportViewer, ByVal Form As Form, ByVal Titulo As String)
		Dim Count As Long
		'MCM(System.Windows.Forms.Cursors.WaitCursor)
		'muda o cursor do mouse
		System.Windows.Forms.Cursor.Current = Cursors.WaitCursor
		'coloca o titulo na janela do form que vai caregar o relatorio
		Form.Text = Titulo

		'pega o relatório e concatena com o caminho do aplicativo
		Dim strReportPath As String = Application.StartupPath & "\" & Rel

		'Cria uma instancia do crystal na memoria do PC
		Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
		'carega o relatório 
		rptDocument.Load(strReportPath)
		'da um for e adiciona os valores as formulas do relatorio crystal
		For Count = 0 To UBound(FormulaNone)

			rptDocument.DataDefinition.FormulaFields.Item(FormulaNone(Count)).Text = "'" & FormulaValue(Count) & "'"

		Next

		'objeto adapter usado para preencher o dataset
		Dim adapter As New OleDb.OleDbDataAdapter(SQL _
			, ConexaoAcc.ConnectionString) 'onde ConexaoAcc é sua conexao ativa

		'preenche o dataset
		adapter.Fill(RepotDT, Tabela)
		'altera o datasource do relatorio para o DataSet que foi atribuido e que está preenchido 
		rptDocument.SetDataSource(RepotDT)
		'informa o relatorio que será carregado pelo crystal report viewer
		Mostra.ReportSource = rptDocument

		'propriedades do reportViewer
		Mostra.ShowCloseButton = False
		Mostra.ShowExportButton = True
		Mostra.ShowGroupTreeButton = False
		Mostra.ShowRefreshButton = True
		Mostra.ShowPreviousPage()
		Mostra.ShowFirstPage()
		Mostra.ShowLastPage()
		Mostra.ShowNextPage()
		'Mostra.ShowCloseButton = True
		'Mostra.ShowGroupTree()
		'da um refresh no relatorio para atualizar o mesmo e mostrar os dados
		Mostra.RefreshReport()
		System.Windows.Forms.Cursor.Current = Cursors.Default
		'MCM(System.Windows.Forms.Cursors.Default)
		'coloca a tela que vai abrir o relatorio dentro do form mid
		'My.Forms.frmMostraRel.MdiParent = frmInicio
		'OcultaBarraMenu(frmInicio.mnubarra, frmInicio.ssBarraRodape)
		Form.Show()
	End Sub

como passar os parametro para sub informada acima

ConectaReportAcc("Select * From qryCalculo Where Codigo=" & CodCliente _
			, New Object() {"Passar o NOme das formulas"} _
			, New Object() {passar o valores que vão aparecer na formula}, "seu relatorio.rpt", New DataSet, "Tabela ou Consulta" _
				, frmMostraRel.CrystalReportViewer2, frmMostraRel, "Titulo do formulario")

Onde o 1 parametro é o sql que vai ser passado para o banco de dados.

onde o 2 parametro é os nomes das formulas que estão no seu relatorio.

onde o 3 parametro é os valores que as formulas vão receber no seu relatorio.

onde o 4 parametroseu relatorio.rpt é o nome do seu relatorio crystal report.

onde o 5 parametroseu DataSet é o seu dataSet para vincular com o relatorio.

onde o 6 parametroseu Tabela ou Consulta é o nome de sua tabela,consulta ou views.

onde o 7 parametroseu frmMostraRel.CrystalReportViewer2 é o nome do seu CrystalReportViewe.

onde o 8 parametroseu frmMostraRel é o nome do formulario que contem o crystalReportViews ou que vai ser caregado para mostrar o relatorio.

onde o 9 parametroseu Titulo do formulario é o titulo que vai aparecder na propriedade text o form.

 

bom meus amigos este exemplo foi usado em vb2005 e 2008 e funciona perfeitamente.

 

Se serviu manda uma resposta para.

 

Outra coisa esteu precisando de algua coisa em vb6, vb2005 ou vb2008 que bloquie a tecla windows do teclado.

 

Se alguem souber como fazer me ajude por favor..

 

T+