Foxtable(狐表) → 用户栏目 → 专家坐堂 → 保存优化请教


  共有9541人关注过本帖树形打印复制链接

主题：保存优化请教
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15843 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/8/19 15:38:00 [只看该作者]

这种方式不会用，老师能帮助写一下吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106365 积分：540966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/19 15:43:00 [只看该作者]

链接里就是例子，基本改改：链接字符串、列名、表名即可。

 回到顶部
帅哥哟，离线，有人找我吗？
2
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00 		  发帖心情 Post By：2018/8/19 15:47:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15843 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/8/19 15:47:00 [只看该作者]

Dim tran As System.Data.SqlClient.SqlTransaction
try
    Dim conn As new System.Data.SqlClient.SqlConnection("server=voyo;uid=sa;pwd=hailun.;database=Test")
    conn.Open() '打开链接
    tran = conn.BeginTransaction()
    Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第一列", "第一列")
    Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)
    Copy.ColumnMappings.Add(mapping1)
    copy.DestinationTableName = "表D" '指定服务器上目标表的名称
    copy.WriteToServer(DataTables("表D").basetable)   '你的datatable名字,执行把DataTable中的数据写入DB
    tran.Commit()                                  '提交事务
    msgbox("OK")
catch ex As exception
    msgbox(ex.message)
    tran.Rollback()    '返回False 执行失败!
End try
是这样吗？mapping1代表什么？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106365 积分：540966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/19 15:52:00 [只看该作者]

先不用管什么意思，一个列就添加一个mapping，保存10列的内容就添加10个

 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15843 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/8/19 16:48:00 [只看该作者]


[此贴子已经被作者于2018/8/19 17:55:34编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106365 积分：540966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/19 17:20:00 [只看该作者]

可能是我之前测试保存的。您清空数据库，在试试。

保存前弹出看看新增了多少条记录
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15843 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/8/19 20:06:00 [只看该作者]

Dim tran As System.Data.SqlClient.SqlTransaction
try
    Dim conn As new System.Data.SqlClient.SqlConnection("server=voyo;uid=sa;pwd=hailun.;database=Test")
    conn.Open() '打开链接
    tran = conn.BeginTransaction()
    Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第一列", "第一列")
    Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)
    Copy.ColumnMappings.Add(mapping1)
    copy.Destinati '指定服务器上目标表的名称
    copy.WriteToServer(DataTables("表D").basetable)   '你的datatable名字,执行把DataTable中的数据写入DB
    tran.Commit()                                  '提交事务
    msgbox("OK")
catch ex As exception
    msgbox(ex.message)
    tran.Rollback()    '返回False 执行失败!
End try
请问这个保存完怎么关闭，我加了conn.close,不行，会自己往表里存数据
以下内容是专门发给有点蓝,有点甜浏览
生成是正常的，一打开窗口3，记录就是慢慢的增加

[此贴子已经被作者于2018/8/19 20:34:29编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106365 积分：540966 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/19 21:28:00 [只看该作者]

保存后会自动关闭连接，上面的代码是保存整个表的，保存过程中无法关闭。

至于记录就是慢慢的增加是什么效果，没看出来
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15843 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/8/19 21:38:00 [只看该作者]

生成完以后，看看窗口2是多少条记录，再打开窗口3就看到效果了，由于数据量大，加载慢，慢的原因就是自己在存数据，要等几分钟，其实没有那么多
[此贴子已经被作者于2018/8/19 21:46:12编辑过]
 回到顶部
总数 35 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询