How to connect to Cisco Information Server

Below is the code to connect Cisco Information Server and extract data:

Sub Cisco_connect()

 Dim Target_DB As String

 Dim Userid As String

 Dim Password As String

 Dim i As Integer

'''' Below Can be parameterized ‘‘‘‘

        Target_DB = "EMPINFO"

        Userid = "user"

        Password = "password"

                ''''' setting the required objects below' ''''

                Set connection = CreateObject("ADODB.Connection")

                connection.CommandTimeout = 3000

          ''' Cisco db connection string '''

                connection.Open "Driver=Cisco Information Server 7.0;DSN Name=" & Target_DB & ";Host=%HostName%; Port=%port%;uid=" & Userid & ";pwd=" & Password & ";Domain=%domain%;Datasource=%datasource%"

                

                Set Objrecordset = CreateObject("ADODB.Recordset")  

                StrQuery = " select * from EMPINFO.EMP  "

               '''' Recordset start''''

                Objrecordset.Open StrQuery, connection

                For i = 1 To Objrecordset.Fields.Count

                     ThisWorkbook.Worksheets("result").Cells(2, i).Value = Objrecordset.Fields(i - 1).Name

                Next

                     ThisWorkbook.Worksheets("result").Cells(3, 1).CopyFromRecordset Objrecordset

            ''''closing the connection ''''

                Objrecordset.Close

                connection.Close

 

           ThisWorkbook.Worksheets("result").Activate

           ThisWorkbook.Worksheets("result").Select

           ThisWorkbook.Worksheets("result").Range("A1").Select

     

    End Sub

   

 

 Read More: