Thread: Binding data...

hi

i'm gonna start binding data myself instead of using the DataSource control.
so this is my thread to get help on all my upcoming issues

Please remember i'm a n00b, so no .Net jargon, simple terms please

first off I want to populate a Repeater control with a list of records, i have
created all the necessary code for a list in my App_code under the relevant
layers.

so first of all my aspx page:

Code:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="projects.aspx.vb" Inherits="view_projects" MasterPageFile="Default.master" %>
<asp:content id="projects" contentplaceholderid="ContentContainer" runat="server">
    <div>
        <asp:Repeater ID="rpProjectsList" runat="server">
        </asp:Repeater>
    </div>
</asp:content>

my aspx.vb:

Code:

Imports Keith.ProjectManager.BLL

Partial Class view_projects
    Inherits System.Web.UI.Page

    Sub Page_Load()
        If Not IsPostBack Then
            dsProjectList()
        End If
    End Sub

    Public Sub dsProjectList()
        Dim dsProjectList As New DataList
        dsProjectList.DataSource = ProjectsManager.GetList()
        dsProjectList.DataBind()
    End Sub

End Class

is that correct? or did i miss something?
Shem

I have built all that already..

here's my code for projects list:
DAL:

Code:

Public Shared Function GetList() As ProjectsList
            Dim tempList As ProjectsList = Nothing
            'Using
            Dim myConnection As MySqlConnection = New MySqlConnection(myConfig.myConnection)
            Try
                Dim myCommand = New MySqlCommand(QueryProjectsDB.Projects(), myConnection)
                myConnection.Open()
                ' Using
                Dim myReader As MySqlDataReader = myCommand.ExecuteReader
                Try
                    If myReader.HasRows Then
                        tempList = New ProjectsList
                        While myReader.Read
                            tempList.Add(FillDataRecord(myReader))
                        End While
                    End If
                    myReader.Close()
                Finally
                    CType(myReader, IDisposable).Dispose()
                End Try
            Finally
                CType(myConnection, IDisposable).Dispose()
            End Try
            Return tempList
        End Function

Private Shared Function FillDataRecord(ByVal myDataRecord As IDataRecord) As Projects
            Dim myProjects As Projects = New Projects
            myProjects.Idkey = myDataRecord.GetInt32(myDataRecord.GetOrdinal("idkey"))
            myProjects.TheDate = myDataRecord.GetDateTime(myDataRecord.GetOrdinal("pdate"))
            myProjects.Name = myDataRecord.GetString(myDataRecord.GetOrdinal("name"))
            myProjects.ProjectNumber = myDataRecord.GetString(myDataRecord.GetOrdinal("number"))
            myProjects.Description = myDataRecord.GetString(myDataRecord.GetOrdinal("description"))
            myProjects.UserID = myDataRecord.GetInt32(myDataRecord.GetOrdinal("userid"))
            myProjects.Edited = myDataRecord.GetInt32(myDataRecord.GetOrdinal("edited"))
            Return myProjects
        End Function

BOL:

Code:

Public Class Projects

        Private _idkey As Nullable(Of Integer)
        Private _edited_id As Nullable(Of Integer)
        Private _user_id As Nullable(Of Integer)
        Private _date As Nullable(Of Date)
        Private _name As String = String.Empty
        Private _number As String = String.Empty
        Private _description As String = String.Empty

        <DataObjectFieldAttribute(True, True, False)> _
        Public Property Idkey() As Integer
            Get
                Return _idkey
            End Get
            Set(ByVal value As Integer)
                _idkey = value
            End Set
        End Property

        Public Property Edited() As Integer
            Get
                Return _edited_id
            End Get
            Set(ByVal value As Integer)
                _edited_id = value
            End Set
        End Property

        Public Property UserID() As Integer
            Get
                Return _user_id
            End Get
            Set(ByVal value As Integer)
                _user_id = value
            End Set
        End Property
		
        Public Property TheDate() As Date
            Get
                Return _date
            End Get
            Set(ByVal value As Date)
                _date = value
            End Set
        End Property
		
        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
		End Property
		
        Public Property ProjectNumber() As String
            Get
                Return _number
            End Get
            Set(ByVal value As String)
                _number = value
            End Set
        End Property
		
        Public Property Description() As String
            Get
                Return _description
            End Get
            Set(ByVal value As String)
                _description = value
            End Set
        End Property
		
    End Class

In my BOL i have a collections folder:

Code:

Public Class ProjectsList

        Inherits List(Of Projects)

        Public Sub New()
        End Sub

    End Class

BLL:

Code:

<DataObjectMethod(DataObjectMethodType.Select, True)> _
        Public Shared Function GetList() As ProjectsList
            Return ProjectsDB.GetList()
        End Function

So as far as i thought, all i need to do is call BLL - GetList()?

I believe you should create an instance of ProjectsList first and fill it with data using the GetList BLL function.

Code:

Dim ProjectsList As New ProjectsList
ProjectsList = BLL.GetList()
 
repeaterid.DataSource = ProjectsList
repeaterid.DataBind()

Then you can use the properties of a Projects class (Idkey, Edited etc.) in your repeater.

my aspx:

Code:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="projects.aspx.vb" Inherits="view_projects" MasterPageFile="Default.master" %>
<asp:content id="projects" contentplaceholderid="ContentContainer" runat="server">
    <div>
        <asp:Repeater ID="rpProjectList" runat="server">
            <ItemTemplate>
                <p>
                    Test
                </p>
            </ItemTemplate>
        </asp:Repeater>
    </div>
</asp:content>

aspx.vb:

Code:

Imports Keith.ProjectManager.BLL
Imports Keith.ProjectManager.BO

Partial Class view_projects
    Inherits System.Web.UI.Page

    Sub Page_Load()
        'If Not IsPostBack Then
        Dim ProjectsList As New ProjectsList
        ProjectsList = ProjectsManager.GetList()

        rpProjectList.DataSource = ProjectsList
        rpProjectList.DataBind()
        'End If
    End Sub

End Class

so it should repeat the text "Test"? but it doesn't

Yes. It should repeat Test for however many items are in your List.

Could you try setting AutoEventWireup to True, or remove it in your page? I'm not sure if you set it to false whether you have to explicitly define all the page events.

Just a quick check.

working now
thanx a stack RR