[P4L]

OK, so I'm a n00b when it comes to ASP.net, and I inherited a website that was built in ASP.net with VB backcode. Right now I'm trying to get a piece of code that was already written to work.

Here's the ASP code

      <table >
            <tr>
                <td class="style5">
                    <asp:Label ID="lblProperty" runat="server" Text="Property:"></asp:Label>
                </td>
                <td class="style6">
                    &nbsp;</td>
                <td class="style4">
                                <asp:DropDownList ID="cbxProperty" runat="server" Width="250px">
                                </asp:DropDownList>
                </td>
            </tr>

Here's the VB code to load the information. I've checked the SQL directly against the database, and it works, so I can't figure out where the issue is.

  Private Sub LoadProperties()
        Dim db As New ScoreCardDataContext
        Dim ds As New DataSet()

        Dim Properties = From p In db.zProperties
                      Where p.Active = True
                      Select p


        Dim command As SqlCommand = db.GetCommand(Properties)
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(command)
        adapter.Fill(ds)

        Me.cbxProperty.DataSource = ds
        Me.cbxProperty.DataTextField = "Property"
        Me.cbxProperty.DataValueField = "PropertyID"
        Me.cbxProperty.DataBind()


    End Sub

    Public Sub CheckforProperty()
        Dim db As New ScoreCardDataContext
        Dim ds As New DataSet()

        Dim UserPropertyList = From P In db.PropertyPortfolios
                               Where P.PersonID = intPersonID
                               Select P

        Dim command As SqlCommand = db.GetCommand(UserPropertyList)
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(command)
        adapter.Fill(ds)

        If ds.Tables(0).Rows.Count = 0 Then
            LoadProperties()
            Me.pnlSelectProperty.Visible = True

        Else
            Me.pnlSelectProperty.Visible = False
        End If
    End Sub

Thanks

[mrburnttoast]

I don't see a sql connection. Where are you opening the db to query it?

[P4L]

That's what the ScoreCardDataContext connection is. I was able to resolve this without help.

[Kilorn]

Care to share the solution with us so that it might help others in the future?

This post has been edited by Kilorn: 12 June 2012 - 01:08 PM

[P4L]

Kilorn, on 12 June 2012 - 04:08 PM, said:

Care to share the solution with us so that it might help others in the future?

In all honesty, I don't know what got it to work. I changed the back-end VB code from:

Private Sub LoadProperties()
      Dim db As New ScoreCardDataContext
      Dim ds As New DataSet()

      Dim Properties = From p In db.zProperties
                    Where p.Active = True
                    Select p


      Dim command As SqlCommand = db.GetCommand(Properties)
      Dim adapter As SqlDataAdapter = New SqlDataAdapter(command)
      adapter.Fill(ds)

      Me.cbxProperty.DataSource = ds
      Me.cbxProperty.DataTextField = "Property"
      Me.cbxProperty.DataValueField = "PropertyID"
      Me.cbxProperty.DataBind()
End Sub

To:

    Public Sub LoadProperties()
        Dim db As New ScoreCardDataContext
        Dim ds As New DataSet()
        Dim Properties = From p In db.zProperties
                      Where p.Active = True
                      Select p
                      Order By p.Property

        Dim command As SqlCommand = db.GetCommand(Properties)
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(command)
        adapter.Fill(ds)

        Me.cbxProperty.DataSource = ds
        Me.cbxProperty.DataTextField = "Property"
        Me.cbxProperty.DataValueField = "PropertyID"
        Me.cbxProperty.DataBind()


        Dim newPropertyItem As New ListItem
        newPropertyItem.Text = "Select One"
        newPropertyItem.Value = 0
        Me.cbxProperty.Items.Insert(0, newPropertyItem)


    End Sub

and it worked. Only thing I changed what that I added the new ListItem section on the bottom of the sub. The ASP page still all original.