Cual es el error? Insertar datos a textbox

[DavidNovato]

Buenos Dias,
Bueno amigos aca tengo un inconveniente medio raro, tengo que llenar varios textbox con datos de una BD.. tengo el codigo y todo.. lo curioso aqui es que en 1 FORM el codigo funciona a la perfeccion, pero en otro no lo hace.. :s

aca les dejo el codigo para ver si me pueden ayudar:

Código vb:

Dim dt As New DataTable
        Dim conec As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "Select nombre, sede, direccion, nombre_contacto, telefono_contacto from proveedor where ID_proveedor =" + cboproveedor4.SelectedValue.ToString
        Dim cmd As New MySqlCommand(consulta, conec)
 
        Dim dr As MySqlDataReader
 
        conec.Open()
 
        dr = cmd.ExecuteReader()
 
        If dr.Read() Then
            Me.txtveamosssss.Text() = dr.Item("nombre").ToString()
            Me.txtpruebaaaass.Text() = dr.Item("sede").ToString()
            Me.txtmdpro.Text() = dr.Item("direccion").ToString()
            Me.txtmnpro.Text() = dr.Item("nombre_contacto").ToString()
            Me.txtmtpro.Text() = dr.Item("telefono_contacto").ToString()
        End If
        dr.Close()
        conec.Close()
 

El error ocurre en:

Código vb:

dr = cmd.ExecuteReader()
 

me dic lo siguiente :"Unknown column 'System.Data.DataRowView' in 'where clause'"

PD: trabajo cn windows forms, BD Mysql..

Gracias de antemano. Saludos

[cristiantorres]

El error lo tienes en la consulta en el where primeramente te faltan los parentesis del metodo Tostring(), pero bueno de todos modos no lo hagas así usa parámetros.

Código vb.net:

Dim consulta As String = "Select nombre, sede, direccion, nombre_contacto, telefono_contacto from proveedor where ID_proveedor =@id" 
Dim cmd As New MySqlCommand(consulta, conec)
cmd.Parameters.AddWithValue("@id", cboproveedor4.SelectedValue.ToString())
'TU DEMÁS CODIGO
 

Ademas porque declaras un datatable al principio si utilizas datareader.

[DavidNovato]

Hice lo que me dijste y da error.. dice :"Referencia a objeto no establecida como instancia de un objeto." en la linea

Código vb:

cmd.Parameters.AddWithValue("@id", cboproveedor4.SelectedValue.ToString())
 

:S .. Como te digo es raro porq en otros forms sii funciona ese codigo..

[cristiantorres]

Pues si esta raro y en los otros form utilizas el combobox para filtrar los datos?

El combobox esta enlazado a un origen de datos vdd?
Has definido las propiedades ValueMember y DisplayMember del combobox

[DavidNovato]

Si en el otro forms utilizo un combobox para filtrar los datos, si esta enlazado a un origen de datos, y sii he definido las propiedades.. por eso me extraña que no funcione :/

[Dradi7]

En que evento realizas la invocación de estas lineas de código

[DavidNovato]

cboproveedor4.SelectedIndexChanged

[Dradi7]

Entonces ahi puede estar el error lo que sucede es que cuando carga el load del formulario siempre se ejecuta los eventos que sean de tipo change para estos debes validarlos de la siguiente forma para que no te parezca algún error

Código vb.net:

Dim cargo as boolean = false
public sub form1_load()
// al final de tu codigo
cargo = true
end sub
 

luego en cualquier evento que sea de tipo change o otro pon esto y debes validar siempre que en cada funcion que se llama en el load y que involucre controles con evento change validar primero si la variable cargo = true sino entonces envia como nothing

Código vb.net:

public sub cboproveedor4_SelectedIndexChanged()
if cargo then
// aca pones lo que quieres hacer, si es que hubiera codigo
end if
end sub
 

[DavidNovato]

Dradi7! Hice lo que me dijiste y funciono .. me llena todos los textbox sin problemas.. como esos forms son para modificar los datos, una vz q los modifico y le doy al boton guardar me aparece el mismo error .. "Referencia a objeto no establecida como instancia de un objeto." en la misma linea de codigo.. :S

