谢谢指导，再此基础上，已经进行了完善，直接sql数据库两表对烤，数据完美保真
Dim 插入列 As String = ""
'Dim 插入值 As String = ""
For Each dc As System.Data.DataColumn In dtr.basetable.Columns
Dim dcn As String = dc.ColumnName
If dcn.StartsWith("System_")
Else
插入列 = 插入列 & "," & "[" & dcn & "]"
'插入值 = 插入值 & "," & "'" & dr(dcn) & "'"
End If
Next
插入列 = 插入列.TrimStart(",")
'插入值 = 插入值.TrimStart(",")
Dim 原实例名 As String = ""
Select Case coon1
Case "IBMDMAIN"
原实例名 = "IBMD"
Case Else
原实例名 = coon1
End Select
Dim sql1 As String = "SET IDENTITY_INSERT {" & tbn2 & "} ON"
Dim sql2 As String = "insert into {" & tbn2 & "} (" & 插入列 & ") sel ect " & 插入列 & " fro m [" & 原实例名 & "].[dbo].{" & tbn1 & "}"
Dim sql3 As String = "SET IDENTITY_INSERT {" & tbn2 & "} OFF"
Dim cmd0 As new SQLCommand
cmd0.ConnectionName = coon2
cmd0.CommandText = sql1 & ";" & sql2 & ";" & sql3
cmd0.ExecuteNonQuery
加好友 
发短信
Post By：2017/8/9 22:07:00 [显示全部帖子]
