在VB中动态创建数据库数据库教程

时间：2020-01-07 08:02:06 作者：aimos 综合材料收藏本文下载本文

“aimos”通过精心收集，向本站投稿了9篇在VB中动态创建数据库数据库教程，小编在这里给大家带来在VB中动态创建数据库数据库教程，希望大家喜欢!

目录
第1篇：在VB中动态创建数据库数据库教程第2篇：在VB中压缩ACCESS数据库数据库教程第3篇：动态分组查询数据库教程第4篇：动态关联表数据库教程第5篇：mysql数据库动态创建表第6篇：创建动态MSSQL数据库表第7篇：创建动态MSSQL数据库表第8篇：从动态SQL中返回值数据库教程第9篇：创建备份设备数据库教程

篇1：在VB中动态创建数据库数据库教程

在VB中动态创建数据库

新建工程.添加控件对应写上代码

以下为引用的内容：

Private Sub Command2_Click

Dim myDB As DAO.Database

'Set myDB = DAO.OpenDatabase(“d:mydb3.mdb”)

Set myDB = DAO.OpenDatabase(App.Path + “/mydb.mdb”)

Dim d As String

d = “delete * from NewTable1”

myDB.Execute d

MsgBox “成功删除全部记录”

End Sub

Private Sub Command3_Click()

Dim myDB As DAO.Database

'Set myDB = DAO.OpenDatabase(“d:mydb3.mdb”)

Set myDB = DAO.OpenDatabase(App.Path + “/mydb.mdb”)

Dim e As String

e = “drop TABLE NewTable1”

myDB.Execute e

End Sub

Private Sub Form_Load()

Dim myDB As DAO.Database

'Set myDB = DAO.Workspaces(0).CreateDatabase(“d:mydb3.mdb”, dbLangGeneral)

Set myDB = DAO.Workspaces(0).CreateDatabase(App.Path + “/mydb.mdb”, dbLangGeneral)

Dim str_SQL As String

str_SQL = “Create Table NewTable1(Field1 Text(10),Field2 Short)”

myDB.Execute str_SQL

Dim a As String

a = “Insert INTO NewTable1 VALUES ('litao','21')”

myDB.Execute a

str_SQL = “Create Table NewTable2(Field1 Text(10),Field2 Short)”

myDB.Execute str_SQL

myDB.Close

MsgBox “成功创建mydb3.mdb数据库外加一条记录litao 21”

End Sub

Private Sub Command1_Click()

Dim myDB As DAO.Database

'Set myDB = DAO.OpenDatabase(“d:mydb3.mdb”)

Set myDB = DAO.OpenDatabase(App.Path + “/mydb.mdb”)

Dim c As String

c = “Insert INTO NewTable1 VALUES ('liqiao','20')”

myDB.Execute c

MsgBox “成功插入一条记录liqiao 20”

End Sub

篇2：在VB中压缩ACCESS数据库数据库教程

如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低，

在VB中压缩ACCESS数据库数据库教程

。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在Access项目中进行这样的压缩不会影响到数据库对象（例如表或视图），因为它们是存储在Microsoft SQL Server数据库中而不是在Access项目本身中。同样，这样的压缩也不会影响到Access项目中的自动编号。在Access数据库中，如果已经从表的末尾删除了记录，压缩该数据库是就会重新设置自动编号值。添加的下一个记录的自动编号值将会比表中没有删除的最后记录的自动编号值大一。

下面介绍如何在VB中用一个CompactJetDatabase过程实现对Access数据库文件的压缩处理，在这个过程中有一个可选参数，就是在压缩前你是否需要把原有的数据库文件备份到临时目录（True或False）。我用此办法使21.6MB的数据库压缩到仅仅300KB。

‘这些代码可放在模块中，在其他窗体也使用

Public Declare Function GetTempPath Lib “kernel32” Alias _

“GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Const MAX_PATH = 260

Public Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True)

On Error GoTo CompactErr

Dim strBackupFile As String

Dim strTempFile As String

‘检查数据库文件是否存在

