ASP.NET I / Datakontroller / Øvelse 7 i VS.NET - 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 VS.NET i VB

aspx filen

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Ovelse7.aspx.vb" Inherits="Udvikling.Ovelse7"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>Ovelse7</title>
  <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
  <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
 </HEAD>
 <body>
  <form id="Form1" method="post" runat="server">
   <asp:datagrid id="DataGrid1" runat="server" GridLines="Horizontal" CellPadding="3" BackColor="White"
    EnableViewState="False" BorderStyle="None" BorderWidth="1px" BorderColor="#E7E7FF">
    <FooterStyle forecolor="#4A3C8C" backcolor="#B5C7DE"></FooterStyle>
    <HeaderStyle font-bold="True" forecolor="#F7F7F7" backcolor="#4A3C8C"></HeaderStyle>
    <PagerStyle horizontalalign="Right" forecolor="#4A3C8C" backcolor="#E7E7FF" mode="NumericPages"></PagerStyle>
    <SelectedItemStyle font-bold="True" forecolor="#F7F7F7" backcolor="#738A9C"></SelectedItemStyle>
    <AlternatingItemStyle backcolor="#F7F7F7"></AlternatingItemStyle>
    <ItemStyle forecolor="#4A3C8C" backcolor="#E7E7FF"></ItemStyle>
   </asp:datagrid>
  </form>
 </body>
</HTML>

codebehind

Imports System.Data
Imports System.Data.OleDb

Public Class Ovelse7
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("stopur.mdb") + ";Persist Security Info=False"
        Dim CommandText As String = "select * from tblAktiviteter"

        Dim myConnection As New OleDbConnection(ConnectionString)
        Dim myCommand As New OleDbCommand(CommandText, myConnection)

        myConnection.Open()

        DataGrid1.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
        DataGrid1.DataBind()

    End Sub

End Class