CrystalReports

Que tipo de conexion estas usando en el informe??
"Juanma" escribió en el mensaje
news:ONvaQi$%

Tengo una duda sobre Crystal Reports

En una aplicacion vb.net 2005 creo un informe donde me muestra una tabla
de la base de datos.

El problema es que cada vez que abro el informe de Crystal, este me pide
que le ponga la contraseña y usuario de la base de datos.Alguien sabe como
deshabilitar esta opcion?

Gracias

OLEDB (ADO)


"" escribió en el mensaje
news:uqpo4mA$

Que tipo de conexion estas usando en el informe??
"Juanma" escribió en el mensaje
news:ONvaQi$%

Tengo una duda sobre Crystal Reports

En una aplicacion vb.net 2005 creo un informe donde me muestra una tabla
de la base de datos.

El problema es que cada vez que abro el informe de Crystal, este me pide
que le ponga la contraseña y usuario de la base de datos.Alguien sabe
como deshabilitar esta opcion?

Gracias

Yo uso esta clase para hacer esto. Si tienes alguna duda comentamela



Public Class cla_crystal

Dim crUsername As String

Dim crPassword As String

Dim crServidor As String

Dim crBaseDatos As String

Public Sub Print(ByVal crReport As ReportDocument, ByVal SettingsImpresora
As Printing.PrinterSettings)

Dim crSections As Sections

Dim crSection As Section

Dim crReportObjects As ReportObjects

Dim crReportObject As ReportObject

Dim crSubreportObject As SubreportObject

Dim crSubreportDocument As ReportDocument

Dim crDatabase As Database

Dim crTables As Tables

Dim crTable As Table

Dim crTableLogOnInfo As TableLogOnInfo

Dim crConnectioninfo As ConnectionInfo

Try

Cursor.Current = Cursors.WaitCursor

crConnectioninfo = New ConnectionInfo

With crConnectioninfo

.ServerName = crServidor

.UserID = crUsername

.Password = crPassword

.DatabaseName = crBaseDatos

End With

crDatabase = crReport.Database

crTables = crDatabase.Tables

For Each crTable In crTables

crTableLogOnInfo = crTable.LogOnInfo

crTableLogOnInfo.ConnectionInfo = crConnectioninfo

crTable.ApplyLogOnInfo(crTableLogOnInfo)

crTable.Location = crConnectioninfo.DatabaseName & ".dbo." &
crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)

Next

crSections = crReport.ReportDefinition.Sections

For Each crSection In crSections

crReportObjects = crSection.ReportObjects

For Each crReportObject In crReportObjects

If crReportObject.Kind = ReportObjectKind.SubreportObject Then

crSubreportObject = CType(crReportObject, SubreportObject)

crSubreportDocument =
crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)

crDatabase = crSubreportDocument.Database

crTables = crDatabase.Tables

For Each crTable In crTables

With crConnectioninfo

.ServerName = crServidor

.UserID = crUsername

.Password = crPassword

.DatabaseName = crBaseDatos

End With

crTableLogOnInfo = crTable.LogOnInfo

crTableLogOnInfo.ConnectionInfo = crConnectioninfo

crTable.ApplyLogOnInfo(crTableLogOnInfo)

crTable.Location = crConnectioninfo.DatabaseName & ".dbo." &
crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)

Next

End If

Next

Next

crReport.PrintOptions.PrinterName = SettingsImpresora.PrinterName

crReport.PrintToPrinter(1, False, 0, 0)

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

Cursor.Current = Cursors.Default

End Try

End Sub

end class

"Juanma" escribió en el mensaje
news:uEtHS3A$

OLEDB (ADO)


"" escribió en el mensaje
news:uqpo4mA$

Que tipo de conexion estas usando en el informe??
"Juanma" escribió en el mensaje
news:ONvaQi$%

Tengo una duda sobre Crystal Reports

En una aplicacion vb.net 2005 creo un informe donde me muestra una tabla
de la base de datos.

El problema es que cada vez que abro el informe de Crystal, este me pide
que le ponga la contraseña y usuario de la base de datos.Alguien sabe
como deshabilitar esta opcion?

Gracias

Lo he intentado pero no lo debo tener muy claro porque no me funciona. Me
puedes pasar un ejemplo?
Yo lo que hago es una conexion ado y la conecto con crystal. El unico
problema es que me pregunta el usuario y password de la base de datos.


"" escribió en el mensaje
news:OgjmVyD$

Yo uso esta clase para hacer esto. Si tienes alguna duda comentamela



Public Class cla_crystal

Dim crUsername As String

Dim crPassword As String

Dim crServidor As String

Dim crBaseDatos As String

Public Sub Print(ByVal crReport As ReportDocument, ByVal SettingsImpresora
As Printing.PrinterSettings)

Dim crSections As Sections

Dim crSection As Section

Dim crReportObjects As ReportObjects

Dim crReportObject As ReportObject

Dim crSubreportObject As SubreportObject

Dim crSubreportDocument As ReportDocument

Dim crDatabase As Database

Dim crTables As Tables

Dim crTable As Table

Dim crTableLogOnInfo As TableLogOnInfo

Dim crConnectioninfo As ConnectionInfo

Try

Cursor.Current = Cursors.WaitCursor

crConnectioninfo = New ConnectionInfo

With crConnectioninfo

.ServerName = crServidor

.UserID = crUsername

.Password = crPassword

.DatabaseName = crBaseDatos

End With

crDatabase = crReport.Database

crTables = crDatabase.Tables

For Each crTable In crTables

crTableLogOnInfo = crTable.LogOnInfo