If Len(Dir(Location)) Then

‘如果需要备份就执行备份

If BackupOriginal = True Then

strBackupFile = GetTemporaryPath & “backup.mdb”

If Len(Dir(strBackupFile)) Then Kill strBackupFile

FileCopy Location, strBackupFile

End If

‘创建临时文件名

strTempFile = GetTemporaryPath & “temp.mdb”

If Len(Dir(strTempFile)) Then Kill strTempFile

‘通过DBEngine压缩数据库文件

DBEngine.CompactDatabase Location, strTempFile

‘删除原来的数据库文件

Kill Location

‘拷贝刚刚压缩过临时数据库文件至原来位置

FileCopy strTempFile, Location

‘删除临时文件

Kill strTempFile

Else

End If

CompactErr:

Exit Sub

End Sub

Public Function GetTemporaryPath()

Dim strFolder As String

Dim lngResult As Long

strFolder = String(MAX_PATH, 0)

lngResult = GetTempPath(MAX_PATH, strFolder)

If lngResult 0 Then

GetTemporaryPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1)

Else

GetTemporaryPath = “”

End If

End Function

以后您在使用Access数据库时可以尝试进行这样的压缩，您应该会发现我说的没有错，

篇3：动态分组查询数据库教程

动态|分组

原帖地址:

community.csdn.net/Expert/topic/3428/3428792.xml?temp=.6476251

--示例数据

create table 表(ID int,NUM int)

insert 表 select 1,2

union all select 2,3

union all select 3,2

union all select 4,2

union all select 5,12

union all select 6,2

union all select 7,1

union all select 8,5

union all select 9,1

/*--问题说明:

输入分组参数,比如输入 “3,6” ,实现按 ID<=3,3<=6,ID>6 分组查询

输入分组参数,比如输入 “2,5,8” ,实现按 ID<=2,2<=5,5<=8,ID>8 分组查询

--*/

--查询的存储过程

create proc p_qry

@numlist varchar(1000)

set nocount on

declare @t table(id int identity,组 varchar(10),a int,b int)

declare @i int,@pnum varchar(10)

select @i=charindex(',',@numlist+',')

,@pnum=left(@numlist,@i-1)

,@numlist=stuff(@numlist,1,@i,'')

,@i=charindex(',',@numlist)

insert @t select 'id<='+@pnum,null,@pnum

while @i>0

begin

insert @t select @pnum+'<='+left(@numlist,@i-1),@pnum,left(@numlist,@i-1)

select @pnum=left(@numlist,@i-1)

,@numlist=stuff(@numlist,1,@i,'')

,@i=charindex(',',@numlist)

end

insert @t select 'id>'+@numlist,@numlist,null

select b.组,num=sum(a.num)

from 表 a,@t b

where case

when b.a is null then case when a.id<=b.b then 1 else 0 end

when b.b is null then case when a.id>b.a then 1 else 0 end

else case when a.id>b.a and a.id<=b.b then 1 else 0 end

end=1

group by b.组

order by min(b.id)

--调用存储过程进行查询

exec p_qry '2,5,8'

--删除测试

drop table 表

drop proc p_qry

/*--测试结果

组 num

---------- -----------

id<=2 5

2<=5 16

id>8 1

--*/

篇4：动态关联表数据库教程

动态

原帖地址:

community.csdn.net/Expert/topic/3452/3452577.xml?temp=.1377375

--示例数据

create table [table](A sysname,B varchar(10))

insert [table] select 'table_1','a'

union all select 'table_2','b'

create table table_1(A int)

insert table_1 select 1

union all select 2

create table table_2(A int)

insert table_2 select 3

union all select 4

/*--问题说明:

table中,A字段存储着其他表的名称

A字段中,记录和各个表的A字段的最大值

即得到如下结果:

table.B C

-------- -----------

a 1

b 2

--*/

--处理方法

declare @s varchar(8000)

set @s=''

