01.
Dim
s
As
New
StringBuilder()
02.
s.Append(
"MERGE INTO tblDetails AS T "
)
03.
s.Append(
"USING ( VALUES "
)
04.
For
Each
r
In
value
05.
s.Append(
"("
)
06.
s.Append(r.Tran_Type &
", "
)
07.
s.Append(r.Tran_Code &
", "
)
08.
s.Append(r.Tran_Desc &
", "
)
09.
s.Append(r.ACCount_NO &
", "
)
10.
s.Append(r.Project)
11.
s.Append(
"), "
)
12.
Next
13.
14.
s.Remove(s.Length - 2, 2)
15.
s.Append(
") AS S (BCode, BName) "
)
16.
s.Append(
"ON T.BCode = S.BCode "
)
17.
s.Append(
"WHEN MATCHED AND S.BCode = N'สิ่งที่ไม่ต้องการ' THEN "
)
18.
s.Append(
"DELETE "
)
19.
s.Append(
"WHEN MATCHED THEN "
)
20.
s.Append(
"UPDATE SET BName = S.BName "
)
21.
s.Append(
"WHEN NOT MATCHED BY TARGET AND S.BCode <> N'สิ่งที่ต้องการ' THEN "
)
22.
s.Append(
"INSERT (BCode, BName) VALUES (S.BCode, S.BName);"
)
23.
Return
s.ToString()