'========================================================
'
'用于执行返回单个值的命令,(内部表)
'
'========================================================
Dim sql As String = Args(0)
'Try
'Connections(mydb).BeginTransaction() '开始事务
Dim cmd As New SQLCommand
Dim value As Object
cmd.CommandText = sql
value = cmd.ExecuteScalar()
' Connections(mydb).Commit '提交事务,所有操作生效
Return value
'Catch ex As Exception '如果出错
'Connections(mydb).Rollback() '回滚事务,撤销所有操作
'End Try
事务对内部数据源有用吗？
加好友 
发短信
Post By：2015/7/14 23:44:00 [显示全部帖子]