select @s=@s+' when '''+A+''' then(select max(A) from ['+A+'])'

from [table] group by A

exec('select B,C=case A'+@s+' end from [table]')

--删除测试

drop table [table],table_1,table_2

/*--测试结果

B C

---------- -----------

a 2

b 4

--*/

篇5：mysql数据库动态创建表

mysql数据库动态创建表

大家一般可能很少有这种需求吧，我以前也没有遇到过，但这次做项目需要这么做，

就是表的字段名和字段数都不是固定的，要根据需要来创建。

这是我的创建形成过程，大家照着演示一下就知道了我的动态表的来龙去脉了。

第一步.创建相关表

/*---建立所有指标信息的临时表---*/

drop table if exists INTERBANKBONDQUOTE_SClass;

create table INTERBANKBONDQUOTE_SClass (

Name varchar(50) not null,

id int Primary key,

Parent int,

Value varchar(50)

);

insert into INTERBANKBONDQUOTE_SClass(Name,id,Value)values('最新成交',0,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Value)values('买入信息',1,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Value)values('买卖价差',2,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Value)values('卖出信息',3,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Parent,Value)values('中债最新估值',4,-1,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Value)values('含权债行权指标',5,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Value)values('基础指标',6,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Value)values('双边报价笔数',7,'');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Parent,Value)values('报价方',8,1,'col4');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Parent,Value)values('报价方会员号',9,1,'col5');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Parent,Value)values('报价时间',10,1,'col6');

insert into INTERBANKBONDQUOTE_SClass(Name,id,Parent,Value)values('匿名',11,1,'col7');

第二步：/*---建立显示数据表格标题的表---*/

drop table if exists INTERBANKBONDQUOTE_T;

create table INTERBANKBONDQUOTE_T as select concat(''',a.Name,',',b.Name,'' __TITLE__',b.Value);

第三步：这里有两种实现方法。因为在mysql中，这时的变量长度受到了限制，本来应该longtext足够长的，可实际只返回了限制长度的。如果字段太多了，就要用第二种方法。

存储过程A: 这里变量返回值长度受限，字段不多时可以。

DELIMITER $$

DROP PROCEDURE IF EXISTS `dzhappdb_bond`.`INTERBANKBONDQUOTE_TSP`$$

CREATE PROCEDURE INTERBANKBONDQUOTE_TSP

BEGIN

DECLARE objs1 TEXT;

DECLARE objs TEXT;

SELECT GROUP_CONCAT(col1) INTO objs1 FROM T;

SET objs =CONCAT('CREATE TABLE Title AS SELECT ',objs1);

SET @sql_txt = objs;

PREPARE stmt FROM @sql_txt;

EXECUTE stmt;

DEALLOCATE PREPARE stmt;

END$$

call INTERBANKBONDQUOTE_TSP;

存储过程B：这样不管字段多少，只要数据库支持就可以创建成功，

但不如第一个方法简洁。

DROP PROCEDURE IF EXISTS INTERBANKBONDQUOTE_TSP_Title;

drop table if EXISTS Title;

CREATE PROCEDURE INTERBANKBONDQUOTE_TSP_Title()

proc:begin

DECLARE add_sql LONGTEXT;

DECLARE insert_sql LONGTEXT;

DECLARE nhh_sql varchar(200);

DECLARE column_name varchar(100);

DECLARE column_value varchar(100);

DECLARE mycount int;

DECLARE len int;

DECLARE strlen int;

DECLARE cursor_Title CURSOR for select col1 from INTERBANKBONDQUOTE_T;

create table Title(mid int);

insert into Title values (100);

select count(col1) into @mycount from INTERBANKBONDQUOTE_T;

OPEN cursor_Title;

REPEAT

FETCH cursor_Title INTO nhh_sql;

begin

set @mycount=@mycount-1;

set @strlen=CHARACTER_LENGTH(nhh_sql);

set @len=INSTR(nhh_sql,' ');

set @column_name=RIGHT(nhh_sql,@strlen-@len);

set @column_value=LEFT(nhh_sql,@len);

set @add_sql=CONCAT('ALTER table Title add COLUMN ',@column_name,' varchar(100)');

