Tak.
Nu er jeg lige ved at være der. Hvis det er ok (sig til hvis jeg skal lave et nyt spm), vil jeg gerne bede om hjælp til at komme det sidste stykke, og jeg vil meget gerne høre om de kritiske ting, der er i den måde, det er lavet på indtil nu.
Mit problem er at der ikke kommer noget i min dropdownlist.
DAL:
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Namespace DAL
Public Class DataHelperClass
Private Function ConnectingString() As String
Return "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\inetpub\wwwroot\database\database.mdb"
End Function
Public Function GetConnection() As OleDbConnection
Dim Connection As New OleDbConnection(ConnectingString())
Connection.Open()
GetConnection = Connection
End Function
End Class
Public Class RSDAfdeling
Private _id As Integer
Private _Afdelingsnr As String
Private _Afdelingsnavn As String
Public Property id() As Integer
Get
Return _id
End Get
Set(ByVal value As Integer)
_id = value
End Set
End Property
Public Property Afdelingsnr() As String
Get
Return _Afdelingsnr
End Get
Set(ByVal value As String)
_Afdelingsnr = value
End Set
End Property
Public Property Afdelingsnavn() As String
Get
Return _Afdelingsnavn
End Get
Set(ByVal value As String)
_Afdelingsnavn = value
End Set
End Property
Public Sub New()
Call MyClass.New(0, "", "")
End Sub
Public Sub New(ByVal id As Integer, ByVal Afdelingsnr As String, ByVal Afdelingsnavn As String)
_id = id
_Afdelingsnr = Afdelingsnr
_Afdelingsnavn = Afdelingsnavn
End Sub
End Class
Public Interface IRSDAfdelingDB
Function GetRSDAfdeling() As RSDAfdeling
Function GetAllRSDAfdeling() As ArrayList
End Interface
Public Class RSDAfdelingerDB
Implements IRSDAfdelingDB
Public Function GetRSDAfdeling() As RSDAfdeling Implements IRSDAfdelingDB.GetRSDAfdeling
Dim DBConn As DataHelperClass = New DataHelperClass
Dim Conn As OleDbConnection = DBConn.GetConnection()
Dim SqlCmd As New OleDbCommand("SELECT id, afdelingsnr, afdelingsnavn FROM Afdelinger WHERE id = 12", Conn)
Dim Reader As OleDbDataReader = SqlCmd.ExecuteReader
Dim objRSDAFdeling As RSDAfdeling = New RSDAfdeling
While Reader.Read
objRSDAFdeling.id = Convert.ToInt32(Reader("id"))
objRSDAFdeling.Afdelingsnr = Convert.ToString(Reader("afdelingsnr"))
objRSDAFdeling.Afdelingsnavn = Convert.ToString(Reader("afdelingsnavn"))
End While
Reader.Close()
Reader = Nothing
Conn.Close()
Conn = Nothing
Return objRSDAFdeling
End Function
Public Function GetAllRSDAfdeling() As ArrayList Implements IRSDAfdelingDB.GetAllRSDAfdeling
Dim DBConn As DataHelperClass = New DataHelperClass
Dim Conn As OleDbConnection = DBConn.GetConnection()
Dim SqlCmd As New OleDbCommand("SELECT id, afdelingsnr, afdelingsnavn FROM Afdelinger", Conn)
Dim Reader As OleDbDataReader = SqlCmd.ExecuteReader
Dim objListRSDAfdeling As ArrayList
While Reader.Read
Dim objRSDAFdeling = New RSDAfdeling
objRSDAFdeling.id = Convert.ToInt32(Reader("id"))
objRSDAFdeling.Afdelingsnr = Convert.ToString(Reader("afdelingsnr"))
objRSDAFdeling.Afdelingsnavn = Convert.ToString(Reader("afdelingsnavn"))
objListRSDAfdeling.Add(objRSDAFdeling)
End While
Reader.Close()
Reader = Nothing
Conn.Close()
Conn = Nothing
Return objListRSDAfdeling
End Function
End Class
End Namespace
BLL:
Imports Microsoft.VisualBasic
Imports DAL
Namespace BLL
Public Class AfdelingManager
Dim ObjDAL As IRSDAfdelingDB = New RSDAfdelingerDB()
Public Function GetAllRSDAfdeling() As ArrayList
'Laver Cache af arraylist
Dim RSDAfdelingerSource As ArrayList = CType(HttpContext.Current.Cache("AllRSDAfdelingCache"), ArrayList)
If RSDAfdelingerSource Is Nothing Then
RSDAfdelingerSource = ObjDAL.GetAllRSDAfdeling()
Else
HttpContext.Current.Cache("AllRSDAfdelingCache") = RSDAfdelingerSource
End If
Return RSDAfdelingerSource
End Function
End Class
End Namespace
Codebehind:
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports BLL
Partial Class _Default
Inherits System.Web.UI.Page
Sub Page_Load()
Dim DropDownListCache As ArrayList = CType(Cache.Get("AllRSDAfdelingCache"), ArrayList)
DropDownList1.DataSource = DropDownListCache
DropDownList1.DataValueField = "Afdelingsnr"
DropDownList1.DataTextField = "Afdelingsnavn"
DropDownList1.DataBind()
End Sub
End Class
ASPX-fil:
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="true" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Import Namespace="System" %>
<asp:Content ID="Content2" ContentPlaceHolderID="MainContentHolder" Runat="Server">
Forside - default<br />
<p>
<asp:DropDownList ID="DropDownList1" DataTextField="AfdelingsNavn" runat="server">
</asp:DropDownList>
<p>
</p>
</asp:Content>
Håber på hurtig hjælp :-)
Slettet bruger
Slettet bruger
Opret
Preview
