问题描述
DimAccessConnAsNewOleDb.OleDbConnection(AccessConnectionString)'建立链接AccessConn.Open()'打开数据库Fora=1ToListView1.Items.CountDimAccessStringAsString="INSERTINTO入库单(日期,班级,规格,半品,成品,总件数,隔纸,种类,克重,产量,吨位)VALUES('"&_ListView1.Items.Item(a-1).Text&"','"&_ListView1.Items.Item(a-1).SubItems(1).Text&"','"&_ListView1.Items.Item(a-1).SubItems(2).Text&"','"&_ListView1.Items.Item(a-1).SubItems(3).Text&"','"&_ListView1.Items.Item(a-1).SubItems(4).Text&"','"&_ListView1.Items.Item(a-1).SubItems(5).Text&"','"&_ListView1.Items.Item(a-1).SubItems(6).Text&"','"&_ListView1.Items.Item(a-1).SubItems(7).Text&"','"&_ListView1.Items.Item(a-1).SubItems(8).Text&"','"&_ListView1.Items.Item(a-1).SubItems(9).Text&"','"&_ListView1.Items.Item(a-1).SubItems(10).Text&"')"'定义命令StrDimAccessCmdAsOleDbCommand=NewOleDbCommand(AccessString,AccessConn)'转为命令AccessCmd.ExecuteNonQuery()'无返回值的执行NextAccessConn.Close()'关闭数据库MsgBox("chenggong")EndSub
解决方案
解决方案二：
运行到这AccessCmd.ExecuteNonQuery()错误!
解决方案三：
出什么错？是否可以问题描述清楚
解决方案四：
DimAccessStringAsString="INSERTINTO入库单(日期,班级,规格,半品,成品,总件数,隔纸,种类,克重,产量,吨位)VALUES('"&_ListView1.Items.Item(a-1).Text&"','"&_ListView1.Items.Item(a-1).SubItems(1).Text&"','"&_ListView1.Items.Item(a-1).SubItems(2).Text&"','"&_ListView1.Items.Item(a-1).SubItems(3).Text&"','"&_ListView1.Items.Item(a-1).SubItems(4).Text&"','"&_ListView1.Items.Item(a-1).SubItems(5).Text&"','"&_ListView1.Items.Item(a-1).SubItems(6).Text&"','"&_ListView1.Items.Item(a-1).SubItems(7).Text&"','"&_ListView1.Items.Item(a-1).SubItems(8).Text&"','"&_ListView1.Items.Item(a-1).SubItems(9).Text&"','"&_ListView1.Items.Item(a-1).SubItems(10).Text&"')"可能是这个的错误吧！我不知道错在哪里了！就是不往数据库里添加数据！
解决方案五：
跟踪并检查AccessString字串是否有问题
解决方案六：
我去。定义个字符串，DEBUG跟踪下，你生成的字符串直接拿去执行是否可以写入库基本的问题调试啊
解决方案七：
解决方案八：
是不是数据类型问题啊，把string类型的text往integer型的列里插了之类的，或者日期的格式之类的
解决方案九：
就是数据类型的问题！谢谢了！
解决方案十：
总件数应该是整数，你都以字符串方式了，要将字符串转换为整数
解决方案十一：
该回复于2014-09-22 01:37:42被版主删除