Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.ComponentModel
 
 
 
Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtTime As System.Web.UI.WebControls.TextBox
    Protected WithEvents dgVorher As System.Web.UI.WebControls.DataGrid
    Protected WithEvents dgNachher As System.Web.UI.WebControls.DataGrid
    Protected WithEvents dgBuch As System.Web.UI.WebControls.DataGrid
 
 
#Region " Vom Web Form Designer generierter Code "
 
    'Dieser Aufruf ist für den Web Form-Designer erforderlich.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
 
    End Sub
 
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Init
        'CODEGEN: Diese Methode ist für den Web Form-Designer erforderlich
        'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
        InitializeComponent()
    End Sub
 
#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' Hier Benutzercode zur Seiteninitialisierung einfügen
        'If Not Page.IsPostBack Then
        txtTime.Text = Now.ToString
 
        'End If
    End Sub
 
 
 
 
    Public Class WebForm1
        Inherits System.Web.UI.Page
        Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
        Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
        Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
        Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
        Protected WithEvents txtTime As System.Web.UI.WebControls.TextBox
        Protected WithEvents dgVorher As System.Web.UI.WebControls.DataGrid
        Protected WithEvents dgNachher As System.Web.UI.WebControls.DataGrid
        Protected WithEvents dgBuch As System.Web.UI.WebControls.DataGrid
 
    End Class
 
    Private _sqlconnString As String = "server=(" & _
      "local);database=Intranet;UID=telefon_aend;PWD=telefon_aend"
    Private _sqlConn As New SqlConnection
    Private _sqlda As SqlDataAdapter
    Private _ds As New DataSet
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        _sqlConn.ConnectionString = _sqlconnString
 
        _sqlda = New SqlDataAdapter("Select* From tblSchreinereiTakt Where" & _
          "Uhrzeit>=@t1 And Uhrzeit<=@t2", _sqlConn)
        Dim cdt As DateTime = Now
        Dim cmd As SqlCommand = _sqlda.SelectCommand
        Dim prm As SqlParameter = cmd.Parameters.Add("@t1", SqlDbType.DateTime)
        prm.Value = cdt.AddMinutes(-10)
        prm = cmd.Parameters.Add("@t2", SqlDbType.DateTime)
        prm.Value = cdt.AddMinutes(10)
 
        _sqlda.Fill(_ds, "tblSchreinereiTakt")
        dgBuch.DataSource = _ds.Tables("tblSchreinereiTakt")
 
    End Sub
 
 
 
End Class