Imports System.Data
Imports System.Data.OleDb
 
Public Class pc_lookup
 
    Private con As New OleDb.OleDbConnection
    Private strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
      "Source=C:\Freibage\WatchGuard.mdb;" & "Jet OLEDB:database Password=xy;"
    Private pcID As String
 
    Private Sub pc_lookup_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Try
            Dim DSIP As New DataSet
 
            con.ConnectionString = strCon
 
            Dim i As Integer
 
            Dim oledbadapter As OleDb.OleDbDataAdapter
            Dim maxCount As Integer
            Dim IPliste(i) As Object
            oledbadapter = New OleDb.OleDbDataAdapter("SELECT IP FROM pc", con)
 
            con.Open()
 
            oledbadapter.Fill(DSIP, "IP")
            maxCount = DSIP.Tables("IP").Rows.Count
            MessageBox.Show(Me, "Maximaler Count: " + maxCount.ToString)
            For i = 0 To maxCount - 1
                ReDim Preserve IPliste(i)
                IPliste(i) = DSIP.Tables("IP").Rows(i).Item(0)
            Next
            For i = 0 To IPliste.Length - 1
                Dim DSID As New DataSet
 
                oledbadapter = New OleDb.OleDbDataAdapter("SELECT pcID FROM " _
                & "pc WHERE " _
                & "IP ='" & IPliste(i) _
                & "'", con)
 
                oledbadapter.Fill(DSID, "pcID")
                If DSID.Tables("pcID").Rows.Count = 0 Then
                    pcID = DSID.Tables("pcID").Rows(0).Item(0).ToString
                Else
                    pcID = DSID.Tables("pcID").Rows(0).Item(0).ToString
                    'MsgBox("ID: " + pcID.ToString)
                End If
            Next
            clb_lookup.DataSource = IPliste
 
        Catch ex As Exception
            MsgBox("Fehler: " + ex.ToString)
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        pc_history.Show()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        pc_inv.Show()
    End Sub
End Class