How to modify dataset data?

[vertigo262]

Is this possible?

I'm trying to call a dataset, modify a value, and then put it back into a dataset.
I think this is possible but I'm doing something wrong

Any help would be greatly appreciated

attached is an image of the table and the code

 Public Function GetSideBannersDir() As DataSet
 
        Dim Conn As New SqlConnection(ConnectionString)
        Dim CmdSelect As New SqlCommand("GetSideBanners", Conn)
        CmdSelect.CommandType = CommandType.StoredProcedure
 
        Dim Da As New SqlDataAdapter(CmdSelect)
        Dim Ds As New DataSet
 
        'Fill the Dataset
        Try
            Da.Fill(Ds)
 
            Dim FormatImageURL As String = Ds.Tables("Banners").Rows(0)("ImageUrlField")
            Ds.Tables("Banners").Rows(0)("ImageUrlField") = "/Data" & FormatImageURL
 
 
            Context.Response.Write("<br><br>DB" & Ds.Tables(3).Rows(0)("ImageUrlField"))
            'Context.Response.End()
            Da.Fill(Ds, "Banners")
 
            Return Ds
 
 
 
        Catch ex As Exception
            'Throw New ApplicationException("Data Error")
        Finally
            Conn.Close()
        End Try
 
    End Function
 

[vertigo262]

thinking would be more like this.
need to loop through the table rows

Public Function GetSideBannersDir() As DataSet
 
        Dim Conn As New SqlConnection(ConnectionString)
        Dim CmdSelect As New SqlCommand("GetSideBanners", Conn)
        CmdSelect.CommandType = CommandType.StoredProcedure
 
        Dim Da As New SqlDataAdapter(CmdSelect)
        Dim Ds As New DataSet
 
        'Fill the Dataset
        Try
            Da.Fill(Ds)
 
            Dim i As Integer
            Dim rowcount As Integer = Ds.Tables(0).Rows.Count
            For i = 0 To rowcount - 1
                Dim FormatImageURL As String = Ds.Tables("Banners").Rows(i)("ImageUrlField")
                Ds.Tables("Banners").Rows(i)("ImageUrlField") = "/Data" & FormatImageURL
 
                Context.Response.Write("<br><br>DB" & Ds.Tables("Banners").Rows(i)("ImageUrlField"))
            Next i
 
 
            'Context.Response.End()
            Da.Update(Ds)
 
            Return Ds
 
 
 
        Catch ex As Exception
            Throw New ApplicationException("Data Error")
        Finally
            Conn.Close()
        End Try
 
    End Function
 

[vertigo262]

OK, this is cleaner, but still not working
Sigh

 Public Function GetSideBannersDir() As DataSet
 
        Dim Conn As New SqlConnection(ConnectionString)
        Dim CmdSelect As New SqlCommand("GetSideBanners", Conn)
        CmdSelect.CommandType = CommandType.StoredProcedure
 
        Dim Da As New SqlDataAdapter(CmdSelect)
        Dim Ds As New DataSet
 
        'Fill the Dataset
        Try
            Da.Fill(Ds)
 
            For Each dr As DataRow In Ds.Tables("Banners").Rows
 
                Dim FormatImageURL As String = ("ImageUrlField")
                dr("ImageUrlField") = "/Data" & FormatImageURL
 
            Next
 
            Da.Update(Ds)
 
            Return Ds
 
 
 
        Catch ex As Exception
            'Throw New ApplicationException("Data Error")
        Finally
            Conn.Close()
        End Try
 
    End Function
 

[vertigo262]

So confused,

Here is the recent code. everything is working, after the loop, it response writes the correct data.

but it's either not updating the dataset, or it's empty because when I call the dataset from a page, no data populates.

Public Function GetSideBannersDir() As DataSet
 
        Dim Conn As New SqlConnection(ConnectionString)
        Dim CmdSelect As New SqlCommand("GetSideBanners", Conn)
        CmdSelect.CommandType = CommandType.StoredProcedure
 
        Dim Da As New SqlDataAdapter(CmdSelect)
        Dim Ds As New DataSet
 
        'Fill the Dataset
        Try
            Da.Fill(Ds, "Banners")
 
            For Each dr As DataRow In Ds.Tables("Banners").Rows
 
                Dim FormatImageURL As String = dr("ImageUrlField")
                dr("ImageUrlField") = "/" + Context.Application("SysDataDir") & FormatImageURL
 
                Context.Response.Write("loop: " & dr("ImageUrlField"))
 
            Next
 
            Da.Update(Ds, "Banners")
 
            Return Ds
 
 
 
        Catch ex As Exception
            'Throw New ApplicationException("Data Error")
        Finally
            Conn.Close()
        End Try
 
    End Function