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

[hantaor]

vb中能进行数据库备份吗？数据库备份的方法怎么样?

[Jneu]

能啊。

[visualvbjava]

DBEngine.CompactDatabase "old.mdb", "new.mdb", dbLangGeneral

[westgirl]

我刚刚作完数据库备份，运行通过，供你参考：
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)

[yhshu]

当然可以进行备份,只要调用T-SQL构成的stored procedure即可

[zjg751206]

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,
[e-mail]或[e-mail]

[westgirl]

我可不可以问你一个问题（请教关于有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'