''''备份数据库
''''BackupDataName数据库存放的绝对路径
Function BackUpData(ByVal BackupDataName As String) As String
Dim Conn As New SqlClient.SqlConnection(ModConn.GetConn)
Dim mySelectQuery As String = "Backup database popcrm to DISK =''''" & BackupDataName & "''''"
Dim myReader As SqlClient.SqlDataReader
Dim Cmd As New SqlCommand(mySelectQuery, Conn)
If Conn.State = ConnectionState.Closed Then Conn.Open()
Try
Cmd.ExecuteNonQuery()
BackUpData = ""
Catch ExSQL As SqlException
If ExSQL.Number = 3201 Then
BackUpData = "请正确输入备份文件的存放路径!"
Else
BackUpData = ExSQL.Message
End If
Catch Ex As Exception
BackUpData = Ex.Message
End Try
Cmd.Connection.Close()
Cmd.Dispose()
Conn.Dispose()
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18