error cadena de conexion con usando App.config

Question

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. 

Answer 1

        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ú.

Answer 2

Gracias por contestar. 

cuando guardo el registro, ahora sale otro error diferente. 

Answer 3

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.

Answer 4

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...............