'数据更新
Public Sub updateTable(ByVal StrSql As String) objCommand.CommandText = StrSql Try conSql.Open() Trans = conSql.BeginTransaction objCommand.Transaction = Trans objCommand.ExecuteNonQuery() Trans.Commit() Catch ese As Exception MsgBox(ese.Message) Trans.Rollback() '如果更新异常则取消所有更新 Finally conSql.Close() '关闭连接 End Try End Sub |
.net删除,更新数据库方法
最新推荐文章于 2018-06-09 00:56:29 发布