Problem changing SQL data source at runtime with VB6 and CR XI

Question

Hello All,
We have several VB6 programs using CR XI and are able to pass a DSN to change data source with Access DB that works just fine.
We are using similar code in another program to change the data source in an SQL DB and get an error... Failed to Open the Connection.
This is a sample of what works with Access but not SQL DB:
Dim crxApplication As New CRAXDRT.Application
Public Report As CRAXDRT.Report
Global DSN_STRING
DSN_STRING = "DSN = JC Crystal Reports"
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Set Report = crxApplication.OpenReport(App.Path & "\Test11.rpt", 1)
'change location of each table in report
For Each crxDatabaseTable In Report.Database.Tables
        crxDatabaseTable.Location = DSN_STRING
Next crxDatabaseTable
FormCrystal.Show vbModal
We have tried other things from the web, still get error.
Any help would be greatly appreciated.
C Reid

Answer 1

Hi Carole,
When using SQL types you need more than just the DSN name. CR does keep the password in the report file and all SQL types are usually password protected.
Try this simple code:
First log onto the server:
rpt.database.LogOnServerEx("crdb_odbc.dll, pServerName, [pDatabaseName], [pUserID], [pPassword], [pServerType], [pConnectionString])
The ConnectionString is the complete line. Run in debug mode and display what the reprot is using and you can see the format it requires.
Once logged on now you can set the location for each table:
'report connection properties
        With rpt.Database.Tables(1)
            .ConnectionProperties("User ID").Value = "sa"
            .ConnectionProperties("Password").Value = "YourPassword"
            .ConnectionProperties("Data Source Name").Value = "Your DSN Name"
            '.ConnectionProperties("Data Source Name").Value = "ServerName" ' can be used if specifying a new connection
            .ConnectionProperties("Database").Value = "Northwind"
        End With
        Set rpt.Database.Tables(1).Location = "Northwind.dbo.CustOrderHist"
I'm only using one table so easy enough to create the loop or use for all...
Thank you
Don