none
error cadena de conexion con usando App.config RRS feed

  • Pregunta

  • Buenas a todos, programo en vb.net

    Estoy diseñando una cadena de conexión usando App.config

    El código me va quedan así: 

     <connectionStrings>
        <add name="cadenaConexionAppConfig" connectionStrin="Data Source = (local); Initial Catalog = DbSistemaFactura; User Id=xxx; Password=123;"/>
      </connectionStrings>

    En el registro Cliente: 

    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Configuration
    
    'Imports System.IO
    
    Public Class frmregistroCliente
    
        Protected configuracion As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("cadenaConexionAppConfig")
        Dim cadenaConexionAppConfig As New SqlConnection(configuracion.ConnectionString)
    


    todo va bien hasta ahí. 

    Using ConexionX As New SqlConnection(cadenaConexionAppConfig)
                        ConexionX.Open()
    
                        Dim Insertar As String = "INSERT INTO [dbo].[tbla_clientes] ([codigo_cliente], [fecha_nac_cli], [nom_cli], [apell_cli], [apod_cli], [dir_cli], [cuiud_cli], [estad_cli], [fec_reg], [ced_cli], [tel_cli], [ocu_cli], [sex_cli], [bal_cli], [memo_cli], [max_cre_cli], [des_cli], [ter_cli], [celul_cli], [dir_tra], [ingresomen_cli], [lugartrabajo_cli], [tel_tra], [eMail], [Facturar_Con_Precio], [TipoNCF], [ClienteEstaActivo], [TipoDeCliente])" & Chr(13) &
                            "VALUES (@codigo_cliente, @fecha_nac_cli, @nom_cli, @apell_cli, @apod_cli, @dir_cli, @cuiud_cli, @estad_cli, @fec_reg, @ced_cli, @tel_cli, @ocu_cli, @sex_cli, @bal_cli, @memo_cli, @max_cre_cli, @des_cli, @ter_cli, @celul_cli, @dir_tra, @ingresomen_cli, @lugartrabajo_cli, @tel_tra, @eMail, @Facturar_Con_Precio, @TipoNCF, @ClienteEstaActivo, @TipoDeCliente)"
    
                        Using Comando As New SqlCommand(Insertar, ConexionX)
                           
                            Comando.Parameters.AddWithValue("@codigo_cliente", Convert.ToInt64(TexCod_Cli.Text))
                            Comando.Parameters.AddWithValue("@fecha_nac_cli", txtFec_Nac_Cli.Text)
                            Comando.Parameters.AddWithValue("@nom_cli", txtnom_cli.Text)
                            Comando.Parameters.AddWithValue("@apell_cli", txtApe_Cli.Text)
                            Comando.Parameters.AddWithValue("@apod_cli", txtApodo_Cli.Text)
                            Comando.Parameters.AddWithValue("@dir_cli", txtDireccion_Cli.Text)
                            Comando.Parameters.AddWithValue("@cuiud_cli", txtCiudad_Cli.Text)
                            Comando.Parameters.AddWithValue("@estad_cli", cboestadocivi_Cli.Text)
                            Comando.Parameters.AddWithValue("@fec_reg", txtFechederegistro_Cli.Text)
                            Comando.Parameters.AddWithValue("@ced_cli", txtCedula_Cli.Text)
                            Comando.Parameters.AddWithValue("@tel_cli", txtTelefono_Cli.Text)
                            Comando.Parameters.AddWithValue("@ocu_cli", txtOcupacion_Cli.Text)
                            Comando.Parameters.AddWithValue("@sex_cli", cboSexo_Cli.Text)
                            Comando.Parameters.AddWithValue("@bal_cli", Convert.ToDouble(txtBalance_cli.Text))
                            Comando.Parameters.AddWithValue("@memo_cli", memoobservacion_Cli.Text)
                            Comando.Parameters.AddWithValue("@max_cre_cli", Convert.ToDouble(txtmaximo_credito_Cli.Text))
                            Comando.Parameters.AddWithValue("@des_cli", Convert.ToInt64(NumericUpDownUPorcentajeDscuento.Text))
                            Comando.Parameters.AddWithValue("@ter_cli", cboterminos_Cli.Text)
                            Comando.Parameters.AddWithValue("@celul_cli", txtCelular.Text)
                            Comando.Parameters.AddWithValue("@dir_tra", txtDireccion_Trabajo.Text)
                            Comando.Parameters.AddWithValue("@ingresomen_cli", Convert.ToDouble(txtIngresos_Mensuales.Text))
                            Comando.Parameters.AddWithValue("@lugartrabajo_cli", txtLugar_Trabajo.Text)
                            Comando.Parameters.AddWithValue("@tel_tra", txtTel_Trabajo.Text)
                            Comando.Parameters.AddWithValue("@eMail", txtEmail.Text.Trim())
                            Comando.Parameters.AddWithValue("@Facturar_Con_Precio", cboFacturarConPrecio.Text)
                            Comando.Parameters.AddWithValue("@TipoNCF", cbotiposNCF.Text)
                            Comando.Parameters.AddWithValue("@ClienteEstaActivo", CboClienteActivo.Text)
                            Comando.Parameters.AddWithValue("@TipoDeCliente", CboTipoCliente.Text)
                            'Ejecutamos la consulta
                            '
                            Comando.ExecuteNonQuery()
    
                        End Using
                    End Using

    Luego sale este error.

    Espero que puedan ayudarme. 

    Gracias de antemano. 


    • Editado EliannyRD lunes, 9 de enero de 2017 22:19
    lunes, 9 de enero de 2017 16:29

