-Zitate kriege ich immer noch nicht hin--
Diesen Datensatz kann man über die Ereignisse des CommandBuilders abfangen.
Hi,
ein Zitat kannst Du mit "Zitieren" vorn anstellen oder <blockquote> im html kennzeichnen.
Der CommandBuilder wird nicht für jeden Filter neu gesetzt. Es wird ein CommandBuilder instanziiert, dem der betreffende DataAdapater mitgeteilt wird. Intern werden DataAdapter und CommandBuilder verknüpft. Wenn jetzt entsprechend RowState eine Aktivität
mit der Datenbank auszuführen ist, wird der CommandBuilder nach der auszuführenden SQL Anweisung gefragt.
Nachfolgend habe ich kleine Konsolen-Demo zusammengestellt.
Imports System.Data.SqlClient
Module Module5
Public Sub Main()
Demo1()
Console.Write("--- mit Tastendruck Programm beenden")
Console.ReadKey()
End Sub
Dim rnd As New Random
Sub Demo1()
Console.WriteLine("--- Arbeit mit klasssichen Methoden mit Konflikterkennung")
Try
Using cn As New SqlConnection(My.Settings.cn)
Using da As New SqlDataAdapter("Select * FROM TestTab", cn)
' Datenpuffer
Dim dt1 As New DataTable ' Nutzer 1
Dim dt2 As New DataTable ' Nutzer 2
' Datenpuffer füllen
da.Fill(dt1)
da.Fill(dt2)
' Anzahl der geladenen Datensätze
Dim anzahl = dt1.Rows.Count
Console.WriteLine("es wurden {0} Datensätze geladen", anzahl)
' Datensatznummer für zu ändernden datensatz festlegen
Dim satznummer = anzahl \ 2
' zu ändernder Datensatz
Dim r1 = dt1.Rows(satznummer)
' r1(1) ist vom Typ "money" = "decimal"
Console.WriteLine("ID: {0}, alter Inhalt: {1}, Zustand: {2}", r1(0), r1(1), r1.RowState)
' Feldinhalt ändern
r1(1) = CDec(rnd.Next(10000) / 100)
Console.WriteLine("ID: {0}, neuer Inhalt: {1}, Zustand: {2}", r1(0), r1(1), r1.RowState)
' Instanz des CommandBuilders erzeugen
Dim cb As New SqlCommandBuilder(da)
' Konflikterkennung setzen
cb.ConflictOption = ConflictOption.CompareAllSearchableValues
' Vor dem Aktualisieren Arbeiten ausführen
AddHandler da.RowUpdating, Sub(sender As Object, e As SqlRowUpdatingEventArgs)
Console.WriteLine("Update wird ausgeführt für ID: {0}", e.Row(0))
End Sub
' Datenbank aktualisieren
da.Update(dt1)
' weitere Änderung durch anderen Nutzer simulieren
' zu ändernder Datensatz
Dim r2 = dt2.Rows(satznummer)
' r2(1) ist vom Typ "money" = "decimal"
Console.WriteLine("ID: {0}, alter Inhalt: {1}, Zustand: {2}", r2(0), r2(1), r2.RowState)
' Feldinhalt ändern
r2(1) = CDec(rnd.Next(10000) / 100)
Console.WriteLine("ID: {0}, neuer Inhalt: {1}, Zustand: {2}", r2(0), r2(1), r2.RowState)
' nochmals Datenbank aktualisieren
da.Update(dt2)
' vernünftig abschließen
End Using
End Using
Console.WriteLine("--- Ende Demo1")
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Module
--
Viele Grüsse
Peter Fleischer (MVP, Partner)
Meine Homepage mit Tipps und Tricks
