- Requerimiento : Llamar a Un Reporte Crystal desde Vb, Cambiando el
DSN, o sea Usar una Bd distinta a la Asignada Cuando se creó el
Reporte
- Problema : Sólo Funcionaba con la base de Datos Indicada en
Modo Diseño

- Solución :

Se Debe Reemplazar Esta Instrucción

REPORTE1.Connect = "dsn=" & DSN_SQL & ";dsq=" & BASE_DATOS_SQL &
";uid=sa" & ";pwd=it"

Por Estas Lineas


REPORTE1.RetrieveDataFiles
REPORTE1.RetrieveLogonInfo
Dim x
I = 0
Do While True
REPORTE1.DataFiles(I) = BASE_DATOS_SQL & Mid(REPORTE1.DataFiles(I),
InStr(1, REPORTE1.DataFiles(I), ".", vbTextCompare))
I = I + 1
If REPORTE1.DataFiles(I) = "" Then Exit Do
Loop
For x = 0 To I - 1
REPORTE1.LogonInfo(x) = "dsn=" & DSN_SQL & ";dsq=" & BASE_DATOS_SQL
& ";uid=sa" & ";pwd=it" & ";"
Next