ASP.NET I / Databaser / Visning med datalist og repeater

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

Datavisning med Datalist kontrol

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<script runat="server">
  Sub Page_Load()
    Dim strConnection as String
    Dim strSQL as String
    Dim objConnection as OledbConnection
    Dim objCommand as OledbCommand
    Dim objDataReader as OledbDataReader
    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\stopur.mdb"
    objConnection = New OledbConnection(strConnection)
    objConnection.Open
    strSQL = "SELECT * FROM tblAktiviteter"
    objCommand = New OleDbCommand(strSQL, objConnection)
    objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
    dlData.DataSource = objDataReader
    dlData.DataBind()
  End Sub
</script>

<html>
  <head>
  </head>
  <body>
    <form runat="server">
      <ASP:DataList id="dlData" runat="server" RepeatDirection="Horizontal" RepeatColumns="2">
        <ItemTemplate>
          <div style="padding:15,15,15,15;font-size:10pt;font-family:Verdana">
          <div style="font:12pt verdana;color:darkred">
          <i><b><%# DataBinder.Eval(Container.DataItem, "txtBeskrivelse") %>
          </b></i></b> 
          </div>
          <br />
          <b>Aktivitets ID: </b><%# DataBinder.Eval(Container.DataItem, "intAktivitetsID") %>
          <br />
          <b>Projekt ID: </b><%# DataBinder.Eval(Container.DataItem, "intProjektID") %>
          <br />
          </div>
        </ItemTemplate>
      </ASP:DataList>
    </form>
  </body>
</html>

Se eksemplet

Datavisning med repeater kontrol og Access database

Eksempel:

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<script runat="server">
  Sub Page_Load()
    Dim strConnection as String
    Dim strSQL as String
    Dim objConnection as OledbConnection
    Dim objCommand as OledbCommand
    Dim objDataReader as OledbDataReader
    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\stopur.mdb"
    objConnection = New OledbConnection(strConnection)
    objConnection.Open
    strSQL = "SELECT * FROM tblAktiviteter"
    objCommand = New OleDbCommand(strSQL, objConnection)
    objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
    rptData.DataSource = objDataReader
    rptData.DataBind()
  End Sub
</script>
<html>
  <head>
  </head>
  <body>
    <form runat="server">
      <asp:Repeater id="rptData" runat="server">
        <HeaderTemplate>
          <table width="100%" style="font: 8pt verdana">
          <tr style="background-color:DFA894">
          <td>ID</td>
          <td>ProjektID</td>
          <td>Opgave</td></tr>
        </HeaderTemplate>
        <ItemTemplate>
          <tr style="background-color:FFECD8">
          <td><%# DataBinder.Eval(Container.DataItem, "intAktivitetsID") %></td>
          <td><%# DataBinder.Eval(Container.DataItem, "intProjektID") %></td>
          <td><%# DataBinder.Eval(Container.DataItem, "txtBeskrivelse") %></td></tr>
        </ItemTemplate>
        <FooterTemplate>
          </table>
        </FooterTemplate>
      </asp:Repeater>
    </form>
  </body>
</html>

Se eksemplet

"Manuel" datavisning

Eksempel 1:

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<script runat="server">
  Sub Page_Load()
    Dim strConnection as String
    Dim strSQL as String
    Dim objConnection as OledbConnection
    Dim objCommand as OledbCommand
    Dim objDataReader as OledbDataReader
    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\stopur.mdb"
    objConnection = New OledbConnection(strConnection)
    objConnection.Open
    strSQL = "SELECT * FROM tblAktiviteter"
    objCommand = New OleDbCommand(strSQL, objConnection)
    objDataReader = objCommand.ExecuteReader()
    Response.Write("<h2>Aktiviteter! - manuel visning</h2>")
    While (objDataReader.Read())
      Response.Write("AktivitetsID: "&CStr(objDataReader("intAktivitetsID"))&"<br/>")
      Response.Write("Beskrivelse: "&CStr(objDataReader("txtBeskrivelse"))&"<br/><br/>")
    End while
  End Sub
</script>

Se eksemplet

Øvelse 7

Prøv at lave en kontaktdatabase med passende informationer og præsenter indholdet med de forskellige kontroller.

Vi skal have etableret database grundlag til vores stopur.

Start med at etablere en stopursdatabase med en aktivitetstabel med felterne
- intAktivitetsID
- intProjektID
- txtAktivitetsTekst
- Fyld indhold i tabellen
- Lav en side, der viser indholdet fra tabellen - brug datagrid kontrollen -> Et eksempel
Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\stopur.mdb;Persist Security Info=False