'''
Dim 数据库名 As String=args(0)
Try
Connections(全局变量系统数据源).BeginTransaction() '开始事务
Dim cmd As new SQLCommand
cmd.ConnectionName=全局变量系统数据源
cmd.CommandText = "DR OP DATA BASE " & 数据库名
cmd.ExecuteNonQuery
Connections(全局变量系统数据源).Commit '提交事务,所有操作生效
Catch ex As Exception '如果出错
Connections(全局变量系统数据源).Rollback() '回滚事务,撤销所有操作
End Try
Dim cmd1 As new SQLCommand
cmd1.connectionname=全局变量系统数据源
cmd1.CommandText ="Se lect Name FROM Master..SysDatabases ORDER BY Name"
Dim dt As DataTable =cmd1.ExecuteReader()
If dt.Find("Name= '" & 数据库名 & "'") Is Nothing Then
Return True
Else
Return False
End If
加好友 
发短信
Post By：2015/12/9 0:05:00 [只看该作者]
