Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ConnectingToRemoteSQLServerViaIP

Status
Not open for further replies.

jfrost10

Programmer
Jun 3, 2001
2,004
CA
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

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top