1

Estoy haciendo un proyecto en visual basic y devexpress.

Al compilar el software en visual studio me funciona todo bien, pero al ejecutar el programa instalado en el pc y quiero acceder a un dashboard me sale el siguiente error:

No se puede conectar a la base de datos. Ver detalles abajo.
Mensaje error: no se ha inicializado la propiedad connectionString

Luego cierro el programa, lo abro y realizo la misma accion de acceder al dashboard y funciona todo bien. ¿Me podrian ayudar?

Les dejo el código en orden de ejecución.

Al iniciar el software me pide ingresar el nombre del servidor y la instancia donde estan las bases de datos en SQLServer. Esta función guarda en un archivo XML los datos para una conexion.

 Private Sub Guardar_Servidor_Click(sender As Object, e As EventArgs) Handles Guardar_Servidor.Click

    Dim settings As New XmlWriterSettings()
    settings.Indent = True

    If (Check.Checked = True) Then
        'Seguridad SQL SERVER

        If (text_Usuario.Text = "" Or text_Password.Text = "") Then
            MsgBox("Debe llenar los campos de usuario y contraseña")

        Else

            Try
                Dim dir As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

                'Se crea el directorio donde se guardaran las opciones
                CreateDirectory(dir & "\Kimun")

                Dim filePermissions = New FileIOPermission(FileIOPermissionAccess.AllAccess, dir & "\Kimun\config.xml")
                filePermissions.Demand()

                'Directiorio donde se guardara el archivo
                Dim XmlWrt As XmlWriter = XmlWriter.Create(dir & "\Kimun\config.xml", settings)

                With XmlWrt
                    'Declaracion por defecto XML
                    .WriteStartDocument()
                    'Comentario del XML
                    .WriteComment("XML Configuracion Kimun")
                    'Encabezado raiz XML
                    .WriteStartElement("Configuracion")
                    'Se inicia la configuracion
                    .WriteStartElement("Parametros")
                    'Parametros del nodo
                    .WriteStartElement("Servidor")
                    .WriteString(Nom_Servidor.Text)
                    .WriteEndElement()

                    .WriteStartElement("Usuario")
                    .WriteString(text_Usuario.Text)
                    .WriteEndElement()

                    .WriteStartElement("Password")
                    .WriteString(text_Password.Text)
                    .WriteEndElement()

                    .WriteStartElement("Correo")
                    .WriteString("")
                    .WriteEndElement()

                    'Termina la configuracion
                    .WriteEndElement()

                    'Se cierra XMLTextWriter
                    .WriteEndDocument()
                    .Close()

                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Information, "Error al guardar el archivo XML")
            End Try

            PanelDeControl.icono_notificacion.ShowBalloonTip(5000, "Notificación", "Se ha creado el archivo XML.", ToolTipIcon.Info)
            crear_conexiones()

            Me.Close()
        End If

    Else
        'Seguridad Windows
        text_Usuario.Text = ""
        text_Password.Text = ""

        Try

            Dim dir As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

            'Se crea el directorio donde se guardaran las opciones
            CreateDirectory(dir & "\Kimun")

            Dim filePermissions = New FileIOPermission(FileIOPermissionAccess.AllAccess, dir & "\Kimun\config.xml")
            filePermissions.Demand()

            'Directiorio donde se guardara el archivo
            Dim XmlWrt As XmlWriter = XmlWriter.Create(dir & "\Kimun\config.xml", settings)

            With XmlWrt
                'Declaracion por defecto XML
                .WriteStartDocument()
                'Comentario del XML
                .WriteComment("XML Configuracion Kimun")
                'Encabezado raiz XML
                .WriteStartElement("Configuracion")
                'Se inicia la configuracion
                .WriteStartElement("Parametros")
                'Parametros del nodo
                .WriteStartElement("Servidor")
                .WriteString(Nom_Servidor.Text)
                .WriteEndElement()

                .WriteStartElement("Usuario")
                .WriteString(text_Usuario.Text)
                .WriteEndElement()

                .WriteStartElement("Password")
                .WriteString(text_Password.Text)
                .WriteEndElement()

                .WriteStartElement("Correo")
                .WriteString("")
                .WriteEndElement()

                'Termina la configuracion
                .WriteEndElement()

                'Se cierra XMLTextWriter
                .WriteEndDocument()
                .Close()

            End With

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Error al guardar el archivo XML")
        End Try

        crear_conexiones()

        Me.Close()
    End If
End Sub

Luego va a la funcion crear_conexiones()

