Principales respuestas
error cadena de conexion con usando App.config

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
Respuestas
-
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
-
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...............
- Marcado como respuesta Joyce_ACModerator martes, 10 de enero de 2017 16:16
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ú.
-
-
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
-
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...............
- Marcado como respuesta Joyce_ACModerator martes, 10 de enero de 2017 16:16