| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请高人赐教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35074) |
| -- 作者：lhls1688 -- 发布时间：2013/6/23 18:03:00 -- 请高人赐教 我想把sqlcommand中结果保存成一个表，这个要怎么做？ |
| -- 作者：lihe60 -- 发布时间：2013/6/23 20:47:00 -- 是临时保存还是永久保存？ |
| -- 作者：lhls1688 -- 发布时间：2013/6/24 7:51:00 -- 永远保存 |
| -- 作者：lihe60 -- 发布时间：2013/6/24 8:01:00 -- dt为你临时生成的表 for each r as datarow in dt.datarows for each c as datacol in dt.datacols cmd.commandtext="UPDATE {订单} SET 折扣 = 0.1 WHERE [_identify] =r("_identify")" cmd.ExecuteNonQuery() next 我把关键语句写了，其他语句自己写吧。 |
| -- 作者：lhls1688 -- 发布时间：2013/6/24 8:03:00 -- 我用的是外部数据源ACCESS，因此我想把这个结果也保存到到ACCESS中去，这个可行吗？ |
| -- 作者：狐狸爸爸 -- 发布时间：2013/6/24 8:29:00 -- 逐行添加到目标表，然后保存，不过效率比较低。
,.... Dim dt As DataTable = smd.ExcuteReader For Each dr1 As datarow = dt.Datarows Dim dr2 As datarow = Datatables("acsss表名").Addnew dr2("某列1") = dr1("某列1") dr2("某列2") = dr1("某列2") dr2("某列3") = dr1("某列3") Next Datatables("acsss表名").Save() |