专家坐堂-[分享]数据导入对比Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一、手工编码 117秒

Dim cmd As New SQLCommand

cmd.ConnectionName = sjy

Dim dt As DataTable

cmd.CommandText = "S ELECT * From {A1_qdk} "

dt = cmd.ExecuteReader()

For Each dr1 As DataRow In dt.DataRows

Dim dr2 As DataRow = DataTables("A1_qdk").AddNew()

For i As Integer = 0 To dt.DataCols.Count - 1

dr2(dt.DataCols(i).Name) = dr1(dt.DataCols(i).Name)

二、Filler 90秒

Dim cmd As New SQLCommand

cmd.ConnectionName = sjy

Dim dt As DataTable

cmd.CommandText = "S ELECT * From {A1_qdk} "

dt = cmd.ExecuteReader()

Dim f As New Filler

f.SourceTable = dt \'指定数据来源

f.SourceCols = "XH,BH,MC,DW,GZRR,JSGZ,ZJBJ" \'指定数据来源列

f.DataTable = DataTables("A1_qdk") \'指定数据接收表

f.DataCols = "XH,BH,MC,DW,GZRR,JSGZ,ZJBJ" \'指定数据接收列

f.Distinct = False

f.Fill() \'填充数据

DataTables("A1_qdk").Save

三、Merger 325秒

Dim mg As New Merger

mg.SourcePath = dlg.FileName

StatusBar.Message1 = ("正在导入清单库...")

mg.SourceTableName = "1_qdk"

mg.DataTableName = "A1_qdk"

mg.Merge()

				希望得到更优的处理方式！

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:代码.rar