Dim cmd As new SQLCommand
cmd.Co nnectio nName = ""
cmd.CommandText = "upda te {用户管理},{部门管理} set {用户管理}.本部集合 = {部门管理}.部门集合 whe re {用户管理}.部门名称={部门管理}.部门名称"
Dim val As Integer = cmd.ExecuteNonQuery
Dim cmd As new SQLCommand
cmd.Con nection Name = "A"
cmd.CommandText = "upd ate 用户管理 set 用户管理.本部集合 = 部门管理.部门集合 fr om 用户管理,部门管理 where 用户管理.部门名称=部门管理.部门名称"
Dim val As Integer = cmd.ExecuteNonQuery