vb中能进行数据库备份吗?

hantaor 2001-09-15 03:49:56
vb中能进行数据库备份吗?数据库备份的方法怎么样?
...全文
119 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
westgirl 2001-11-26
  • 打赏
  • 举报
回复
我可不可以问你一个问题(请教关于有vb程序在sqlsever中创建视图):
我写了这样的语句:sql12 = "CREATE VIEW dbjl1" & _
" AS" & _
" SELECT dbjl.jmh AS jmh1, jmk.jj AS jj1, jmk.bt AS bt1, jmk.gslx" & _
" FROM dbjl INNER JOIN" & _
" jmk ON dbjl.jmh = jmk.jmh"
执行后,总出现这样的错误:
实时错误'-2147217865(80040e37)':
[microsoft][odbc sql server driver][sql server]
invalod object name 'gbzb'
zjg751206 2001-11-26
  • 打赏
  • 举报
回复
SQL Server可以使用SQL-DMO来做:
恢复数据库:
Private Sub Command2_Click()
Dim sFile As String
sFile = "N_1"

Dim oServer As New SQLDMO.SQLServer
Dim oDatabase As New SQLDMO.Database
Dim oRestore As New SQLDMO.Restore

oServer.Connect servername, username, password
With oRestore

.Files = sFile

.Database = "Northwind"
.ReplaceDatabase = True
.SQLRestore oServer
End With

Set oRestore = Nothing
Set oDatabase = Nothing
oServer.DisConnect
Set oServer = Nothing
MsgBox ("OK")

End Sub

备份:
Dim oBackup As New SQLDMO.Backup
oBackup.Action = SQLDMOBackup_Database
oBackup.Database = "Northwind"
oBackup.Devices = "[NorthDev1],[NorthDev2]"
oBackup.BackupSetName = "Northwind_Full"
oBackup.BackupSetDescription = "Full backup of Northwind sample."

oBackup.SQLBackup oSQLServer


如果你按照上述方法做好一个通用的过程把原代码给我看看!!
我也是抄来的我不懂vb,
zjg751206@sina.com.cn或zjgnj@263.net
yhshu 2001-11-26
  • 打赏
  • 举报
回复
当然可以进行备份,只要调用T-SQL构成的stored procedure即可
westgirl 2001-11-26
  • 打赏
  • 举报
回复
我刚刚作完数据库备份,运行通过,供你参考:
If cn.State = adStateOpen Then cn.Close
cn.ConnectionTimeout = 10
connstr = "Driver={SQL Server};Server=" & LocalServer & ";UID=" & LocalUser & ";PWD=" & LocalPw & ";DATABASE=" & LocalDb
cn.Open connstr
dd = Date
sql = "BACKUP DATABASE xhj TO disk='D:\mssql7\backup\xhj" & Trim(dd) & "'"
cn.Execute (sql)
visualvbjava 2001-09-15
  • 打赏
  • 举报
回复
DBEngine.CompactDatabase "old.mdb", "new.mdb", dbLangGeneral
Jneu 2001-09-15
  • 打赏
  • 举报
回复
能啊。

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