How to connect to Teradata and extract DB using VBA

 Hi Guys !!!

Below is the code to connect Teradata DB and Extract data:

Sub Teradata_connect()

  Dim Target_DB As String
  Dim Userid As String
  Dim Password As String
  Dim i As Integer
'''' This Can be parameterized  ''''

        Target_DB = "EMPINFO"
        Userid = "user"
        Password = "password"

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

   Set connection = CreateObject("ADODB.Connection")
   connection.CommandTimeout = 3000

          ''' Teradata db connection string '''
    connection.Open "DSN=" & strDB_Target & "; UID=" &      strDB_Target_UID & "; PWD=" & strDB_Target_PWD & ""

    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

Below is the result:

Read More :