Código vb:

Dim consulta As String = "Select nombre, sede, direccion, nombre_contacto, telefono_contacto from proveedor where ID_proveedor =" + cboproveedor4.SelectedValue.ToString()
 

[cristiantorres]

Revisando detenidamente tu código y por el error que te muestra es que al momento de declarar el dataerader no declaraste la instancia del mismo es decir te falto New.

Código vb.net:

Dim dr As New MySqlDataReader
 

[DavidNovato]

Intente lo que me dijste.. pero m subraya la variable "dr" y m dice lo siguiente :

No se puede tener acceso a 'MySql.Data.MySqlClient.MySqlDataReader.Private Sub New(cmd As MySql.Data.MySqlClient.MySqlCommand, statement As MySql.Data.MySqlClient.PreparableStatement, behavior As System.Data.CommandBehavior)' en este contexto debido a que es 'Private'.

[cristiantorres]

Si se me fue asi esta mal. Borra esa linea donde lo declaras esa linea y la declaras hasta que ejecutes el comando.

Código vb.net:

Dim dr As MySqlDataReader = cmd.ExecuteReader()
 

Pero seria igual a como la tenias antes, pero dices que te carga los datos en los textbox y que el error te lo muestra cuando haces la actualización de los datos, como actualizas los datos.

[DavidNovato]

En el forms aparte de los textbox, tngo 2 combobox.. ya verifique y el problema es la manera en la actulizo los combobox que es de la siguiente manera :

Código vb:

cboproveedor4.DataSource = Nothing
        cboproveedor4.DataSource = DatosProveedor()
        cboproveedor4.DisplayMember = "nombre"
        cboproveedor4.ValueMember = "ID_proveedor"
        cboproveedor4.SelectedIndex = -1
 

asi actualizo el combobox, quite ese codigo y al ejecutarlo no me da error... pero necesito que se actualicen :/ cual seria otra manera d actualizar? para que no m de error?

[cristiantorres]

Pero despues que haces el update volves a llenar tu combobox, osea después que actualizas los datos tenes que volver a cargar los datos del combobox con el código que has puesto la primera linea quitarla.

Código vb.net:

'AQUÍ TIENES EL CÓDIGO PARA EL UPDATE
 
'LUEGO SOLO VOLVES A CARGAR LOS DATOS AL COMBOBOX
 
cboproveedor4.DataSource = DatosProveedor()
cboproveedor4.DisplayMember = "nombre"
cboproveedor4.ValueMember = "ID_proveedor"
 

Así lo haces?

[DavidNovato]

Si lo hago de esa manera.. pero con esta linea primero :

Código vb:

cboproveedor4.DataSource = Nothing
 

porq vacio el combo y luego lo vuelvo a cargar, vez?

[cristiantorres]

Pues si que esta raro tu caso, y la actualización a los datos los haces en el mismo form donde tienes este combobox o haces el update en otro form?

[Dradi7]

Primero verifica bien si en tu
cboproveedor4.SelectedValue devuelve algo, en caso no devuelva nada es decir devuela null o nothing y tu al estar haciendo esto cboproveedor4.SelectedValue.ToString() generara error la forma correcta de poder convertir objetos posibles null a string es de la siguientes formas

Convert.ToString(cboproveedor4.SelectedValue)
String.Format("{0:G}",cboproveedor4.SelectedValue)

Ambas devolveran ya correctamente el dato sin que se genere el error molesto

Lo que si es que debes ver si esta correctamente enlazado tu combobox y si al momento de guardar tiene un dato o un valor en la propiedad de SelectedValue siempre trata de realizar seguimiento paso a paso tu código

[DavidNovato]

Si cristiantorres en el mismo forms.!.. lo curiosoo es que ese mismo procedimiento lo tengo en otro forms que tambn es de modificacion y funciona sin problemas :S es lo que no entiendo xq en uno funciona bien y en el otro me da ese error...

Dradi7 intentare lo que dices a verrr...