Pass de base access a reporte crystal

Prueba con esto

For i = 0 To reportDocument.DataSourceConnections.Count - 1

reportDocument.DataSourceConnections(i).SetConnection(Servidor, BaseDeDatos,
Usuario, Password)

Next i

Entiendo que es para SQL ...

Saludos Peni

"Fernando" escribió en el mensaje
news:uff4BN%

Hola grupo, gracias antes que nada. Mi pregunta es la siguiente:
¿como puedo pasarle la pass de la base de datos al informe?. Sucede que
cuando lo va a mostrar me aparece un cartel pidiendo el password de la
base de datos. Muchas gracias.

Fernando

Peni (Francisco) escribió:

Prueba con esto

For i = 0 To reportDocument.DataSourceConnections.Count - 1

reportDocument.DataSourceConnections(i).SetConnection(Servidor, BaseDeDatos,
Usuario, Password)

Next i

Entiendo que es para SQL ...

Hola, gracias. Es para access, pero estoy dandole vueltas. Muchas gracias.

Fernando

Esto no le he probado, pero mira a ver si va ...

Private Sub LogonToReport _
( ByVal database As String, _
ByVal ID As String, ByVal password As String)

Dim logonInfo As New TableLogOnInfo()
Dim table As Table

For Each table In Report.Database.Tables
logonInfo = Table.LogOnInfo
logonInfo.ConnectionInfo.DatabaseName = database
logonInfo.ConnectionInfo.UserID = ID
logonInfo.ConnectionInfo.Password = password

Table.ApplyLogOnInfo(logonInfo)
Next table
End Sub



Saludos Peni

"Fernando" escribió en el mensaje
news:uo7tAb%

Peni (Francisco) escribió:

Prueba con esto

For i = 0 To reportDocument.DataSourceConnections.Count - 1

reportDocument.DataSourceConnections(i).SetConnection(Servidor,
BaseDeDatos, Usuario, Password)

Next i

Entiendo que es para SQL ...

Hola, gracias. Es para access, pero estoy dandole vueltas. Muchas gracias.

Fernando

Hola, de esta forma:
reporte.SetDatabaseLogon("usuario", "pass")
Gracias
Saludos

Fernando

Peni (Francisco) escribió:

Esto no le he probado, pero mira a ver si va ...

Private Sub LogonToReport _
( ByVal database As String, _
ByVal ID As String, ByVal password As String)

Dim logonInfo As New TableLogOnInfo()
Dim table As Table

For Each table In Report.Database.Tables
logonInfo = Table.LogOnInfo
logonInfo.ConnectionInfo.DatabaseName = database
logonInfo.ConnectionInfo.UserID = ID
logonInfo.ConnectionInfo.Password = password

Table.ApplyLogOnInfo(logonInfo)
Next table
End Sub

Apuntado :-)


Saludos Peni

"Fernando" escribió en el mensaje
news:

Hola, de esta forma:
reporte.SetDatabaseLogon("usuario", "pass")
Gracias
Saludos

Fernando

Peni (Francisco) escribió:

Esto no le he probado, pero mira a ver si va ...

Private Sub LogonToReport _
( ByVal database As String, _
ByVal ID As String, ByVal password As String)

Dim logonInfo As New TableLogOnInfo()
Dim table As Table

For Each table In Report.Database.Tables
logonInfo = Table.LogOnInfo
logonInfo.ConnectionInfo.DatabaseName = database
logonInfo.ConnectionInfo.UserID = ID
logonInfo.ConnectionInfo.Password = password

Table.ApplyLogOnInfo(logonInfo)
Next table
End Sub