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!