Public Sub crear_conexiones()

    Try

        Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(Application.ExecutablePath)
        Dim connectionStringsSection As ConnectionStringsSection = DirectCast(config.GetSection("connectionStrings"), ConnectionStringsSection)
        Dim section As ConnectionStringsSection = config.ConnectionStrings
        Dim conexion As New Conectar_Servidor

        leer_XML() 'Funcion que lee el xml e inserta los datos en variables globales que son servidor, usuario, password

        'Creamos una nueva cadena de conexion
        Dim cadena_conexion_controlProduccion As New ConnectionStringSettings()
        Dim cadena_conexion_eTata As New ConnectionStringSettings()

        'Asignamos el nombre de la cadena de conexion'
        cadena_conexion_controlProduccion.Name = "conectar_controlProduccion"
        cadena_conexion_eTata.Name = "conectar_eTata"

        If (conexion.Check.Checked = True) Then
            'Damos la cadena de conexion'
            cadena_conexion_controlProduccion.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=ControlProduccion;User ID= " & Usuario & ";Password= " & Password
            cadena_conexion_eTata.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=eTata;User ID= " & Usuario & ";Password= " & Password
        Else
            'Damos la cadena de conexion'
            cadena_conexion_controlProduccion.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=ControlProduccion;Integrated Security=True"
            cadena_conexion_eTata.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=eTata;Integrated Security=True"
        End If

        'Nombre del Proveedor de datos incariable'
        cadena_conexion_controlProduccion.ProviderName = "System.Data.SqlClient"
        cadena_conexion_eTata.ProviderName = "System.Data.SqlClient"

        'Añadimes la nueva cadena de conexion al objeto connectionString section'
        connectionStringsSection.ConnectionStrings.Add(cadena_conexion_controlProduccion)
        connectionStringsSection.ConnectionStrings.Add(cadena_conexion_eTata)

        conectar_controlProduccion = New SqlConnection(cadena_conexion_controlProduccion.ConnectionString)
        conectar_eTata = New SqlConnection(cadena_conexion_eTata.ConnectionString)

        'Guardamos los cambios en el archivo de configuracion' 
        config.Save(ConfigurationSaveMode.Modified, True)

        If (test_Conection(cadena_conexion_controlProduccion.ConnectionString) = True) Then
            Panel_Principal.estado_controlProduccion.ForeColor = Color.Green
            Panel_Principal.estado_controlProduccion.Text = "Conectado"
            abrir_controlProduccion()
            abrir_controlProduccion2()
        Else
            Panel_Principal.estado_controlProduccion.ForeColor = Color.Red
            Panel_Principal.estado_controlProduccion.Text = "No Conectado"
            PanelDeControl.icono_notificacion.ShowBalloonTip(5000, "Error", "No se ha podido establecer conexión con la base de datos control Producción", ToolTipIcon.Warning)
            Conectar_Servidor.Show()
        End If

        If (test_Conection(cadena_conexion_eTata.ConnectionString) = True) Then
            Panel_Principal.estado_eTata.ForeColor = Color.Green
            Panel_Principal.estado_eTata.Text = "Conectado"
            abrir_eTata()
            abrir_etata2()
        Else
            Panel_Principal.estado_eTata.ForeColor = Color.Red
            Panel_Principal.estado_eTata.Text = "No Conectado"
            PanelDeControl.icono_notificacion.ShowBalloonTip(5000, "Error", "No se ha podido establecer conexión con la base de datos eTata", ToolTipIcon.Warning)
            Conectar_Servidor.Show()
        End If

    Catch      

 PanelDeControl.icono_notificacion.ShowBalloonTip(5000, "Error", "No se ha podido establecer conexión con las bases de datos", ToolTipIcon.Warning)
        Panel_Principal.estado_controlProduccion.ForeColor = Color.Red
        Panel_Principal.estado_controlProduccion.Text = "No Conectado"

        Panel_Principal.estado_eTata.ForeColor = Color.Red
        Panel_Principal.estado_eTata.Text = "No Conectado"

        Conectar_Servidor.Show()
    End Try
End Sub

se abren las conexiones (cuando se abre el programa por segunda vez llega directo a esta parte)