set @insert_sql=CONCAT('update Title set ',@column_name,'=',@column_value,' where mid=100');

PREPARE stmt1 FROM @add_sql;

EXECUTE stmt1;

PREPARE stmt2 FROM @insert_sql;

EXECUTE stmt2;

DEALLOCATE PREPARE stmt1;

DEALLOCATE PREPARE stmt2;

end;

until @mycount<=0

END REPEAT;

CLOSE cursor_Title;

ALTER table Title drop column mid;

end proc;

call INTERBANKBONDQUOTE_TSP_Title;

篇6：创建动态MSSQL数据库表

复制代码代码如下:

'btnCreateOthers

Me.btnCreateOthers.Location=NewSystem.Drawing.Point(17,43)

Me.btnCreateOthers.Name=“btnCreateOthers”

Me.btnCreateOthers.Size=NewSystem.Drawing.Size(104,23)

Me.btnCreateOthers.TabIndex=5

Me.btnCreateOthers.Text=“创建规则和索引”

feedom.net

'btnDropTable

Me.btnDropTable.Location=NewSystem.Drawing.Point(138,43)

Me.btnDropTable.Name=“btnDropTable”

Me.btnDropTable.TabIndex=6

Me.btnDropTable.Text=“删除表”

'btnViewData

Me.btnViewData.Location=NewSystem.Drawing.Point(351,43)

Me.btnViewData.Name=“btnViewData”

Me.btnViewData.TabIndex=7

Me.btnViewData.Text=“查看数据”

'btnViewSP

Me.btnViewSP.Location=NewSystem.Drawing.Point(230,43)

feedom.net

Me.btnViewSP.Name=“btnViewSP”

Me.btnViewSP.Size=NewSystem.Drawing.Size(104,23)

Me.btnViewSP.TabIndex=8

Me.btnViewSP.Text=“查看存储过程”

'btnViewView

Me.btnViewView.Location=NewSystem.Drawing.Point(443,43)

Me.btnViewView.Name=“btnViewView”

Me.btnViewView.TabIndex=9

Me.btnViewView.Text=“查看视图”

'DataGrid1

Me.DataGrid1.DataMember=“”

Me.DataGrid1.HeaderForeColor=System.Drawing.SystemColors.ControlText

Me.DataGrid1.Location=NewSystem.Drawing.Point(20,76)54com.cn

Me.DataGrid1.Name=“DataGrid1”

Me.DataGrid1.Size=NewSystem.Drawing.Size(500,183)

Me.DataGrid1.TabIndex=10

'Form1

Me.AutoScaleBaseSize=NewSystem.Drawing.Size(5,13)

Me.ClientSize=NewSystem.Drawing.Size(538,281)

Me.Controls.AddRange(NewSystem.Windows.Forms.Control(){Me.DataGrid1,Me.btnViewView,_

Me.btnViewSP,Me.btnViewData,Me.btnDropTable,Me.btnCreateOthers,Me.btnAlterTable,_

复制代码代码如下:

Me.CreateViewBtn,Me.CreateSPBtn,Me.CreateTableBtn,Me.CreateDBBtn})

Me.Name=“Form1”

Me.Text=“动态创建SQLServer数据库、表、存储过程等架构信息”

