ASP.NET I / Datavalidering / Øvelse 6 i web-matrix og VB

ASP.NET fjernundervisningskursus

- Vil du gerne på kursus NU?

- Vil du gerne lære i dit eget tempo?

- Har du ikke tid til at tage på kursus ude i byen?

Så køb et kursus i ASP.NET som fjernundervisning på www.it-fjernundervisning.dk

Kodeeksempel fra Webmatrix i VB

<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

    ' Insert page code here
    '
    Dim dtStart, dtSlut, dtTemp as DateTime
    Dim dtTotalTid as TimeSpan
    
    Sub Page_Load()
        If Not Page.IsPostBack Then
    
            ' Databind the filter dropdown on the first request only
            ' (viewstate will restore these values on subsequent postbacks).
    
            ' TODO: update the ConnectionString and CommandText values for your application
            Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\fam-ostergaard.dk\db\stopur.mdb;Persist Security Info=False"
            Dim CommandText As String = "select intAktivitetsID as ID, txtBeskrivelse as Beskrivelse from tblAktiviteter"
    
    
            Dim myConnection As New OleDbConnection(ConnectionString)
            Dim myCommand As New OleDbCommand(CommandText, myConnection)
    
            ' TODO: Update the DataTextField value
            drpAktivitet.DataTextField = "Beskrivelse"
    
            myConnection.Open()
    
            drpAktivitet.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
            drpAktivitet.DataBind()
    
            ' insert an "All" item at the beginning of the list
            drpAktivitet.Items.Insert(0, "-- Vlg en aktivitet --")
    
        End If
        lblKonsulent.Text = txtKonsulent.Text
        lblBeskrivelse.Text = txtBeskrivelse.Text
        lblAfdeling.Text = rbtAfdeling.SelectedItem.Value
        lblFaktura.Text = chkFaktura.Checked
        lblKorsel.Text = chkKorsel.Checked
        lblAktivitet.Text = drpAktivitet.SelectedItem.Value
    End sub
    
    Sub btnAction_Click(sender As Object, e As EventArgs)
        If btnAction.Text = "Start" Then
            btnAction.Text = "Stop"
            btnPause.Visible = True
            dtStart = Now()
            lblStart.Text = dtStart
            lblBesked.Text = "Uret krer - og blev startet "&dtStart
        Else
            btnAction.Text = "Start"
            btnPause.Visible = False
            dtSlut  = Now()
            lblSlut.Text = dtSlut
            dtTotalTid = dtSlut.Subtract(lblStart.Text)
            If lblTotal.Text = "" Then
                dtTemp = #00:00:00#
            Else
                dtTemp = lblTotal.Text
            End if
            lblTotal.Text = dtTemp.Add(dtTotalTId)
            lblBesked.Text = "Uret er stoppet - og krte "&lblTotal.Text
        End if
    End Sub
    
    Sub btnPause_Click(sender As Object, e As EventArgs)
    
        If lblBesked.Text = "Uret holder pause" Then
            lblStart.Text = Now()
            lblBesked.Text = "Uret krer igen!"
        Else
            lblBesked.Text = "Uret holder pause"
            dtTotaltid = Now().Subtract(lblStart.Text)
            If lblTotal.Text = "" Then
                dtTemp = #00:00:00#
            Else
                dtTemp = lblTotal.Text
            End if
            lblTotal.Text = dtTemp.Add(dtTotalTid)
        End if
    End Sub

</script>
<html>
<head>
</head>
<body>
    ? 
    <form runat="server">
        <h1>Et super stopur!! 
        </h1>
        <p>
            <table>
                <tbody>
                    <tr>
                        <td>
                            Projekt/aktivitet</td>
                        <td>
                            <asp:DropDownList id="drpAktivitet" runat="server" AutoPostBack="True">
                                <asp:ListItem Value="Grafisk design">Grafisk design</asp:ListItem>
                                <asp:ListItem Value="ASP.NET udvikling">ASP.NET udvikling</asp:ListItem>
                                <asp:ListItem Value="Diverse r&#229;dgivning">Diverse r&#229;dgivning</asp:ListItem>
                            </asp:DropDownList>
                        </td>
                    </tr>
                    <tr>
                        <td>
                            Konsulent:</td>
                        <td>
                            <asp:TextBox id="txtKonsulent" runat="server" Width="341px" Font-Names="Verdana"></asp:TextBox>
                            <asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ErrorMessage="SKAL udfyldes" Display="Dynamic" ControlToValidate="txtKonsulent"></asp:RequiredFieldValidator>
                        </td>
                    </tr>
                    <tr>
                        <td valign="top">
                            Beskrivelse: 
                        </td>
                        <td>
                            <asp:TextBox id="txtBeskrivelse" runat="server" Width="339px" Font-Names="Verdana" Height="70px" TextMode="MultiLine"></asp:TextBox>
                        </td>
                    </tr>
                    <tr>
                        <td valign="top">
                            Afdeling 
                        </td>
                        <td>
                            <asp:RadioButtonList id="rbtAfdeling" runat="server" RepeatDirection="Horizontal">
                                <asp:ListItem Value="Grafik" Selected="True">Grafik</asp:ListItem>
                                <asp:ListItem Value="Teknik">Teknik</asp:ListItem>
                                <asp:ListItem Value="Ledelse">Ledelse</asp:ListItem>
                            </asp:RadioButtonList>
                        </td>
                    </tr>
                    <tr>
                        <td valign="top">
                            Faktura&nbsp;</td>
                        <td>
                            <asp:CheckBox id="chkFaktura" runat="server"></asp:CheckBox>
                        </td>
                    </tr>
                    <tr>
                        <td valign="top">
                            Krsel</td>
                        <td>
                            <asp:CheckBox id="chkKorsel" runat="server"></asp:CheckBox>
                        </td>
                    </tr>
                </tbody>
            </table>
        </p>
        <p>
            <asp:Button id="btnAction" onclick="btnAction_Click" runat="server" Text="Start"></asp:Button>
            &nbsp; 
            <asp:Button id="btnPause" onclick="btnPause_Click" runat="server" Text="Pause" Visible="False"></asp:Button>
        </p>
        <p>
            <asp:Label id="lblBesked" runat="server"></asp:Label>
        </p>
        <h2>Resultater: 
        </h2>
        <p>
            Projekt/aktivitet: <asp:Label id="lblAktivitet" runat="server"></asp:Label>
        </p>
        <p>
            Konsulent: <asp:Label id="lblKonsulent" runat="server"></asp:Label>
        </p>
        <p>
            Beskrivelse: <asp:Label id="lblBeskrivelse" runat="server"></asp:Label>
        </p>
        <p>
            Afdeling: <asp:Label id="lblAfdeling" runat="server"></asp:Label>
        </p>
        <p>
            Faktura: <asp:Label id="lblFaktura" runat="server"></asp:Label>
        </p>
        <p>
            Krsel: <asp:Label id="lblKorsel" runat="server"></asp:Label>
        </p>
        <p>
            Start tid: <asp:Label id="lblStart" runat="server"></asp:Label>
        </p>
        <p>
            Slut tid: <asp:Label id="lblSlut" runat="server"></asp:Label>
        </p>
        <p>
            Total tid: <asp:Label id="lblTotal" runat="server"></asp:Label>
        </p>
    </form>
</body>
</html>