crTableLogOnInfo.ConnectionInfo = crConnectioninfo

crTable.ApplyLogOnInfo(crTableLogOnInfo)

crTable.Location = crConnectioninfo.DatabaseName & ".dbo." &
crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)

Next

crSections = crReport.ReportDefinition.Sections

For Each crSection In crSections

crReportObjects = crSection.ReportObjects

For Each crReportObject In crReportObjects

If crReportObject.Kind = ReportObjectKind.SubreportObject Then

crSubreportObject = CType(crReportObject, SubreportObject)

crSubreportDocument =
crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)

crDatabase = crSubreportDocument.Database

crTables = crDatabase.Tables

For Each crTable In crTables

With crConnectioninfo

.ServerName = crServidor

.UserID = crUsername

.Password = crPassword

.DatabaseName = crBaseDatos

End With

crTableLogOnInfo = crTable.LogOnInfo

crTableLogOnInfo.ConnectionInfo = crConnectioninfo

crTable.ApplyLogOnInfo(crTableLogOnInfo)

crTable.Location = crConnectioninfo.DatabaseName & ".dbo." &
crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)

Next

End If

Next

Next

crReport.PrintOptions.PrinterName = SettingsImpresora.PrinterName

crReport.PrintToPrinter(1, False, 0, 0)

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

Cursor.Current = Cursors.Default

End Try

End Sub

end class

"Juanma" escribió en el mensaje
news:uEtHS3A$

OLEDB (ADO)


"" escribió en el mensaje
news:uqpo4mA$

Que tipo de conexion estas usando en el informe??
"Juanma" escribió en el mensaje
news:ONvaQi$%

Tengo una duda sobre Crystal Reports

En una aplicacion vb.net 2005 creo un informe donde me muestra una
tabla de la base de datos.

El problema es que cada vez que abro el informe de Crystal, este me
pide que le ponga la contraseña y usuario de la base de datos.Alguien
sabe como deshabilitar esta opcion?

Gracias

Pero la base de datos es SQL???, Tiene usuario y password la instancia a la
que intentas acceder???
"Juanma" escribió en el mensaje
news:u8$IvEO$

Lo he intentado pero no lo debo tener muy claro porque no me funciona. Me
puedes pasar un ejemplo?
Yo lo que hago es una conexion ado y la conecto con crystal. El unico
problema es que me pregunta el usuario y password de la base de datos.


"" escribió en el mensaje
news:OgjmVyD$

Yo uso esta clase para hacer esto. Si tienes alguna duda comentamela



Public Class cla_crystal

Dim crUsername As String

Dim crPassword As String

Dim crServidor As String

Dim crBaseDatos As String

Public Sub Print(ByVal crReport As ReportDocument, ByVal
SettingsImpresora As Printing.PrinterSettings)

Dim crSections As Sections

Dim crSection As Section

Dim crReportObjects As ReportObjects

Dim crReportObject As ReportObject

Dim crSubreportObject As SubreportObject

Dim crSubreportDocument As ReportDocument

Dim crDatabase As Database

Dim crTables As Tables

Dim crTable As Table

Dim crTableLogOnInfo As TableLogOnInfo

Dim crConnectioninfo As ConnectionInfo

Try

Cursor.Current = Cursors.WaitCursor

crConnectioninfo = New ConnectionInfo

With crConnectioninfo

.ServerName = crServidor

.UserID = crUsername

.Password = crPassword

.DatabaseName = crBaseDatos

End With

crDatabase = crReport.Database

crTables = crDatabase.Tables

For Each crTable In crTables

crTableLogOnInfo = crTable.LogOnInfo

crTableLogOnInfo.ConnectionInfo = crConnectioninfo

crTable.ApplyLogOnInfo(crTableLogOnInfo)

crTable.Location = crConnectioninfo.DatabaseName & ".dbo." &
crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)

Next

crSections = crReport.ReportDefinition.Sections

For Each crSection In crSections

crReportObjects = crSection.ReportObjects

For Each crReportObject In crReportObjects

If crReportObject.Kind = ReportObjectKind.SubreportObject Then

crSubreportObject = CType(crReportObject, SubreportObject)

crSubreportDocument =
crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)

crDatabase = crSubreportDocument.Database

crTables = crDatabase.Tables

For Each crTable In crTables

With crConnectioninfo

.ServerName = crServidor

.UserID = crUsername

.Password = crPassword

.DatabaseName = crBaseDatos

End With

crTableLogOnInfo = crTable.LogOnInfo

crTableLogOnInfo.ConnectionInfo = crConnectioninfo

crTable.ApplyLogOnInfo(crTableLogOnInfo)

crTable.Location = crConnectioninfo.DatabaseName & ".dbo." &
crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)

Next

End If

Next

Next

crReport.PrintOptions.PrinterName = SettingsImpresora.PrinterName

crReport.PrintToPrinter(1, False, 0, 0)

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical)

Cursor.Current = Cursors.Default

End Try

End Sub

end class

"Juanma" escribió en el mensaje
news:uEtHS3A$

OLEDB (ADO)


"" escribió en el mensaje
news:uqpo4mA$

Que tipo de conexion estas usando en el informe??
"Juanma" escribió en el mensaje
news:ONvaQi$%

Tengo una duda sobre Crystal Reports

En una aplicacion vb.net 2005 creo un informe donde me muestra una
tabla de la base de datos.

El problema es que cada vez que abro el informe de Crystal, este me
pide que le ponga la contraseña y usuario de la base de datos.Alguien
sabe como deshabilitar esta opcion?

Gracias