CType(Me.DataGrid1,System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

EndSub

#EndRegion

'创建数据库

PrivateSubCreateDBBtn_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_

HandlesCreateDBBtn.Click

conn=NewSqlConnection(ConnectionString)

'打开连接

Ifconn.StateConnectionState.OpenThen

conn.Open()

EndIf

'MyDataBase为数据库名称

DimsqlAsString=“CREATEDATABASEMyDataBaseONPRIMARY(Name=MyDataBase_data,filename=”+_

54com.cn

“'D:MyDataBase.mdf',size=3,”+“maxsize=5,filegrowth=10%)logon”+“(name=MyDataBase_log,”+_

“filename='D:MyDataBase.ldf',size=3,”+“maxsize=20,filegrowth=1)”

cmd=NewSqlCommand(sql,conn)

Try

cmd.ExecuteNonQuery()

CatchaeAsSqlException

MessageBox.Show(ae.Message.ToString())

EndTry

EndSub

'创建表

PrivateSubCreateTableBtn_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_

HandlesCreateTableBtn.Click

conn=NewSqlConnection(ConnectionString)

'打开连接

Ifconn.State=ConnectionState.OpenThen

conn.Close()

EndIf

ConnectionString=“DataSource=.;InitialCatalog=MyDataBase;UserId=sa;Password=;”

conn.ConnectionString=ConnectionString

conn.Open()

sql=“CREATETABLEmyTable”+“(myIdINTEGERCONSTRAINTPKeyMyIdPRIMARYKEY,”+_

“myNameCHAR(50)NOTNull,myAddressCHAR(255),myValuesFLOAT)”

cmd=NewSqlCommand(sql,conn)

Try

cmd.ExecuteNonQuery()

'添加纪录

54com.cn

sql=“INSERTINTOmyTable(myId,myName,myAddress,myValues)”+_

“VALUES(1001,_'【孟宪会之精彩世界】之一','xml.sz.luohuedu.net/',100)”

cmd=NewSqlCommand(sql,conn)

cmd.ExecuteNonQuery()

sql=“INSERTINTOmyTable(myId,myName,myAddress,myValues)”+_

“VALUES(1002,'【孟宪会之精彩世界】之二','www.erp800.com/net_lover/',99)”

篇7：创建动态MSSQL数据库表

以下是引用片段：

复制代码代码如下:

ImportsSystem.Data

ImportsSystem.Data.SqlClient

PublicClassForm1

InheritsSystem.Windows.Forms.Form

PrivateConnectionStringAsString=“DataSource=.;InitialCatalog=;UserId=sa;Password=;”

PrivatereaderAsSqlDataReader=Nothing

PrivateconnAsSqlConnection=Nothing

PrivatecmdAsSqlCommand=Nothing

PrivateAlterTableBtnAsSystem.Windows.Forms.Button

PrivatesqlAsString=Nothing

PrivateCreateOthersBtnAsSystem.Windows.Forms.Button

#Region“Windows窗体设计器生成的代码”

'窗体重写处置以清理组件列表，

ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)

IfdisposingThen

IfNot(componentsIsNothing)Then

components.Dispose

EndIf

MyBase.Dispose(disposing)

EndSub

PublicSubNew()

MyBase.New()

InitializeComponent()

EndSub

PrivatecomponentsAsSystem.ComponentModel.IContainer

FriendWithEventsDataGrid1AsSystem.Windows.Forms.DataGrid

FriendWithEventsCreateDBBtnAsSystem.Windows.Forms.Button

FriendWithEventsCreateTableBtnAsSystem.Windows.Forms.Button

FriendWithEventsCreateSPBtnAsSystem.Windows.Forms.Button

FriendWithEventsCreateViewBtnAsSystem.Windows.Forms.Button

FriendWithEventsbtnAlterTableAsSystem.Windows.Forms.Button

FriendWithEventsbtnCreateOthersAsSystem.Windows.Forms.Button

FriendWithEventsbtnDropTableAsSystem.Windows.Forms.Button

FriendWithEventsbtnViewDataAsSystem.Windows.Forms.Button

FriendWithEventsbtnViewSPAsSystem.Windows.Forms.Button

FriendWithEventsbtnViewViewAsSystem.Windows.Forms.Button

PrivateSubInitializeComponent()

复制代码代码如下:

Me.CreateDBBtn=NewSystem.Windows.Forms.Button()

Me.CreateTableBtn=NewSystem.Windows.Forms.Button()

Me.CreateSPBtn=NewSystem.Windows.Forms.Button()

Me.CreateViewBtn=NewSystem.Windows.Forms.Button()

Me.btnAlterTable=NewSystem.Windows.Forms.Button()

Me.btnCreateOthers=NewSystem.Windows.Forms.Button()

