<%@ Page Language="vb" AutoEventWireup="false" Codebehind="EditData.
aspx.vb" Inherits="FotoWebSite.EditData"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<HTML>
<HEAD>
    <title>EditData</title> 
    <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR"> 
    <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
    <meta content="JavaScript" name="vs_defaultClientScript">
    <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"> 
    <LINK href="/FotowebSite/Styles.css" type="text/css" rel="StyleSheet">
</HEAD> 
<body background="/FotoWebSite\images\newmark8.jpg" MS_POSITIONING=
"GridLayout"> 
    <form id="Form1" method="post" runat="server"> 
        <IMG style="Z-INDEX: 101; LEFT: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 64px" height="64" alt="" src="/FotoWebSite\images\stripe.jpg" width=
"1024"> 
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; 
FONT-SIZE: x-small; Z-INDEX: 115; LEFT: 232px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 400px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning=
"FlowLayout">Preview
           Picture</DIV>
        <asp:button id="btnVerwijder" style="Z-INDEX: 113; LEFT: 440px; POSITION: absolute; TOP: 352px" runat="server" Width="88px" Height="26px" BackColor="SteelBlue" ForeColor="White" Font-Names="Arial" BorderColor="AliceBlue" BorderStyle="Solid" Text="Delete"></asp:button>
<asp:textbox id="txtBestandsNaam" style="Z-INDEX: 111; LEFT: 344px; POSITION: absolute; TOP: 320px" runat="server" Width="498px" Height="19px" BackColor="AliceBlue" ForeColor="SteelBlue" Font-Names="Arial" BorderColor=
"Teal" BorderWidth="1px" BorderStyle="Solid" CssClass="invoer"></asp:textbox>
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 110; LEFT: 232px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 320px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning="FlowLayout">File</DIV> 
        <DIV style="DISPLAY: inline; FONT-SIZE: medium; Z-INDEX: 102; LEFT: 336px; WIDTH: 232px; COLOR: #6699cc; FONT-FAMILY: Arial; POSITION: absolute; TOP: 0px; HEIGHT: 42px" ms_positioning="FlowLayout">&nbsp;Edit,Udate
           and Delete&nbsp;</DIV> 
        <asp:listbox id="lstNamen" style="Z-INDEX: 103; LEFT: 24px; POSITION: absolute; TOP: 88px" runat="server" Width="152px" Height="476px" BackColor="AliceBlue" ForeColor="SteelBlue" AutoPostBack="True" CssClass=
"invoer"></asp:listbox>
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 104; LEFT: 232px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; 
        POSITION: absolute; TOP: 136px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning="FlowLayout">Category</DIV> 
        <asp:dropdownlist id="cboCategorie" style="Z-INDEX: 105; LEFT: 624px; POSITION: absolute; TOP: 136px" runat="server" Width="245px" Height="16px" BackColor="AliceBlue" ForeColor="SteelBlue" Font-Names="Arial" AutoPostBack=
"True" Visible="False" CssClass="invoer"> 
            <asp:ListItem Value="0">&lt;Select a Category&gt;
</asp:ListItem>
       </asp:dropdownlist> 
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 106; LEFT: 232px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 168px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning="FlowLayout">Name</DIV> 
        <asp:textbox id="txtNaam" style="Z-INDEX: 107; LEFT: 344px; POSITION: absolute; TOP: 168px" runat="server" Width="245px" Height="19px" BackColor="AliceBlue" ForeColor="SteelBlue" Font-Names="Arial" BorderColor=
"Teal" BorderWidth="1px" BorderStyle="Solid" CssClass="invoer"></asp:textbox> 
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 108; LEFT: 232px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 200px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning="FlowLayout">Note</DIV>
        <asp:textbox id="txtBeschrijving" style="Z-INDEX: 109; LEFT: 344px; POSITION: absolute; TOP: 200px" runat="server" Width="245px" Height="106px" BackColor="AliceBlue" ForeColor="SteelBlue" Font-Names="Arial" BorderColor="Teal" BorderWidth="1px" BorderStyle="Solid" TextMode="MultiLine" CssClass="invoer"> </asp:textbox><asp:button id="btnWijzig" style="Z-INDEX: 112; LEFT: 344px; POSITION: absolute; TOP: 352px" runat="server" Width="88px" Height="26px" BackColor="SteelBlue" ForeColor="White" Font-Names="Arial" BorderColor="AliceBlue" BorderStyle="Solid" Text="Update"></asp:button><asp:
