-- 作者：fubblyc
-- 发布时间：2016/6/10 22:35:00
-- 从FT内部表 insert into 到同表结构的 外部表 ，遍历每一行，插入，速度很慢
从FT内部表 insert into 到同表结构的 外部表 ，遍历每一行，插入，速度很慢
代码：
Dim cmd As New SQLCommand
cm d.C
For Each dr As DataRow In DataTables("VIP会员基本信息").DataRows
cmd.CommandText =" insert into VIP会员基本信息(会员卡号,会员类型,会员系列,旧卡号,姓名,性别,出生日期,年龄,身份证,省份,城市,手机,电话,邮编,地址,邮箱,纪念日,建档日期,建档人,会员状态,发卡日期,单位,发卡单位,门店,门店名称,了解途径,鞋码,服装尺码,喜欢运动,喜欢色系,最高学历,月收入,职业,婚姻状况,喜爱的休闲方式,喜爱的礼品类型,特长,喜爱的活动类型) values ( \'" & dr("会员卡号") & "\',\'" & dr("会员类型") & "\',\'" & dr("会员系列") & "\',\'" & dr("旧卡号") & "\',\'" & dr("姓名") & "\',\'" & dr("性别") & "\',\'" & dr("出生日期") & "\',\'" & dr("年龄") & "\',\'" & dr("身份证") & "\',\'" & dr("省份") & "\',\'" & dr("城市") & "\',\'" & dr("手机") & "\',\'" & dr("电话") & "\',\'" & dr("邮编") & "\',\'" & dr("地址") & "\',\'" & dr("邮箱") & "\',\'" & dr("纪念日") & "\',\'" & dr("建档日期") & "\',\'" & dr("建档人") & "\',\'" & dr("会员状态") & "\',\'" & dr("发卡日期") & "\',\'" & dr("单位") & "\',\'" & dr("发卡单位") & "\',\'" & dr("门店") & "\',\'" & dr("门店名称") & "\',\'" & dr("了解途径") & "\',\'" & dr("鞋码") & "\',\'" & dr("服装尺码") & "\',\'" & dr("喜欢运动") & "\',\'" & dr("喜欢色系") & "\',\'" & dr("最高学历") & "\',\'" & dr("月收入") & "\',\'" & dr("职业") & "\', \'" & dr("婚姻状况") & "\',\'" & dr("喜爱的休闲方式") & "\',\'" & dr("喜爱的礼品类型") & "\',\'" & dr("特长") & "\',\'" & dr("喜爱的活动类型") & "\' )"
cmd.ExecuteNonQuery()
Next
messagebox.show( "成功插入数据 !","提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
|