Me.btnDropTable=NewSystem.Windows.Forms.Button()

Me.btnViewData=NewSystem.Windows.Forms.Button()

Me.btnViewSP=NewSystem.Windows.Forms.Button()

Me.btnViewView=NewSystem.Windows.Forms.Button()

Me.DataGrid1=NewSystem.Windows.Forms.DataGrid()

CType(Me.DataGrid1,System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'CreateDBBtn

Me.CreateDBBtn.Location=NewSystem.Drawing.Point(19,9)

Me.CreateDBBtn.Name=“CreateDBBtn”

Me.CreateDBBtn.Size=NewSystem.Drawing.Size(104,23)

Me.CreateDBBtn.TabIndex=0

Me.CreateDBBtn.Text=“创建数据库”

'CreateTableBtn

Me.CreateTableBtn.Location=NewSystem.Drawing.Point(139,9)

Me.CreateTableBtn.Name=“CreateTableBtn”

Me.CreateTableBtn.TabIndex=1

Me.CreateTableBtn.Text=“创建表”

'CreateSPBtn

Me.CreateSPBtn.Location=NewSystem.Drawing.Point(230,9)

Me.CreateSPBtn.Name=“CreateSPBtn”

Me.CreateSPBtn.Size=NewSystem.Drawing.Size(104,23)

Me.CreateSPBtn.TabIndex=2

Me.CreateSPBtn.Text=“创建存储过程”

'CreateViewBtn

Me.CreateViewBtn.Location=NewSystem.Drawing.Point(350,9)

Me.CreateViewBtn.Name=“CreateViewBtn”

Me.CreateViewBtn.TabIndex=3中国网管联盟www.bitscn.com

Me.CreateViewBtn.Text=“创建视图”

'btnAlterTable

Me.btnAlterTable.Location=NewSystem.Drawing.Point(441,9)

Me.btnAlterTable.Name=“btnAlterTable”

Me.btnAlterTable.TabIndex=4

Me.btnAlterTable.Text=“修改表”

篇8：从动态SQL中返回值数据库教程

动态

declare @TransactorID int

set @TransactorID=0

print(@TransactorID)

--exec sp_executesql N'select @TransactorID=68 ',N'@TransactorID int ',@TransactorID

exec sp_executesql N'select @TransactorID=5 ',N'@TransactorID int out ',@TransactorID out

print(@TransactorID)

篇9：创建备份设备数据库教程

在进行备份以前首先必须创建备份设备，

创建备份设备数据库教程

。备份设备是用来存储数据库、事务日志或文件和文件组备份的存储介质。备份设备可以是硬盘、磁带或管道。SQL Server 只支持将数据库备份到本地磁带机，而不是网络上的远程磁带机。当使用磁盘时，SQL Server 允许将本地主机硬盘和远程主机上的硬盘作为备份设备，备份设备在硬盘中是以文件的方式存储的。

15.2.1 用SQL Server Enterprise Manager 管理备份设备

1 使用SQL Server Enterprise Manager 创建备份设备

（1）使用SQL Server Enterprise Manager，创建备份设备的步骤为：

（2）打开Management 文件夹，然后选择Backup 图标。

（3）右击Backup 在弹出菜单中选择 New Backup Device 选项，然后弹出 BackupDevice Properties C New Device 对话框，

如图15-1 所示。

（4）在Name 栏中输入设备名称该名称是备份设备的逻辑名。

（5）选择备份设备类型，如果选择File name 表示使用硬盘做备份，只有正在创建的设备是硬盘文件时，该选项才起作用。如果选择Tape Drive name 表示使用磁带设备。只有正在创建的备份设备是与本地服务器相连的磁带设备时，该选项才起作用。

（6）然后单击确定创建备份设备。

2 使用SQL Server Enterprise Manager 删除备份设备在创建备份设备的第二步，选中Backup 图标后，在右格对话框中右击要删除的备份设备，在弹出菜单中选择Delete 选项，则删除该备份设备。

15.2.2 使用系统过程管理备份设备

1 sp_addumpdevice