vb 用HASHTABLE批量增删改

 

Public Sub FGNarashiShinseshaUpdate(ByVal LaParam As List(Of Hashtable))

 

        Dim LtDb As New Kobetsu.Common.DBAccess

        Try

            '' 処理開始ログ出力

            MtLogger.Beginning()

 

            Dim LvUpdateTable As String = "UPDATE [経営安定＿ナラシ申請者] "

            Dim LvWhere As String = ""

            Dim LvSet As String = ""

 

            '' トランザクションを開始する。

            LtDb.beginTransaction()

 

            For Each LzHash As Hashtable In LaParam

                LvWhere = ""

                LvSet = ""

                For Each LtDE As DictionaryEntry In LzHash

                    If "申請年度".Equals(LtDE.Key) OrElse "加入者コード".Equals(LtDE.Key) Then

                        If String.IsNullOrEmpty(LvWhere) Then

                            LvWhere = LvWhere + " [" + LtDE.Key.ToString + "] = '" + LtDE.Value.ToString + "' "

                        Else

                            LvWhere = LvWhere + " AND [" + LtDE.Key.ToString + "] = '" + LtDE.Value.ToString + "' "

                        End If

                    Else

                        If String.IsNullOrEmpty(LvSet) Then

                            LvSet = LvSet + " [" + LtDE.Key.ToString + "] = '" + LtDE.Value.ToString + "' "</