Imports System.Web.UI.HtmlControls
Imports System.Data
Imports System.Data.OleDb
 
Partial Class ASPPages_Default
    Inherits System.Web.UI.Page
    Dim adpPlatz As OleDbDataAdapter = New Data.OleDb.OleDbDataAdapter()
    Dim tabPlatz As DataTable = New Data.DataTable()
    Dim rowPlatz As DataRow
    Dim connPlatzSelect As OleDbConnection = New Data.OleDb.OleDbConnection()
    Dim connPlatzUpdate As OleDbConnection = New Data.OleDb.OleDbConnection()
    Dim cmdPlatzSelect As OleDbCommand = New Data.OleDb.OleDbCommand()
    Dim cmdPlatzUpdate As OleDbCommand = New Data.OleDb.OleDbCommand()
    Dim rowCount As Integer
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        If Not Session.Item("Benutzer") Is Nothing Then
            lbl_Anmeldung.Text = "Sie sind angemeldet als:" & CType( _
              Session.Item("Benutzer"), String)
        Else
            lbl_Anmeldung.Text = "Sie sind angemeldet als Unbekannt"
        End If
        connPlatzSelect.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + Server.MapPath( _
          "../db/Ambulanz.mdb")
        connPlatzUpdate.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + Server.MapPath( _
        "../db/Ambulanz.mdb")
 
        cmdPlatzSelect.CommandText = "SELECT * FROM [quy_Platz] WHERE Benutzer" & _
          "= ?"
        cmdPlatzSelect.Parameters.AddWithValue("@Benutzer", Session("Benutzer"))
        cmdPlatzSelect.CommandType = CommandType.Text
        cmdPlatzSelect.Connection = connPlatzSelect
 
        adpPlatz.SelectCommand = cmdPlatzSelect
        adpPlatz.Fill(tabPlatz)
        connPlatzSelect.Close()
        rowCount = 0
        adpPlatzDataBind()
    End Sub
    Protected Function adpPlatzDataBind()
        rowPlatz = tabPlatz.Rows(rowCount)
        TextBox1.Text = rowPlatz("Platz_Id").ToString
        TextBox2.Text = CDate(rowPlatz("Platz_DateIn"))
        TextBox3.Text = CDate(rowPlatz("Platz_DateVal"))
        DropDownList1.SelectedIndex = CInt(rowPlatz("Platz_TagId"))
        DropDownList2.SelectedIndex = CInt(rowPlatz("Platz_TimeId"))
        lblPos.Text = CStr(rowCount + 1)
        lblSize.Text = tabPlatz.Rows.Count
    End Function
 
    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btnUpdate.Click
 
    End Sub
 
'Routinen zum Inkrementieren des Row-Index
    Protected Sub btnPrev_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btnPrev.Click
        If rowCount = 0 Then
            rowCount = 0
        Else
            rowCount -= 1
        End If
        adpPlatzDataBind()
    End Sub
 
    Protected Sub btnNext_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btnNext.Click
        If rowCount = tabPlatz.Rows.Count Then
            rowCount = tabPlatz.Rows.Count
        Else
            rowCount += 1
        End If
        adpPlatzDataBind()
    End Sub
End Class