2024年3月26日发(作者：)

双循环整合数据

PrivateSubButton9_Click(senderAsObject,eAsEventArgs)Han

Dimcon=NewSqlConnection("DataSource=.;InitialCatalog=数

据库;IntegratedSecurity=false;UserID=sa;Password=123456;")

()

DimstrAsString

Dimcom=NewSqlCommand("select*from数据表A",con)

DimdaAsSqlDataReader

da=eReader

()

str=""

str="update数据表Asetx='"+Trim

（("X").ToString)&"q'"+"whereY="+Value(0).T

oString

Dimcon1=NewSqlConnection("DataSource=.;InitialCatalog=

数据

库;IntegratedSecurity=false;UserID=sa;Password=123456;")

()‘每次循环都打开？

Dimcom1=NewSqlCommand(str,con1)

Try

=eNonQuery()

CatchexAsException

=(e)

EndTry

()‘每次循环都关闭？

Loop

()

EndSub

查过很多资料，都没有满意的循环写入的案例，自己按照资料

单纯的写入数据写了一段循环修改数据表的句子，虽然能运行并修

改字段值，但总觉得有些问题，比如如果数据库修改的字段过多，

比如批量时修改1万条字段，频繁的OPEN和CLOSE连接，会有问题

吗？

可以优化以上语句吗？比如打开一次，中间循环修改，最后关

闭一次。我试了一下()写到循环之外就会报错。

或者有别的方法？

还是就应该是这个样子？

总觉得怪怪的，和delphi真的真的不一样。