Private Sub GetMacData()

        Dim StopOracle As Boolean
        Dim PC_Model As Object
        Dim Modelcounter As Integer
        Dim Valgte_PC_Model As String
        Dim AntalPCModeller As String


        'Holdes på 0 - Der tilføjes automatisk nedenfor
        AntalPCModeller = 0


        '--------------------Tilføj Nye PC-Modeller her----------'
        '----------Modellen skal også skrives nede i Else If statement----------'
        Dim PC_Model_1 As String
        PC_Model_1 = "X240 Thinkpad"
        AntalPCModeller = AntalPCModeller + 1
        Dim PC_Model_2 As String
        PC_Model_2 = "X250 Thinkpad"
        AntalPCModeller = AntalPCModeller + 1
        Dim PC_Model_3 As String
        PC_Model_3 = "X260 Thinkpad"
        AntalPCModeller = AntalPCModeller + 1
        Dim PC_Model_4 As String
        PC_Model_4 = "T440S Thinkpad"
        AntalPCModeller = AntalPCModeller + 1
        Dim PC_Model_5 As String
        PC_Model_5 = "T450S Thinkpad"
        AntalPCModeller = AntalPCModeller + 1
        Dim PC_Model_6 As String
        PC_Model_6 = "T460S Thinkpad"
        AntalPCModeller = AntalPCModeller + 1
        Dim PC_Model_7 As String
        PC_Model_7 = "T470S Thinkpad"
        AntalPCModeller = AntalPCModeller + 1

        '----------EKSEMPEL----------'

        'Dim PC_Model_8 As String
        'PC_Model_8 = "T480S Thinkpad"
        'AntalPCModeller = AntalPCModeller + 1





        'Forbindelse til Maconomy's Oracle database etableres med credentials
        Dim oradb As String = ";User Id=PWCAsset;Password=37YtuScgQ3OrR3HxPVVd;Data Source=maconomy-prod/UNICODE;"
        Dim conn As New OracleConnection(oradb)


        'CMD er den process der håndterer læsningen af data i databasen
        Dim cmd As New OracleCommand
        conn.Open()

        'Counter bruges for at holde loop kørende indtil alle modeller har været igennem
        Modelcounter = 1
        Do
            StopOracle = False
            If Modelcounter = 1 Then
                Valgte_PC_Model = PC_Model_1
            ElseIf Modelcounter = 2 Then
                Valgte_PC_Model = PC_Model_2
            ElseIf Modelcounter = 3 Then
                Valgte_PC_Model = PC_Model_3
            ElseIf Modelcounter = 4 Then
                Valgte_PC_Model = PC_Model_4
            ElseIf Modelcounter = 5 Then
                Valgte_PC_Model = PC_Model_5
            ElseIf Modelcounter = 6 Then
                Valgte_PC_Model = PC_Model_6
            ElseIf Modelcounter = 7 Then
                Valgte_PC_Model = PC_Model_7
                '----------EKSEMPEL----------'
                ' ElseIf Modelcounter = 8 Then
                ' Valgte_PC_Model = PC_Model_8





            End If



            cmd.Connection = conn

            'Dette er hvad der hives fra databasen PWCAssetView som indeholder informationer om pc'er
            cmd.CommandText = "select Description from PWCAssetView where Description = '" & Valgte_PC_Model & "' and Responsible = 'DKITLager'"
            cmd.CommandType = CommandType.Text
            Dim dr As OracleDataReader = cmd.ExecuteReader()


            'Dette loop kører alle entries for den valgte pc model igennem, indtil der ikke er flere, derefter fejler forbindelsen og loop'et exiter
            Dim counter As Integer
            counter = 0
            Do
                dr.Read()
                Try
                    PC_Model = dr.Item("Description")
                    counter = counter + 1
                Catch ex As Exception
                    dr.Dispose()

                    StopOracle = True

                    datatable_Lager.Rows.Add(Valgte_PC_Model, counter)
                End Try

                'Når der ikke er flere entires forlades loop
                If StopOracle = True Then
                    Exit Do
                End If

            Loop

            'For at næste pc model skal igennem loop laves en +1 på Modelcounteren
            Modelcounter = Modelcounter + 1

            'Der tjekkes på om alle PC-modellerne har været igennem - Hvis ja skal loopet exit
            If Modelcounter = AntalPCModeller + 1 Then
                Exit Do
            End If

        Loop

        conn.Dispose()

    End Sub


End Class