任何人都知道为什么"Dim db As Database"不会编译?

任何人都知道为什么

问题描述：

我收到此编译错误:预期的延迟"我现在不出什么毛病了
它突出显示了所有数据库，并且End try给了我错误，提示结束try必须先匹配try
请帮助

I get this compile error: "decleration expected" I Dont what wrong now
It highlights all db and End try gives me error it says "End try must be preceded by matching try
please help

Imports System.Data
Imports Emis_Data_layer
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Configuration
Imports Microsoft.SqlServer.Management
Imports System.Collections.Specialized
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common
Public Class BACKUP_recovery
    Try
    Dim db As New Database
            db = srv.Databases("My_WorkDB")
    Dim bdi As BackupDeviceItem
            bdi = New BackupDeviceItem("C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Backup\My_WorkDB.bak", DeviceType.File)
    'Define a Restore object variable.
    Dim rs As Restore
            rs = New Restore
            rs.NoRecovery = RestoreActionType.Database
    ' rs.ReplaceDatabase = True       
    'rs.NoRecovery = True
            rs.Devices.Add(bdi)
            rs.Database = "My_WorkDB"
            rs.SqlRestore(srv)
    'Remove the device from the Restore object.
            rs.Devices.Remove(bdi)
            srv.Databases("My_WorkDB").DatabaseOptions.RecoveryModel = RecoveryModel.Full
    Catch ex As Exception
    End Try
 sqlConn.Close()

答

您的类应该这样构造

you class should be structured like this

imports system.data
'other imports here

public class SomeClass
  public sub SomeRoutine
  end sub
end class

即

i.e.

public sub BackUpDB
  Try
   Dim db As New Database
   db = srv.Databases("My_WorkDB")
   Dim bdi As BackupDeviceItem
   bdi = New BackupDeviceItem("C:\Program Files\Microsoft SQL ServerMSSQL.1\MSSQL\Backup\My_WorkDB.bak", DeviceType.File)
   'Define a Restore object variable.
   Dim rs As Restore
   rs = New Restore
   rs.NoRecovery = RestoreActionType.Database
   ' rs.ReplaceDatabase = True
   'rs.NoRecovery = True
   rs.Devices.Add(bdi)
   rs.Database = "My_WorkDB"
   rs.SqlRestore(srv)
   'Remove the device from the Restore object.
   rs.Devices.Remove(bdi)
   srv.Databases("My_WorkDB").DatabaseOptions.RecoveryModel = RecoveryModel.Full
   Catch ex As Exception
   End Try
sqlConn.Close()
end sub

任何人都知道为什么"Dim db As Database"不会编译?

相关推荐