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
            TextBox1.ResetText()
 
            Dim Datum As String
 
            Datum = DateTimePicker1.Value.Day & "." & _
              DateTimePicker1.Value.Month & "." & DateTimePicker1.Value.Year
            'MsgBox(Datum)
            TextBox2.Text = Datum
 
            con.ConnectionString = strCon
 
            con.Open()
            Dim sql As String = "SELECT * FROM usrhis WHERE Datum = ?"
            Dim cmd As New OleDb.OleDbCommand(sql, con)
            cmd.Parameters.Add("@Datum", OleDbType.DBDate, 12, "Datum").Value = _
              Datum
            cmd.CommandType = CommandType.Text
            cmd.ExecuteNonQuery()
 
            Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
            Do While (dr.Read())
                TextBox1.AppendText(dr("UserID"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("User"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Datum"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Uhrzeit"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Admin"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Fehlschlag"))
                TextBox1.AppendText(vbCrLf)
            Loop
            dr.Close()
            con.Close()
 
        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
 
    Private Sub usr_lookup_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
 
            Dim Datum As String
 
            Datum = DateTimePicker1.Value.Day & "." & _
              DateTimePicker1.Value.Month & "." & DateTimePicker1.Value.Year
            'MsgBox(Datum)
            TextBox2.Text = Datum
 
            con.ConnectionString = strCon
 
            con.Open()
            Dim sql As String = "SELECT * FROM usrhis WHERE Datum = ?"
            Dim cmd As New OleDb.OleDbCommand(sql, con)
            cmd.Parameters.Add("@Datum", OleDbType.DBDate, 12, "Datum").Value = _
              Datum
            cmd.CommandType = CommandType.Text
            cmd.ExecuteNonQuery()
 
            Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
            Do While (dr.Read())
                TextBox1.AppendText(dr("UserID"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("User"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Datum"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Uhrzeit"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Admin"))
                TextBox1.AppendText("     ")
                TextBox1.AppendText(dr("Fehlschlag"))
                TextBox1.AppendText(vbCrLf)
            Loop
            dr.Close()
            con.Close()
 
        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