placeholder id="PlaceHolder1" runat="server"></asp:placeholder><asp:textbox id="txtCat" style="Z-INDEX: 116; LEFT: 344px; POSITION: absolute; TOP: 136px" runat="server" Width="245px" Height="19px" BackColor="AliceBlue" ForeColor=
"SteelBlue" Font-Names="Arial" BorderColor="Teal" BorderWidth="1px" BorderStyle="Solid" Enabled="False" CssClass="invoer"></asp:textbox><asp:text
box id="txtID" style="Z-INDEX: 117; LEFT: 344px; POSITION: absolute; TOP: 104px" runat="server" Width="32px" Height="19px" BackColor="AliceBlue" ForeColor="SteelBlue" Font-Names="Arial" BorderColor="Teal" BorderWidth="1px" BorderStyle="Solid" Enabled="False" CssClass="invoer"></asp:textbox> 
        <DIV style="DISPLAY: inline; FONT-WEIGHT: lighter; FONT-SIZE: x-small; Z-INDEX: 118; LEFT: 232px; TEXT-TRANSFORM: none; WIDTH: 112px; COLOR: white; FONT-STYLE: normal; FONT-FAMILY: Arial; POSITION: absolute; TOP: 104px; HEIGHT: 16px; FONT-VARIANT: small-caps" ms_positioning="FlowLayout">Id</DIV> 
        <asp:ImageButton id="btnWijzigCat" style="Z-INDEX: 119; LEFT: 592px; POSITION: absolute; TOP: 136px" runat="server" Width="24px" Height="22px" ImageUrl="/FotoWebSite\images\Replace.g if "></asp:ImageButton> 
        <asp:Image id="imgPreview" style="Z-INDEX: 120; LEFT: 344px; POSITION: absolute; TOP: 400px" runat="server" Width="224px" Height="152px" ImageUrl="/FotoWebSite/images/wpaback.jpg"></asp:Image></form> 
 </body> 
</HTML>
ΪӦĺ̨롣
    #Region "Imports"

    Imports System.Data.SqlClient 
    Imports System.Data.OleDb 
    Imports System.IO 
    Imports System.Drawing 
    Imports System.Drawing.Imaging 

    #End Region 

    Public Class EditData 

    #Region "Controls"

    Inherits System.Web.UI.Page 
    Protected WithEvents txtBeschrijving As System.Web.UI.WebControls.
TextBox 
    Protected WithEvents txtNaam As System.Web.UI.WebControls.TextBox 
    Protected WithEvents cboCategorie As System.Web.UI.WebControls.
DropDownList 
    Protected WithEvents btnWijzig As System.Web.UI.WebControls.Button 
    Protected WithEvents btnVerwijder As System.Web.UI.WebControls.
Button 
    Protected WithEvents PlaceHolder1 As System.Web.UI.WebControls.
PlaceHolder 
    Protected WithEvents txtBestandsNaam As System.Web.UI.WebControls.
TextBox 
    Protected WithEvents imgPreview As System.Web.UI.WebControls.Image Protected WithEvents txtCat As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtID As System.Web.UI.WebControls.TextBox 
    Protected WithEvents btnWijzigCat As System.Web.UI.WebControls.
ImageButton 
    Protected WithEvents lstNamen As System.Web.UI.WebControls.ListBox 

#End Region 

#Region "Web Form Designer Generated Code "

    'Web Form DesignerҪ.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub Initialize
Component()

    End Sub 

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 
        'CODEGEN: Web Form DesignerҪ 
        'Ҫô༭޸.
        InitializeComponent()

    End Sub 

#End Region 

