从品牌网站建设到网络营销策划,从策略到执行的一站式服务
这是你的For语句
成都创新互联始终坚持【策划先行,效果至上】的经营理念,通过多达十余年累计超上千家客户的网站建设总结了一套系统有效的营销推广解决方案,现已广泛运用于各行各业的客户,其中包括:塔吊租赁等企业,备受客户赞赏。
For i = 0 To webtable.Rows.Count - 1
Label2.Text = "正在从远程服务器下载数据 " i "/" webtable.Rows.Count
CMD = New OleDbCommand(Dbcstr, Dbc)
CMD.ExecuteNonQuery()
webrow = webtable.Rows.Item(i)
Next
语句中Dbcstr一直没有变动过,所以你提交到数据库中的内容总是第一行。
修改如下,未调试。
Dbc.Open()
For i = 0 To webtable.Rows.Count - 1
Dim Dbcstr As String = "INSERT INTO PurchaseOrders ([PurchaseOrderID],……
Dbcstr = Dbcstr " VALUES('" webtable.rows(i).Item(0) "','" ……
'webrow.Item(0)改成webtable.rows(i).Item(0),其他一样
CMD = New OleDbCommand(Dbcstr, Dbc)
CMD.ExecuteNonQuery()
Next
conn.Close()
Dbc.Close()
先将excel中的数据读入到 DataTable中
然后用一个For循环,逐条Insert 到对应数据库的表中
你的语句并没有完全贴出来?
要注意区别:
1,如果是插入完整的一条记录(包括所有字段)
INSERT
INTO
表名称
VALUES
(值1,
值2,....)
2,如果插入只包含若干个指定字段(其余字段为空)
INSERT
INTO
table_name
(列1,
列2,...)
VALUES
(值1,
值2,....)
另外,你使用了变量,那么应该这样使用:
"insert
into
Personal_table
('"
Name_CH
"',
......
后面看不出了,
其实,你可以在这句之前,加一句输出,看看具体内容,你就知道了!
msgbox()在括号里把你的这个字符串放进去,看看结果是什么?
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图