neu

SDL/cEasyBinding.vb

@@ -3,7 +3,7 @@ Imports Gemeinsames
 Imports System.ComponentModel
 
 Public Class cEasyBinding
-    Public bindingDataAdapter As New SqlDataAdapter
+    Public WithEvents bindingDataAdapter As New SqlDataAdapter
     Public WithEvents bindingdataTable As New DataTable
     Public bindingdataSet As New DataSet
     Public WithEvents bindingSource As New BindingSource
@@ -11,7 +11,7 @@ Public Class cEasyBinding
     Dim connection As SqlConnection
     Dim initialized = False
 
-    '  Public updateImmediately = False
+    Public updateImmediately = False
 
     Sub New(Optional conn As String = "SDL")
         Select Case conn
@@ -22,7 +22,9 @@ Public Class cEasyBinding
         End Select
     End Sub
 
-    Public Sub initBinding(sql, table)
+
+
+    Public Sub initBinding(sql, table, Optional List = Nothing)
         Try
             bindingSource.CancelEdit()
             bindingSource = New BindingSource
@@ -32,7 +34,20 @@ Public Class cEasyBinding
             bindingdataSet.Clear()
 
             Try
-                Me.bindingDataAdapter = New SqlDataAdapter(sql, connection)
+
+                If List IsNot Nothing Then
+                    Dim cmd As New SqlCommand(sql, connection)
+
+                    For Each i In List
+                        'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))
+                        cmd.Parameters.AddWithValue("@" & i.Scalarvariable.trim, IIf(i.Value Is Nothing, DBNull.Value, i.Value))
+                    Next
+                    Me.bindingDataAdapter = New SqlDataAdapter(cmd)
+                Else
+                    Me.bindingDataAdapter = New SqlDataAdapter(sql, connection)
+                End If
+
+
             Catch ex As SqlException
                 MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
             End Try
@@ -66,6 +81,7 @@ Public Class cEasyBinding
             Dim builder As New SqlCommandBuilder(bindingDataAdapter)
             bindingDataAdapter.Update(bindingdataSet, bindingdataTable.TableName)
             Me.bindingdataSet.AcceptChanges()
+
             Return True
         Catch ex As Exception
             MsgBox("Es ist ein SQL-Fehler beim Updaten der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Die Werte werden zurückgesetzt!", MsgBoxStyle.OkCancel, "Datenbank-Fehler")
@@ -90,7 +106,11 @@ Public Class cEasyBinding
     End Sub
 
 
-    ' Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged
+    'Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged
+
     '    If updateImmediately Then updateBinding()
-    ' End Sub
+
+    'End Sub
+
+
 End Class