数据保存问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

阿里云数据源，用如下代码保存数据。运行后显示“18”附近语法错误，影响了xxx行，感觉数据已经保存，但是关闭项目重新打开后表里数据全无，是什么原因？

Dim sql As String

Dim cmd As New SQLCommand

cmd.C

Dim Count As Integer = 0

try

Connections("cs").BeginTransaction

For Each s As String In strlist

cmd.CommandText = s

Count += cmd.ExecuteNonQuery()

output.show(s)

Connections("cs").Commit '提交事务,所有操作生效

Catch ex As Exception '如果出错

msgbox(ex.message)

Connections("cs").Rollback() '回滚事务,撤销所有操作

End Try

Tables("凭证").DataTable.BaseTable.AcceptChanges() '提交修改

MessageBox.Show("耗时: " & (Date.Now - st1).TotalSeconds & "秒")

msgbox("影响行数:" & strlist.count)

如果有错误，会回滚操作的，所以数据不会保存。

msgbox(ex.message)

Connections("cs").Rollback() '回滚事务,撤销所有操作

如果是sqlserver数据库，你要改一下【sql提取函数】，你要把#改成单引号'

果然是这个问题，感谢老师！

另外请问下，600多行数据阿里云数据库，36秒会不会还是有点慢？还有更快的方法么？直接保存大约要一两分钟的样子。

以下是引用dengk03在2017/9/20 23:40:00的发言：
果然是这个问题，感谢老师！

另外请问下，600多行数据阿里云数据库，36秒会不会还是有点慢？还有更快的方法么？直接保存大约要一两分钟的样子。

你测试一下，时间用在什么地方了。是用在了生成sql那里，还是用在了事务Commit那里，还是用在了提交之后？

如果单纯是导入数据，建议使用 System.Data.SqlClient.SqlBulkCopy

用时都在这一部分了。

For Each s As String In strlist

cmd.CommandText = s

Count += cmd.ExecuteNonQuery()

output.show(s)

1、尝试去掉这句代码 output.show(s)

2、你尝试不执行 cmd.ExecuteNonQuery() 改成把所有语句合并成一条sql语句再执行呢？

主题：数据保存问题