帮帮忙

Question

Dim cn As New ADODB.Connection
    cn.ConnectionString = "provider=SQLOLEDB;server=(local);uid=sa;pwd="
    cn.CursorLocation = adUseClient
    cn.Open
    cn.Execute "BACKUP DATABASE ysgl TO DISK = 'c:\mssql7\backup\fdc.bak'" '备份数据库
    MsgBox "备份成功!"
    cn.Execute "RESTORE DATABASE ysgl FROM DISK = 'c:\mssql7\backup\fdc.bak' with replace " '恢复数据库
    MsgBox "恢复成功!"
    cn.Close: Set cn = Nothing

Answer 1

Dim cn As New ADODB.Connectioncn.ConnectionString = "provider=SQLOLEDB;server=(local);uid=sa;pwd="cn.CursorLocation = adUseClientcn.Opencn.Execute "BACKUP DATABASE fdc TO DISK = 'c:\mssql7\backup\fdc.bak'"MsgBox "备份成功!"cn.Execute "RESTORE DATABASE fdc FROM DISK = 'c:\mssql7\backup\fdc.bak' with replace"MsgBox "恢复成功!"cn.Close: Set cn = Nothing

Answer 2

连接语句怎么没有指定数据库呢?行吗?
cn.ConnectionString = "provider=SQLOLEDB;server=(local);uid=sa;pwd="

Answer 3

连接语句可以不指定数据库，也可以指定master，但不能指定fdc.