crystal con vb.net conexion a sqlserver
Publicado por zamora (2 intervenciones) el 31/08/2006 22:02:04
Hola
tengo un problema y es que no quiero que crystal se conecte a la base de datos en sqlserver por medio de la integrated security ... si no que desde vb.net 2003 le manda la información de la conexión, lo que he visto en la Web es que ha sido para vb.net 2005 lo que no me sirve ya que utilizo vb.net 2003..
Lo que pasa es yo le mando los parámetros de conexión pero no me los respeta, el código es el siguiente si alguien me puede ayudar..
Gracias
Dim crReportDocument As prueba
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crtableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo
crReportDocument = New prueba
crConnectionInfo = New ConnectionInfo
crConnectionInfo.ServerName = "server"
crConnectionInfo.DatabaseName = "base"
crConnectionInfo.UserID = "usuario"
crConnectionInfo.Password = "password"
' Obtain a reference to the tables
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables
' Loop through all the tables and set the
' logon information
For Each crTable In crTables
crtableLogOnInfo = crTable.LogOnInfo
crtableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crtableLogOnInfo)
Next crTable
CrystalReportViewer1.ReportSource = crReportDocument
tengo un problema y es que no quiero que crystal se conecte a la base de datos en sqlserver por medio de la integrated security ... si no que desde vb.net 2003 le manda la información de la conexión, lo que he visto en la Web es que ha sido para vb.net 2005 lo que no me sirve ya que utilizo vb.net 2003..
Lo que pasa es yo le mando los parámetros de conexión pero no me los respeta, el código es el siguiente si alguien me puede ayudar..
Gracias
Dim crReportDocument As prueba
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crtableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo
crReportDocument = New prueba
crConnectionInfo = New ConnectionInfo
crConnectionInfo.ServerName = "server"
crConnectionInfo.DatabaseName = "base"
crConnectionInfo.UserID = "usuario"
crConnectionInfo.Password = "password"
' Obtain a reference to the tables
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables
' Loop through all the tables and set the
' logon information
For Each crTable In crTables
crtableLogOnInfo = crTable.LogOnInfo
crtableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crtableLogOnInfo)
Next crTable
CrystalReportViewer1.ReportSource = crReportDocument
Valora esta pregunta


0