Respuestas

  • EliannyRD,

    Public Class frmregistroCliente
        
    Dim cadenaConexionAppConfig As String = 
    		ConfigurationManager.ConnectionStrings("cadenaConexionAppConfig").ToString()

    Using ConexionX As New SqlConnection(cadenaConexionAppConfig)

    Puedes evitar recuperar la cadena de conexión en cada clase que hereda de Form si defines la variable 'cadenaConexionAppConfig' a nivel de módulo con el objetivo de que este disponible para todas las clases.


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta EliannyRD lunes, 9 de enero de 2017 20:03
    lunes, 9 de enero de 2017 18:42
  • Resuelto 100x%

    la cadena de conexión funciona nítida. 

    hice tu ultima recomendación

      defines la variable 'cadenaConexionAppConfig' a nivel de módulo con el objetivo de que este disponible para todas las clases.

    todo salio bien gracias. 

    me Quedó así: 

    Imports System.Data.SqlClient
    Imports System.Configuration
    
    Module CadenaConexionAppConfg
    
        Public cadenaConexion As String =
      ConfigurationManager.ConnectionStrings("ConString").ToString()
    
    
    End Module
    

    Bendiciones............... 

    lunes, 9 de enero de 2017 20:03

Todas las respuestas

  •         Using ConexionX As New SqlConnection(cadenaConexionAppConfig.ToString)


    Si la respuesta te fue útil vótala como tal,y si fue respuesta márcala. Solo dejo en el foro mis post si fueron útiles , de lo contrario y por mantener el orden los borro. Saludos. Lima-Perú.

    lunes, 9 de enero de 2017 16:51
  • Gracias por contestar. 

    cuando guardo el registro, ahora sale otro error diferente. 

    lunes, 9 de enero de 2017 17:58
  • EliannyRD,

    Public Class frmregistroCliente
        
    Dim cadenaConexionAppConfig As String = 
    		ConfigurationManager.ConnectionStrings("cadenaConexionAppConfig").ToString()

    Using ConexionX As New SqlConnection(cadenaConexionAppConfig)

    Puedes evitar recuperar la cadena de conexión en cada clase que hereda de Form si defines la variable 'cadenaConexionAppConfig' a nivel de módulo con el objetivo de que este disponible para todas las clases.


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta EliannyRD lunes, 9 de enero de 2017 20:03
    lunes, 9 de enero de 2017 18:42
  • Resuelto 100x%

    la cadena de conexión funciona nítida. 

    hice tu ultima recomendación

      defines la variable 'cadenaConexionAppConfig' a nivel de módulo con el objetivo de que este disponible para todas las clases.

    todo salio bien gracias. 

    me Quedó así: 

    Imports System.Data.SqlClient
    Imports System.Configuration
    
    Module CadenaConexionAppConfg
    
        Public cadenaConexion As String =
      ConfigurationManager.ConnectionStrings("ConString").ToString()
    
    
    End Module
    

    Bendiciones............... 

    lunes, 9 de enero de 2017 20:03