第三步同步所有的表
此主题相关图片如下:step3.jpg

“同步所有表”的代码如下:
Dim cmd As new SQLCommand
Dim sourcetbs As new List (of String)
Dim targettbs As new List (of String)
'Vars.Add("_logFileName",Gettype(String))'变量: Log名称
Vars("_logFileName") = "log" + CSTR(Format(Date.Now, "yyyyMMddHHmmss")) + ".txt"
targettbs = Connections("dbTarget").GetTableNames()
sourcetbs = Connections("dbSource").GetTableNames()
sourcetbs.AddRange(Connections("dbSource").GetViewNames())
cmd.C
cmd.CommandText = "SELECT DISTINCT TableName1 AS sourceTable, TableName2 AS targetTable F R OM dbo.CfgDataMapping"
Dim dt As DataTable = cmd.ExecuteReader()
Dim dr As DataRow
For i As Integer = 0 To dt.DataRows.Count -1
dr = dt.DataRows(i)
If sourcetbs.Contains(dr("sourceTable")) = True AndAlso targettbs.Contains(dr("targetTable")) = True Then
foxSqlBulkcopy(dr("targetTable"))
End If
Next
问题:
1. 是否可以把设前面三步设置与Dos下自动运行放在一个程序里,如在Dos下加一个参数,让它只执行保存好的参数设置,而不进入前面的参数设置界面?
2. 如果可以在Dos下执行,如何跳过第一个图中的“用户登录”窗口,直接运行同步代码。