none
Obtener Datos de conexion RRS feed

  • Pregunta

  • Hola a todos una consulta necesito capturar los datos de la conexión nombreServidor, nombreDB, nombreUsuario, pass porfavor si alguien me puede ayudar se lo agradecería necesito que me ayuden por favor. 

    Public Sub BuilLeerConnectionString(ByVal DataSource As String, ByVal InitialCatalog As String, ByVal UserId As String, _
        ByVal Password As String)
            ' Obtenemos el archivo de configuración de la aplicación.
            '
            Dim config As Configuration = _
               ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
    
            ' Obtenemos la sección connectionStrings.
            '
            Dim section As ConnectionStringsSection = config.ConnectionStrings
    
            'Obtenemos el objeto ConnectionStringSettings
            'correspondiente al nombre de la cadena de
            'conexión especificada.
    
            Dim settings As ConnectionStringSettings = section.ConnectionStrings.Item("default")
            'DataSource = "Data Source"
    

    Que puedo modificar en el código para capturar los datos de conexion


    Pedro Avila

    miércoles, 12 de diciembre de 2012 23:59

Respuestas

  • pero has investigado la clase

    DbConnectionStringBuilder Class

    recuerda que existe el msdn para buscar una clase y esudiar las propeidades que expone

    si lo haces veras que puedes usarlo como ser

    Dim user As String = builder("User ID")

    y demas partes del conection stirng

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    • Marcado como respuesta Pedro Ávila jueves, 13 de diciembre de 2012 15:27
    jueves, 13 de diciembre de 2012 3:42

