Atualizando DataSets em camadas no .NET

Atualizando DataSets em camadas

Imagine um sistema windows simples, em camadas. Imaginemos uma tabela simples com um campo autonumeraç�o sendo exibida em uma grid. Um componente (pode ser uma classe, componente, etc) devolve um dataSet contendo os dados da tabela e recebe de volta o dataSet para fazer a atualizaç�o no servidor.

Esse trabalho em camadas gera diversos tipos de problemas, um dos principais � a recuperaç�o do id da autonumeraç�o. Em algumas situaç�es complexas a autonumeraç�o pode chegar a causar um grande desencontro. Que o valor do campo autonumeraç�o inserido no dataSet n�o bater� com o valor do banco, isso � esperado, mas existe a possibilidade de que o valor gerado pelo banco entre em conflito com algum valor j� existente no DataSet, gerando um grande problema.

Para evitar que ocorra um conflito t�o cr�tico podemos utilizar as propriedades AutoIncrementSeed e AutoIncrementStep. S�o propriedades do objeto dataColumn, podemos encontra-las dentro do editor de um dataSet tipado. Atribuindo -1 e -1, respectivamente, faremos com que a autonumeraç�o no dataSet seja negativa. Ao fazer a atualizaç�o no servidor o n�mero do servidor ser� atualizado no dataset, mas n�o conflitar� com nenhum outro n�mero que o dataset j� possua.

Veja alguns passos no processo de atualizaç�o:

O client precisa enviar os dados a serem atualizados para o servidor. N�o deve enviar tudo e sim apenas os dados modificados. Por isso neste momento deve-se utilizar o m�todo getChanges para obter uma c�pia do dataset apenas com as mudanças;
Vamos considerar uma atualizaç�o n�o transacional. Neste caso configuramos a propriedade continueupdateonerror do dataAdapter para true para que ele n�o devolva erros, apenas marque os registros que gerarem erro de atualizaç�o;
O m�todo de atualizaç�o precisa devolver o dataset ap�s a atualizaç�o. Isso porque o client est� com o dataset inteiro e o client usar� o dataset devolvido para saber quais atualizaç�es funcionaram ou n�o;
O adapter, ao fazer o m�todo update, tipicamente realiza tamb�m um acceptchanges no registro. Por�m no caso de inserç�es isso n�o pode ser feito por causa da autonumeraç�o. Se fosse feito a mesclagem do dataSet no client falharia, duplicando registros. Ent�o precisamos tratar o evento rowUpdated do adapter para garantir que n�o seja feito o acceptChanges nos registros inseridos;
O client pode, ap�s a mesclagem do dataset, fazer um rejectChanges, para imediatamente rejeitar os dados dos registros que falharam na atualizaç�o, mas isso � opcional.

Veja o exemplo: Eis o client:


        Dim dados As WindowsControlLibrary1.DS

        #Region " Windows Form Designer generated code "

        Public Sub New()

        MyBase.New()

        This call is required by the Windows Form Designer.

        InitializeComponent()

        Add any initialization after the InitializeComponent() call

        End Sub

        Form overrides dispose to clean up the component list.

        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

        If Not (components Is Nothing) Then

        components.Dispose()

        End If

        End If

        MyBase.Dispose(disposing)

        End Sub

        Required by the Windows Form Designer

        Private components As System.ComponentModel.IContainer

        // NOTE: The following procedure is required by the Windows Form Designer

        // It can be modified using the Windows Form Designer.

        // Do not modify it using the code editor.

        Friend WithEvents DG As System.Windows.Forms.DataGrid

        Friend WithEvents Component11 As WindowsControlLibrary1.Component1

        Friend WithEvents Button1 As System.Windows.Forms.Button

        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.components = New System.ComponentModel.Container

        Me.DG = New System.Windows.Forms.DataGrid

        Me.Component11 = New WindowsControlLibrary1.Component1(Me.components)

        Me.Button1 = New System.Windows.Forms.Button

        CType(Me.DG, System.ComponentModel.ISupportInitialize).BeginInit()

        Me.SuspendLayout()

        DG

        Me.DG.DataMember = ""

        Me.DG.HeaderForeColor = System.Drawing.SystemColors.ControlText

        Me.DG.Location = New System.Drawing.Point(16, 16)

        Me.DG.Name = "DG"

        Me.DG.Size = New System.Drawing.Size(256, 184)

        Me.DG.TabIndex = 0

        Button1

        Me.Button1.Location = New System.Drawing.Point(104, 224)

        Me.Button1.Name = "Button1"

        Me.Button1.TabIndex = 1

        Me.Button1.Text = "Button1"

        Form1

        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

        Me.ClientSize = New System.Drawing.Size(292, 273)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.DG)

        Me.Name = "Form1"

        Me.Text = "Form1"

        CType(Me.DG, System.ComponentModel.ISupportInitialize).EndInit()

        Me.ResumeLayout(False)

        End Sub

        #End Region

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        dados = Component11.ler

        DG.DataSource = dados.numeros

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If dados.HasChanges Then

        Dim d As WindowsControlLibrary1.DS

        d = dados.GetChanges

        d = Component11.gravar(d)

        dados.Merge(d)

        dados.RejectChanges()

        Else

        MsgBox("nada foi mudado")

        End If

        End Sub

Eis o componente :


        Public Function ler() As DS

        DA.Fill(Ds1)

        Return (Ds1)

        End Function

        Public Function gravar(ByVal xx As DS) As DS

        DA.Update(xx)

        Return (xx)

        End Function

        Private Sub DA_RowUpdated(ByVal sender As Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs) Handles
        DA.RowUpdated

        If e.StatementType = StatementType.Select Then

        e.Status = UpdateStatus.SkipCurrentRow

        End If

        End Sub

Confira tamb�m

Cursos de .NET

Curso

Minha primeira aplicaç�o C#

Curso

Guia de .NET Core

Guia

Dicas .NET - Atualizando DataSets em camadas

Veja nesta dica, como atualizar DataSets em camadas, nesta dica traremos um exemplo em campos de autonumeração.