#Region "Events" 

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

        if Session("SV_USER_ID") = Nothing Then
           'Uitvoeren ReDirect naar
            Response.Redirect("member.aspx") 
        Endif

          if  Not IsPostBack Then 
              Call _InitListNamen() 
              Call _InitCboCatNaam() 
        Endif 

    End Sub 

    Private Sub lstNamen_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstNamen.SelectedIndexChanged 

        'Opbouwen SQLDataReader op basis van query 
        Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
        Dim cnn As New OleDbConnection(connstr)
        Dim cmdView As New OleDbCommand()
        Dim cat As String 

        cmdView.CommandText = "SELECT * FROM tblfoto WHERE Id=" & _ 
                                  lstNamen.SelectedItem.Value 
        cmdView.Connection = cnn
        cnn.Open()
        Dim dbDR As OleDb.OleDbDataReader = cmdView.ExecuteReader 

        While dbDR.Read() 

        txtID.Text = dbDR("Id".ToString) 
        txtNaam.Text = dbDR("Naam".ToString) 
        txtBeschrijving.Text = dbDR("Beschrijving".ToString) 
        txtBestandsNaam.Text = dbDR("Filename".ToString) 
        txtCat.Text = dbDR("Categorie".ToString) 
    End While
    imgPreview.ImageUrl = txtBestandsNaam.Text
    cnn.Close() 
End Sub 

Private Sub cboCategorie_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCategorie.SelectedIndexChanged 
    txtCat.Text = cboCategorie.SelectedItem.Text 
    cboCategorie.Visible = False 
End Sub 

Private Sub btnWijzig_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWijzig.Click 

    Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
    Dim cnn As New OleDbConnection(connstr) 
    Dim cmdUpdate As New OleDbCommand() 
    Dim strCateGorie, strNaam, strBeschrijving, strFileName As String 

    strCateGorie = txtCat.Text 
    strNaam = txtNaam.Text 
    strBeschrijving = txtBeschrijving.Text 
    strFileName = txtBestandsNaam.Text 

    cmdUpdate.CommandText = "Update tblfoto Set " _
        & "Categorie='" & strCateGorie & "', " _    
        & "Naam='" & strNaam & "', " _    
        & "Beschrijving='" & strBeschrijving & "', " _     
        & "Filename='" & strFileName & "' " _     
        & "WHERE Id=" & txtID.Text 


    cmdUpdate.Connection = cnn
    cmdUpdate.Connection.Open()
    cmdUpdate.ExecuteNonQuery()
    cnn.Close() 

    lstNamen.Items.Clear()
    Call _InitListNamen() 

End Sub 

Private Sub btnVerwijder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerwijder.Click 

    Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb")  
    Dim cnn As New OleDbConnection(connstr)  
    Dim cmdDel As New OleDbCommand()  

    cmdDel.CommandText = "DELETE FROM tblfoto WHERE  Id=" & _ txtID.Text 


    cmdDel.Connection = cnn
    cmdDel.Connection.Open() 
    cmdDel.ExecuteNonQuery()
    cnn.Close()

    lstNamen.Items.Clear()
    Call _InitListNamen() 

    txtID.Text = "" txtCat.Text = "" 
    txtNaam.Text = "" 
    txtBeschrijving.Text = "" 
    txtBestandsNaam.Text = "" 

End Sub 
Private Sub btnWijzigCat_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnWijzigCat.Click 
    cboCategorie.Visible = True
    End Sub 

#End Region 

#Region "Procedures" 

    Private Sub _InitCboCatNaam() 

    Dim strSQL As String 
    Dim objItem As ListItem 

    strSQL = "select CategorieNaam from tblCategorie" 

    Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
    Dim cnn As New OleDbConnection(connstr) 
    Dim cmd As New OleDbCommand(strSQL, cnn) 
    cnn.Open() 
    Dim dr As OleDbDataReader = cmd.ExecuteReader

    if dr.Read = Nothing Then 
       Exit Sub 
    Endif 

    While dr.Read 

        objItem = New ListItem() 
        objItem.Text = dr.Item("CategorieNaam") 
        Me.cboCategorie.Items.Add(objItem) 

    End While 

    cnn.Close() 
    cnn.Dispose() 

End Sub 

Private Sub _InitListNamen() 
    Dim strSQL As String 
    Dim objItem As ListItem 

    strSQL = "select Id, Naam from tblfoto" 

    Dim connstr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("dbImages.mdb") 
    Dim cnn As New OleDbConnection(connstr) 
    Dim cmd As New OleDbCommand(strSQL, cnn) 
    cnn.Open() 
    Dim dr As OleDbDataReader = cmd.ExecuteReader

     if dr.Read = Nothing Then 
        Exit Sub 
    Endif 

    While dr.Read 

            objItem = New ListItem()

            objItem.Text = dr.Item("Naam")
            objItem.Value = dr.Item("Id")


            Me.lstNamen.Items.Add(objItem) 

        End While 

        cnn.Close()
        cnn.Dispose()
    End Sub

#End Region 

End Class 
