Change Connection TYPE in XI (NOT using CR Viewer)

Question

Post Author: bowlegtroy
CA Forum: Data Connectivity and SQL
Hi,
I'm using CR XI in a VB6 application to run .rpt files (they are also developed in XI) programmatically.  All of these reports are currently created using the Native Oracle Connection (HOW: Open Crystal XI, New Report, Create new connection, Oracle Server, enter data in Service name as found in TNS Names, uID, PWD).
At runtime, I'm changing the name of the server, UID and Pwd.  All of this works fine.
However, in order to make my program more flexible, I need to change the connection to be OLEDB instead of the native Oracle connection. 
So, my question is:
"How do I change the connection TYPE at runtime to be OLEDB?"
Or, if that cannot be done, then:
"How do I READ the connection type, and take the appropriate action?"
I have tried following the help files examples (for Crystal 9, clears throat loudly) that you find in the documentation online at BusinessObjects.com, but have not been successful to date.  Docs tried:
http://resources.businessobjects.com/support/communitycs/TechnicalPapers/cr_rdc9_connectionproperties.pdf
http://resources.businessobjects.com/support/communitycs/TechnicalPapers/cr_rdc_dbconnectivity.pdf
http://resources.businessobjects.com/support/communitycs/TechnicalPapers/logon_ocx.pdf
http://resources.businessobjects.com/support/communitycs/TechnicalPapers/cr_xi_connectivity_migration.pdf
Here is my existing VB6 code to connect and change the connections for each table.  Can someone help me change this to an OLEDB connection at RUNTIME?
Public DCMSapplication As CRAXDRT.Application 'Reference Required: "Crystal Reports ActiveX Designer Run Time Library [Version]"
'Recursive function that will call for sub reports found.Public Function resetCrystalSubReportConn(DCMSreport As CRAXDRT.Report, _  strServer, _  strUserID, _  strPassword, _  strReportNameOnly, _  ByVal lngReportID As Long, _  strPath As String) As Boolean      'Dim DCMSreport As Object 'CRAXDRT.Report  'Dim crParamDef As Object 'CRAXDRT.ParameterFieldDefinition  Dim crSecs As CRAXDRT.Sections  Dim crSec As CRAXDRT.Section  Dim crObjs As CRAXDRT.ReportObjects  Dim crSubRep As CRAXDRT.Report  'Dim crConInfo As Object 'CRAXDRT.ConnectionProperties    Dim strMessage As String  Dim i As Integer  Dim j As Integer
  On Error GoTo Connection_EH
'''''''''''''''''''''''''START: NEED TO REPLACE WITH DSN-LESS OR OLEDB CONNECTION'''''''''''''''''''''''''    ' Logon to the report tables  strMessage = "The connection to Oracle for "  RaiseEvent Status("Resetting the connection for each table in report " & strPath, 0, "", 0)  With DCMSreport.Database    For i = 1 To .Tables.Count      'CAUTION!  Designed for Oracle connections ONLY!      .Tables(i).ConnectionProperties.Item("Server") = strServer      .Tables(i).ConnectionProperties("User ID") = strUserID      .Tables(i).ConnectionProperties("Password") = strPassword    Next i  End With
'''''''''''''''''''''''''END: NEED TO REPLACE WITH DSN-LESS OR OLEDB CONNECTION'''''''''''''''''''''''''    ' Logon to the sub-reports tables  Set crSecs = DCMSreport.Sections  For i = 1 To crSecs.Count                     ' Loop through each section of the report    Set crSec = crSecs.Item(i)    Set crObjs = crSec.ReportObjects            ' The objects within the section    For j = 1 To crObjs.Count                   ' Look for a subreport in the section      If crObjs.Item(j).Kind = 5 Then 'crSubreportObject Then        ' Subreport found!        strMessage = "Resetting the connection for each table in subreport " & strPath        RaiseEvent Status(strMessage, 0, "", 0)        Set crSubRep = DCMSreport.OpenSubreport(crObjs.Item(j).SubreportName)                'Call function recursively        If FailureHasOccurred = False Then          resetCrystalSubReportConn crSubRep, strServer, strUserID, strPassword, strReportNameOnly, lngReportID, strPath        End If      End If    Next j  Next i  ExitTheProcedure:  resetCrystalSubReportConn = FailureHasOccurred  Exit Function
Connection_EH:  Call LogAnEvent(mADOConnJet.Connection, strMessage & strReportNameOnly & " failed.", "resetCrystalSubReportConn", Err.Number, Err.Description, lngReportID)  FailureHasOccurred = True  Resume ExitTheProcedure  End Function
Thanks!

Answer 1

The router is only able to show the 2.4Ghz and 5Ghz device statuses if they happen to be connected to the Greenwave or ActionTec router. Anything that is not directly associated with the Wi-Fi radio on the FiOS router will generally show up as a wired device, just because the router doesn't know if it sits behind a switch, behind a wireless bridge, or if it's actually a wireless device. All it knows is that the device ARPs and asked for an IP through DHCP.
For monitoring what devices are on what radio for the Apple AirPort, try Apple's AirPort Utility for OS X and Windows. The Network Map should allow you to select devices and view informtion on each device.