Is there anything special I have to include when connecting to a remote sql server? Here's my scenario:
A report is created using a local database(design db). The VB application will use a remote sql server(production). The VB form with the CR viewer is passed the report name, and the following code is used:
Set Report = globalCrystalReportApplication.OpenReport(globalPath & globalCrystalReport & ".rpt"
'If the intCentral = 1, then it will set the datasource
'to the SQL server.
If intCentral = 1 Then
Report.Database.SetDataSource ("Provider=SQLOLEDB;Data
Source=gblSQLServerTCP"
Else
Report.Database.SetDataSource
("Provider=Microsoft.Jet.OLEDB.3.51;Data
Source=c:\localdb.mdb"
End If
Dim lngIndex As Long
Set crxRTables = Report.Database.Tables
For lngIndex = 1 To crxRTables.Count
For Each crxRTable In crxRTables
Set crxRTable = crxRTables.Item(lngIndex)
If intCentral = 1 Then
crxRTable.SetLogOnInfo
gblSQLServerTCP, "DatabaseName",
gblSQLServerDBUserID, gblSQLServerDBPassword
crxRTable.Location = "DatabaseName.dbo." &
crxRTable.Name
Else crxRTable.SetLogOnInfo "C:\LocalDB.mdb", , , "Password" crxRTable.SetTableLocation "C:\LocalDB.mdb",crxRTable.Name, ""
End If
lngIndex = lngIndex + 1
Next crxRTable
Next
Is there any other step I need to connect to a remote DB?
Thanks,
Jack
A report is created using a local database(design db). The VB application will use a remote sql server(production). The VB form with the CR viewer is passed the report name, and the following code is used:
Set Report = globalCrystalReportApplication.OpenReport(globalPath & globalCrystalReport & ".rpt"
'If the intCentral = 1, then it will set the datasource
'to the SQL server.
If intCentral = 1 Then
Report.Database.SetDataSource ("Provider=SQLOLEDB;Data
Source=gblSQLServerTCP"
Else
Report.Database.SetDataSource
("Provider=Microsoft.Jet.OLEDB.3.51;Data
Source=c:\localdb.mdb"
End If
Dim lngIndex As Long
Set crxRTables = Report.Database.Tables
For lngIndex = 1 To crxRTables.Count
For Each crxRTable In crxRTables
Set crxRTable = crxRTables.Item(lngIndex)
If intCentral = 1 Then
crxRTable.SetLogOnInfo
gblSQLServerTCP, "DatabaseName",
gblSQLServerDBUserID, gblSQLServerDBPassword
crxRTable.Location = "DatabaseName.dbo." &
crxRTable.Name
Else crxRTable.SetLogOnInfo "C:\LocalDB.mdb", , , "Password" crxRTable.SetTableLocation "C:\LocalDB.mdb",crxRTable.Name, ""
End If
lngIndex = lngIndex + 1
Next crxRTable
Next
Is there any other step I need to connect to a remote DB?
Thanks,
Jack