Sub abrir_controlProduccion2()
    Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(Application.ExecutablePath)
    Dim connectionStringsSection As ConnectionStringsSection = DirectCast(config.GetSection("connectionStrings"), ConnectionStringsSection)
    Dim conexion As New Conectar_Servidor

    leer_XML()

    Try
        'Creamos una nueva cadena de conexion
        Dim cadena_conexion_controlProduccion As New ConnectionStringSettings()

        'Asignamos el nombre de la cadena de conexion
        cadena_conexion_controlProduccion.Name = "conectar_controlProduccion"

        If (conexion.Check.Checked = True) Then
            'Damos la cadena de conexion
            cadena_conexion_controlProduccion.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=ControlProduccion;User ID= " & Usuario & ";Password= " & Password
            conectar_controlProduccion = New SqlConnection("Data Source=" & Servidor & ";Initial Catalog=ControlProduccion;User ID= " & Usuario & ";Password= " & Password)
        Else
            'Damos la cadena de conexion
            cadena_conexion_controlProduccion.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=ControlProduccion;Integrated Security=True"
            conectar_controlProduccion = New SqlConnection("Data Source=" & Servidor & ";Initial Catalog=ControlProduccion;Integrated Security=True")
        End If

        'Nombre del Proveedor de datos incariable
        cadena_conexion_controlProduccion.ProviderName = "System.Data.SqlClient"

        ConnectionStringsSection.ConnectionStrings.Add(cadena_conexion_controlProduccion)

        conectar_controlProduccion = New SqlConnection(cadena_conexion_controlProduccion.ConnectionString)

        'Guardamos los cambios en el archivo de configuracion 
        config.Save(ConfigurationSaveMode.Full, True)

        conectar_controlProduccion.Open()
    Catch
        Panel_Principal.estado_controlProduccion.ForeColor = Color.Red
        Panel_Principal.estado_controlProduccion.Text = "No Conectado"
        Conectar_Servidor.Show()
    End Try


End Sub
Sub abrir_etata2()
    Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(Application.ExecutablePath)

    Dim connectionStringsSection As ConnectionStringsSection = DirectCast(config.GetSection("connectionStrings"), ConnectionStringsSection)
    Dim conexion As New Conectar_Servidor

    leer_XML()

    Try
        Dim cadena_conexion_eTata As New ConnectionStringSettings()

        cadena_conexion_eTata.Name = "conectar_eTata"

        If (conexion.Check.Checked = True) Then
            cadena_conexion_eTata.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=eTata;User ID= " & Usuario & ";Password= " & Password
            conectar_eTata = New SqlConnection("Data Source=" & Servidor & ";Initial Catalog=eTata;User ID= " & Usuario & ";Password= " & Password)
        Else
            cadena_conexion_eTata.ConnectionString = "Data Source=" & Servidor & ";Initial Catalog=eTata;Integrated Security=True"
            conectar_eTata = New SqlConnection("Data Source=" & Servidor & ";Initial Catalog=eTata;Integrated Security=True")
        End If

        cadena_conexion_eTata.ProviderName = "System.Data.SqlClient"

        connectionStringsSection.ConnectionStrings.Add(cadena_conexion_eTata)

        conectar_eTata = New SqlConnection(cadena_conexion_eTata.ConnectionString)

        config.Save(ConfigurationSaveMode.Full, True)

        conectar_eTata.Open()
    Catch
        Panel_Principal.estado_eTata.ForeColor = Color.Red
        Panel_Principal.estado_eTata.Text = "No Conectado"
        Conectar_Servidor.Show()
    End Try

End Sub

Por último, presiono el botón para abrir el dashboard y en la parte de su codigo tengo estas lineas.

Public Sub New()
        InitializeComponent()

        abrir_controlProduccion2()

        Try
            If (conectar_controlProduccion.State = ConnectionState.Closed) Then
                conectar_controlProduccion.Open()
            End If

            Me.DashboardSqlDataSource1.ConnectionName = "conectar_controlProduccion"
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Error al cargar el dashboard.")
        End Try

    End Sub

Esto me sucede cada vez que abro un dashboard.

Cabe mencionar que realice las conexiones del los dashboard de esa forma, porque mi software tiene la opción de conectarse a distintos servidores. (Si alguien tiene una solución mejor a la que tengo aca, se lo agradeceria)

Gracias de antemano!

1 respuesta 1

0

Me falto agregarle los datos de conexión al dashboard.

Try
            abrir_eTata(GetConexion_eTata())

            Dim sqlDataSource As New DashboardSqlDataSource("Data Source 1", GetConexion_eTata())

            Me.DataSources.Add(sqlDataSource)

            cerrar_eTata(GetConexion_eTata())
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Error al cargar el dashboard.")
End Try
1
  • Aquí sólo van las respuestas a tu pregunta. Para añadir info, edita tu pregunta (busca el enlace editar bajo tu pregunta)
    – Alfabravo
    Commented el 21 oct. 2019 a las 14:23

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.