SQL Server - Usuarios y contraseñas Base de Datos

' compile with:

' /r:Microsoft.SqlServer.Smo.dll

' /r:Microsoft.SqlServer.ConnectionInfo.dll

' /r:Microsoft.SqlServer.Management.Sdk.Sfc.dll

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common

Public Class A

   Public Shared Sub Main()

      Dim sqlServerLogin As [String] = "user_id"

      Dim password As [String] = "pwd"

      Dim instanceName As [String] = "instance_name"

      Dim remoteSvrName As [String] = "remote_server_name"

      ' Connecting to an instance of SQL Server using SQL Server Authentication

      Dim srv1 As New Server()   ' connects to default instance

      srv1.ConnectionContext.LoginSecure = False   ' set to true for Windows Authentication

      srv1.ConnectionContext.Login = sqlServerLogin

      srv1.ConnectionContext.Password = password

      Console.WriteLine(srv1.Information.Version)   ' connection is established

      ' Connecting to a named instance of SQL Server with SQL Server Authentication using ServerConnection

      Dim srvConn As New ServerConnection()

      srvConn.ServerInstance = ".\" & instanceName   ' connects to named instance

      srvConn.LoginSecure = False   ' set to true for Windows Authentication

      srvConn.Login = sqlServerLogin

      srvConn.Password = password

      Dim srv2 As New Server(srvConn)

      Console.WriteLine(srv2.Information.Version)   ' connection is established

      ' For remote connection, remote server name / ServerInstance needs to be specified

      Dim srvConn2 As New ServerConnection(remoteSvrName)

      srvConn2.LoginSecure = False

      srvConn2.Login = sqlServerLogin

      srvConn2.Password = password

      Dim srv3 As New Server(srvConn2)

      Console.WriteLine(srv3.Information.Version)   ' connection is established

   End Sub

End Class