Get Data from Datagrid

rstelma · September 20th, 2006, 05:42 PM

Hi All,

I have a datagrid that has one column built from a querystring. The datagrid also has a ddl in it. I want to use data in the datagrid to insert entries into a look up table that will be used to clean data that is being uploaded from Excel files. I saw some code in C# that used the headertext and a for loop to get the data I'm just not sure how to go about it in VB.

Here's the code to get the first column into the datagrid:

Code:

Dim CompsNot As Array

CompsNot = Split(_Comps, ", ")
Dim i As Integer
Dim Values As New ArrayList
For i = 0 To UBound(CompsNot)
    Values.Add(Replace(CompsNot(i), ",", ""))
Next
grdCompsNot.DataSource = Values
grdCompsNot.DataBind()

Here is the front page code where I'm also adding the ddl and calling a function to populate the ddl.

Code:

<asp:DataGrid ID="grdCompsNot" AutoGenerateColumns="False" Runat="server" class="datagrid" >
<Columns>
<asp:templatecolumn headertext="Bad Name">
<itemtemplate>
<%# Container.DataItem %>
</itemtemplate>
</asp:templatecolumn>
<asp:TemplateColumn HeaderText="Good Name">
<ItemTemplate>
<asp:DropDownList ID="ddlCompID" Runat="server"  DataTextField = "GoodName" DataValueField = "CompID" DataSource='<%# getCompID() %>' />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>

Any help would be greatly appreciated.

Thanks.

Richard

rstelma · September 20th, 2006, 07:04 PM

OK.

Since I already knew how to get data from a repeater, I changed the datagrid to a repeater and can now use the code below to access the data in the repeater.

Code:

    Protected Sub rptComponentAliases_ItemDataBound(ByVal s As Object, ByVal e As RepeaterItemEventArgs) Handles rptComponentAliases.ItemDataBound
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            Dim litCompAliasName As Literal = e.Item.FindControl("litCompAliasName")
            Dim ddlCompID As DropDownList = e.Item.FindControl("ddlCompID")
            Dim SQL As String = "SELECT CompID, CompName FROM Components WHERE Status = 1 ORDER BY CompName;"
            Dim oDA As New SqlDataAdapter(SQL, _oConn)
            Dim oDS As New DataSet
            oDA.Fill(oDS)
            litCompAliasName.Text = e.Item.DataItem
            ddlCompID.DataSource = oDS
            ddlCompID.DataTextField = "CompName"
            ddlCompID.DataValueField = "CompID"
            ddlCompID.DataBind()
            ddlCompID.Items.Insert(0, New ListItem("", 0))
        End If
    End Sub

    Protected Sub btnSave_Click(ByVal s As Object, ByVal e As EventArgs) Handles btnSave.Click
        Try
            _oConn.Open()
            For Each i As RepeaterItem In rptComponentAliases.Items
                Dim litCompAliasName As Literal = i.FindControl("litCompAliasName")
                Dim ddlCompID As DropDownList = i.FindControl("ddlCompID")
                If ddlCompID.SelectedValue > 0 Then
                    Dim SQL As String = "INSERT INTO ComponentAliases (CompID, CompAliasName, Status) VALUES (" & ddlCompID.SelectedValue & ", '" & litCompAliasName.Text & "', 1);"
                    Dim CMD As New SqlCommand(SQL, _oConn)
                    CMD.ExecuteNonQuery()
                End If
            Next
        Catch ex As Exception
        Finally
            _oConn.Close()
        End Try
    End Sub

Works like a champ.

Any comments are greatly appreciated.

Thanks,
Richard

carywhittier · September 25th, 2006, 11:28 PM

hey richard, im curious are you from Jacksonville FL and did you grow up near Phillips Highway?
peace
carywhittier.com

cwhittier