Hi Mike,
die ID automatisch mit 1 beginnend zu vergeben, ist keine gute Idee. Das funktioniert zwar, aber nur solange keine Fremdschlüssel damit verbunden sind (z.B. Master-Child). Besser ist es, im Programm negative Werte zu nutzen. Da kann es keine Konflikte geben.
Der CommandBuilder (Verweisvariable cb) braucht nicht genutzt zu werden, solange die Standardeinstellungen zur Generierung der SQL Anweisungen ausreichend sind. Wenn aber der "Der Letzte gewinnt" einzustellen ist, ist "cb" für die Einstellung
zu nutzen. Mit der Übergabe des Verweises auf den DataAdapter im Konstruktor wird die Beziehung zwischen CommandBuilder und DataAdapter hergestellt und der DataAdapter fragt bei Bedarf den Commandbuilder, dass dieser ihm auf Basis des SelectCommands eine
SQL Anweisung bereitstellt. Der Bedarf liegt dann vor, wenn dem DataAdapter kein Command-Objekt für Update, Delete, Insert zugewiesen wurde.
Für das Einfügen und Rücklesen kann die folgende SQL Anweisung genutzt werden:
INSERT INTO [dbo].[Tab1] ([info]) VALUES (@info);
SELECT Id, info FROM Tab1 WHERE (Id = SCOPE_IDENTITY())
Den gesamten Ablauf kann man so demonstrieren:
Debug.Print("---")
Using da As New SqlDataAdapter("SELECT ID,info FROM Tab1", My.Settings.Database1ConnectionString)
Dim dt As New DataTable
With dt.Columns
With .Add("ID", GetType(Integer))
.AutoIncrement = True
.AutoIncrementSeed = -1
.AutoIncrementStep = -1
End With
End With
da.Fill(dt)
Dim row = dt.NewRow
row(1) = "Neue Zeile"
dt.Rows.Add(row)
Debug.Print("Vergebene ID: {0}", row(0))
Dim cmd As New SqlCommand("INSERT INTO [dbo].[Tab1] ([info]) VALUES (@info); SELECT Id, info FROM Tab1 WHERE (Id = SCOPE_IDENTITY())", da.SelectCommand.Connection)
Dim par As New SqlParameter
With par
.ParameterName = "@info"
.SourceVersion = DataRowVersion.Current
.SourceColumn = "info"
End With
cmd.Parameters.Add(par)
da.InsertCommand = cmd
Debug.Print("SQL Anweisung für Insert: {0}", da.InsertCommand.CommandText)
da.Update(dt)
Debug.Print("ID nach Update: {0}", row(0))
End Using
Parallelitätsverletzung kommt, wenn die Originalversion im Client (=Programm) nicht mit dem Inhalt in der Datenbank übereinstimmt. Das kann der Fall sein, wenn AcceptChanges falsch angewandt wurde oder ein Datensatz nach dem Update in der Datenbank nicht
zurückgelesen wurde, damit wieder beide Inhalte übereinstimmen. Auch kann eine Parallelitätsverletzung entstehen, wenn im Mehrnutzerbetrieb positive Autowerte vergeben werden.
--
Viele Grüsse
Peter Fleischer (MVP, Partner)
Meine Homepage mit Tipps und Tricks
Kommas richtig setzen!
Schüler sagen, Lehrer haben es gut.
Schüler, sagen Lehrer, haben es gut