Todas las respuestas

  • Hola Pedro . Pues la cadena de conexión la visualizas así..

    En la parte izquierda de tu visual debes tener situada la pestaña que te muestra la base de datos a la que estas conectado.. SERVER EXPLORER..

    Aqui debes visualizar Data Connections y enseguida el nombre de tu BD en el das Click derecho y seleccionas Modify Connection..

    Al final de la pantalla que te muestra esta el botón Advanced das Click ahí 

    En la pantalla que te muestra viene un renglon antes de los botones con los datos de tu conexión que inicia Data Source... ese renglon lo copias en su totalidad y cierras las pantallas sin mover nada de estas... y copias esta información donde te lo pide tu código...

    Espero te sirva... si así es me marcas como respuesta porfa..

    Saludos..



    • Propuesto como respuesta neomiRos jueves, 13 de diciembre de 2012 0:14
    • Votado como útil neomiRos jueves, 13 de diciembre de 2012 0:14
    • Editado neomiRos jueves, 13 de diciembre de 2012 0:16
    jueves, 13 de diciembre de 2012 0:11
  • Hola neomiRos gracias por responder pero no es lo que busco lo que hago en ese codigo es leer la conexion qu lo tengo en un archivo y quiero capturar los datos de conexión. Pero de todas maneras muchas gracias

    Pedro Avila

    jueves, 13 de diciembre de 2012 1:24
  • pero has investigado la clase

    DbConnectionStringBuilder Class

    recuerda que existe el msdn para buscar una clase y esudiar las propeidades que expone

    si lo haces veras que puedes usarlo como ser

    Dim user As String = builder("User ID")

    y demas partes del conection stirng

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    • Marcado como respuesta Pedro Ávila jueves, 13 de diciembre de 2012 15:27
    jueves, 13 de diciembre de 2012 3:42
  • Leandro gracias por responder me parece que es la solución solo me falta adaptar este código a lo que necesito :

    Sub Main() Dim builder AsNew DbConnectionStringBuilder builder.ConnectionString = _ "Provider=MSDataShape.1;Persist Security Info=False;" & _ "Data Provider=MSDAORA;Data Source=orac;" & _ "user id=username;password=*******"ForEach value AsStringIn builder.Values Console.WriteLine(value) NextEndSub

    ====================================================================================

    Public Sub BuilLeerConnectionString(ByVal DataSource As String, ByVal InitialCatalog As String, ByVal UserId As String, _
        ByVal Password As String)
            ' Obtenemos el archivo de configuración de la aplicación.
            '
            Dim config As Configuration = _
               ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)

            ' Obtenemos la sección connectionStrings.
            '
            Dim section As ConnectionStringsSection = config.ConnectionStrings

            'Obtenemos el objeto ConnectionStringSettings
            'correspondiente al nombre de la cadena de
            'conexión especificada.

            Dim settings As ConnectionStringSettings = section.ConnectionStrings.Item("default")
            'DataSource = "Data Source"


            ' Creamos el objeto, tengo que adaptar esta parte de código.

            Dim builder As New DbConnectionStringBuilder

            builder.ConnectionString = settings ==>no se puede convertir a string


            '' Le asignamos el valor de la cadena de conexión
            'builder.ConnectionString = settings.ConnectionString

            builder("Data Source") = DataSource
            'builder("Initial Catalog") = InitialCatalog
            'builder("User Id") = UserId
            'builder("Password") = Password
        End Sub

             


    Pedro Avila

    jueves, 13 de diciembre de 2012 14:13
  • Leandro ya me esta saliendo te agradesco amigo solo me falta poner esos datos en las variables

            

     Public Sub BuilLeerConnectionString(ByVal DataSource As String, ByVal InitialCatalog As String, ByVal UserId As String, _
        ByVal Password As String)
            ' Obtenemos el archivo de configuración de la aplicación.
            '
            Dim config As Configuration = _
               ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)

            ' Obtenemos la sección connectionStrings.
            '
            Dim section As ConnectionStringsSection = config.ConnectionStrings

            'Obtenemos el objeto ConnectionStringSettings
            'correspondiente al nombre de la cadena de
            'conexión especificada.

            Dim settings As ConnectionStringSettings = section.ConnectionStrings.Item("default")
            'DataSource = "Data Source"


            '' Creamos el objeto
            Dim builder As New DbConnectionStringBuilder
            'builder.ConnectionString = settings


            ' Le asignamos el valor de la cadena de conexión
            builder.ConnectionString = settings.ConnectionString

            For Each values As String In builder.Values
                MessageBox.Show(values)

    DataSource
            InitialCatalog
            UserId
            Password

            Next


        End Sub


    Pedro Avila

    jueves, 13 de diciembre de 2012 14:32
  •  Leandro ya puedo capturar los datos el método era un public sub pero lo cambie a function ahora quiero llevar los datos capturados al método que lo llama.

    Public Function BuilLeerConnectionString(ByVal DataSource As String, ByVal InitialCatalog As String, ByVal UserId As String, _
        ByVal Password As String) As String
            ' Obtenemos el archivo de configuración de la aplicación.
            '
            Dim config As Configuration = _
               ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)

            ' Obtenemos la sección connectionStrings.
            '
            Dim section As ConnectionStringsSection = config.ConnectionStrings

            'Obtenemos el objeto ConnectionStringSettings
            'correspondiente al nombre de la cadena de
            'conexión especificada.

            Dim settings As ConnectionStringSettings = section.ConnectionStrings.Item("default")
            'DataSource = "Data Source"


            '' Creamos el objeto
            Dim builder As New DbConnectionStringBuilder
            'builder.ConnectionString = settings


            ' Le asignamos el valor de la cadena de conexión
            builder.ConnectionString = settings.ConnectionString

            For Each values As String In builder.Values
                'MessageBox.Show(values)
                If DataSource = "" Then
                    DataSource = values
                    Continue For
                End If

                If InitialCatalog = "" Then
                    InitialCatalog = values
                    Continue For
                End If
                If UserId = "" Then
                    UserId = values
                    Continue For
                End If
                If Password = "" Then
                    Password = values
                    Continue For
                End If
            Next

            Return que pondría quí
            Exit Function
        End Function


    Pedro Avila

    jueves, 13 de diciembre de 2012 15:09