2005年9月1日随笔档案 - 雨叶秋寒

2005年9月1日

ASP备份MSSQL数据库

SQL="backup database [database] to disk='"&Server.MapPath("backup")&"\"&"20050901.dat"&"'"

'备份数据库到backup文件夹下，备份文件名为20050901.dat

SQL="Restore database [database] from disk='"&Server.MapPath("backup")&"\"&"20050901.dat"&"'"

'恢复备份文件到数据库,备份文件为backup文件夹下的20050901.dat

conn.execute SQL

on error resume next

if err<>0 then

response.write "错误："&err.Descripting

else

response.write "数据备份并恢复成功！"

end if

单独执行备份数据库语句可以通过，但当执行恢复数据库语句时会提示错误：“因为数据库正在使用，所以未能获得对数据库的排它访问权。”

posted @ 2005-09-01 11:14 雨叶秋寒阅读(326) 评论(0) 编辑

Function Test()
ChangeTableFieldName_ADO "表1", "aa", "pic1"
End Function

Function ChangeTableFieldName_ADO(MyTableName As String, MyFieldName As String, strNewName As String)
'3个参数：
'MyTableName 字符串，表名
'MyFieldName 字符串，原来的字段名
'strNewName 字符串，新的字段名
'记得先引用 ADOX
Dim MyDB As New ADOX.Catalog
Dim MyTable As ADOX.Table
MyDB.ActiveConnection = CurrentProject.Connection
Set MyTable = MyDB.Tables(MyTableName)
MyTable.Columns(MyFieldName).Name = strNewName
End Function

posted @ 2005-09-01 10:15 雨叶秋寒阅读(193) 评论(0) 编辑

雨叶秋寒

日历

公告

ASP备份MSSQL数据库

利用ADOX更改字段名