作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

    '备份数据库

    '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()

相关软件：