View Single Post
 
Old 12-30-2015, 03:30 PM
QEDDave QEDDave is offline
Newcomer
 
Join Date: Jun 2010
Posts: 3
Default Unable to save data

I can't get this to Save ... any ideas??

Code:
    Private Sub btnConsole_Click(sender As Object, e As EventArgs) Handles btnConsole.Click
        Dim ds As DataSet = New DataSet()
        Dim tblPicture As DataTable
        Dim tblNewPics As DataTable
        Dim tblPictureCount As Integer
        Dim i As Integer

        Dim conn As SqlConnection = New SqlConnection("Server=R850-PC\SQLEXPRESS2012;database=NewParts;Integrated Security=True;Persist Security Info=False")
        Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Picture Where IsNew = 1", conn)
        da.Fill(ds, "Picture")
        tblPicture = ds.Tables("Picture")
        tblPictureCount = tblPicture.Rows.Count
        tblPictureCount = tblPictureCount - 1

        'SOURCE Picture table to the screen.
        Console.WriteLine("Source Table tblPicture has " & tblPictureCount.ToString & " Rows")

        For i = 0 To tblPictureCount
            Console.WriteLine("Row(" & i.ToString & ") = " & tblPicture.Rows(i)(3))
        Next

        '********************* ADD TO NEW TABLE DATA **************************************************************************************

        Dim da2 As SqlDataAdapter = New SqlDataAdapter("Select * from Picture_Temp", conn)
        da2.Fill(ds, "Picture_Temp")
        tblNewPics = ds.Tables("Picture_Temp")
        tblNewPics = tblPicture.Clone

        For i = 0 To tblPictureCount
            tblNewPics.ImportRow(tblPicture.Rows(i))
            Dim dr2 As DataRow = tblNewPics.Rows(i)
            dr2.SetAdded()
        Next
        da2.Update(ds.Tables("Picture_Temp"))
        tblNewPics.AcceptChanges()

        '******************* DEBUG ... check new database table
        Console.WriteLine()
        Console.WriteLine("Destination TABLE has " & tblNewPics.ToString & " Rows")
        For i = 0 To tblPictureCount
            Console.WriteLine("Row(" & i.ToString & ") = " & tblNewPics.Rows(i)(3))
        Next
        Console.WriteLine("RowState = " & tblNewPics.Rows(i - 1).RowState.ToString)
        Console.ReadLine()

        txtMessages.Text = "Done"

    End Sub

Last edited by Flyguy; 12-31-2015 at 03:44 AM. Reason: Please start your own threads for asking questions and use the [code][/code] tags
Reply With Quote