Question : Saving typed Dataset to SQL Server

I created a typed dataset against a sql 2008 server table (CheckListDetails) When I attempt to update the table, nothing happens.  I have included the code for the save button.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim drow As CheckListDetails.CheckListDetailsRow
        tmpSQL = sSQL & " WHERE CheckListID = " & Me.lblCheckListID.Text
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(tmpSQL, cnStr)
        adapter.Fill(CLD, "CheckListDetails")
        If Me.lblCheckListID.Text < 0 Then
            drow = CLD.CheckListDetails.NewCheckListDetailsRow
            drow.CLTypeID = Session("CLType")
            drow.DisplayText = Me.tbDisplayText.Text
            drow.DisplayOrder = Me.tbDisplayOrder.Text
            drow.NoteText = Me.tbNoteText.Text
            drow.Active = Me.cbActive.Checked
            drow.HasSub = Me.cbHasSub.Checked
            drow.AcceptChanges()
        Else
            For Each drow In CLD.CheckListDetails
                drow.CLTypeID = Session("CLType")
                drow.DisplayText = Me.tbDisplayText.Text
                drow.DisplayOrder = Me.tbDisplayOrder.Text
                drow.NoteText = Me.tbNoteText.Text
                drow.Active = Me.cbActive.Checked
                drow.HasSub = Me.cbHasSub.Checked
                drow.AcceptChanges()
            Next
        End If

        ResetControls()
        Me.Panel1.Visible = False
        gvCLDetails.DataBind()
    End Sub

Answer : Saving typed Dataset to SQL Server

Which version of excel are you using? You could try just selecting adjecent empty cells, rightsclick and select 'delete'. Then you choose 'shift cells up'.

For changes, paste the following formula in cell I2:

=IF(AND(EXACT(A:A;J:J);EXACT(B:B;K:K);EXACT(C:C;L:L);EXACT(D:D;M:M);EXACT(E:E;N:N);EXACT(F:F;O:O);EXACT(G:G;P:P);EXACT(H:H;Q:Q));"";"DIFFERENT!")

click cell I2, click the last cell in the I column so all cells in this column exept I1 are selected and press CTRL+D to copy this function to all selected cells. Now if left and right are different the I colum will state 'DIFFERENT!'

Random Solutions  
 
programming4us programming4us