Imports System.Data
Imports System.Data.OleDb
 
Public Class usr_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 btn_his_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_his.Click
        Try
        Catch ex As Exception
            MsgBox("Fehler: " + ex.ToString)
        Finally
            usr_his_lookup.Show()
        End Try
    End Sub
 
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
 
        Try
 
            Dim Datum As String
            Dim i As Integer
            Dim p As Integer
            Dim maxCount As Integer
 
            Datum = DateTimePicker1.Value.Day & "." & _
              DateTimePicker1.Value.Month & "." & DateTimePicker1.Value.Year
            MsgBox(Datum)
            TextBox2.Text = Datum
 
            Dim usr As New DataSet
 
            con.ConnectionString = strCon
 
            Dim oledbadapter As OleDb.OleDbDataAdapter
 
            oledbadapter = New OleDb.OleDbDataAdapter("SELECT * FROM usrhis" & _
              "WHERE Datum = '" & Datum & "'", con)
            con.Open()
            MsgBox(oledbadapter.SelectCommand.CommandText.ToString)
 
            oledbadapter.Fill(usr, "usrname")
            maxCount = usr.Tables("usrname").Rows.Count
            MessageBox.Show(Me, "Maximaler Count: " + maxCount.ToString)
            For i = 0 To maxCount - 1
                For p = 0 To 6
                    TextBox1.AppendText(usr.Tables("usrname").Rows(i).Item(p) & _
                      "     ")
                Next
                TextBox1.AppendText(vbCrLf)
            Next
 
        Catch ex As Exception
            MessageBox.Show(Me, "Fehler aufgetreten : " + ex.ToString)
        Finally
            If con IsNot Nothing Then
                con.Close()
            End If
        End Try
    End Sub
 
End Class