vb.net 循环写入数据库问题

这是你的For语句

创新互联公司10多年成都定制网页设计服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,成都定制网页设计及推广,对纯水机等多个方面拥有丰富的网站制作经验的网站建设公司。

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()

vb.net 从数据库读取图片循环显示

假如b窗体是form2,在a窗体中调用B窗体，直接dim frm as new form2,然后frm.show()就OK

VBNET如何移动记录集的记录指针?

可以先对数据库中的表数据进行正序排列，然后打印结果的时候将print放在循环外。

如：test表中有如下数据

现在要用游标取出最后一条，也就是“5，孙七”这条。

代码如下：

declare @id int --定义变量

declare @name varchar(10) --定义变量

declare cur_c cursor for select * from test order by id --定义游标

open cur_c --打开游标

fetch next from cur_c into @id,@name --取游标值到变量

while @@fetch_status = 0 --循环退出条件

begin --循环开始

fetch next from cur_c into @id,@name  --继续取游标值到变量

end --循环结束

print cast(@id as varchar)+','+@name --打印最后一条结果

close cur_c --关闭游标

deallocate cur_c --释放游标

结果如图：

vb.net do循环

你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。

是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。

因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。

名称栏目：vb.net记录集循环 vbnetfor循环
本文URL：http://csdahua.cn/article/hieogs.html