Pasar datos datagrid view a textbox!!
Publicado por Ana Centeno (9 intervenciones) el 26/06/2008 20:03:49
Buenas, tengo un datagridview y varios textbox , y necesito q a medida q recorro el datagrid se muestren los datos del datagridview en los textbox, pero el problema es que solo algunas columnas se muestran en el datagridview y los demas datos los tengo que obtener de la base de datos.. el codigo que tengo es el siguiente:
'EN ESTA LINEA ESTABLEZCO QUE EL CAMPO CODIGO QUE SE MUESTRA EN EL GRID SE MUESTRE EN EL TEXTBOX CUANDO SELECCIONE LA CELDA CORRESPONDIENTE
Me.codigo.Text = DataGridView1.CurrentRow.Cells(0).Value
' Y A PARTIR DE ACA ES DONDE ESTA EL PROBLEMA YA QUE SI UTILIZO EL READER PARA COLOCAR LOS CAMPOS QUE NO SE MUESTRAN EN EL GRID PERO QUE ESTAN EN LA BASE DE DATOS NO TOMA EL DATO QUE ESTOY SELECCIONANDO NI LO MUESTRA EN LOS TEXTBOX...
Dim mycommand
Dim MyReader As Data.OleDb.OleDbDataReader
'ESTE ES UN PROCEDIMIENTO ALMACENADO QUE CARGA EL CONNECTION STRING
cargas()
mycommand = New Data.OleDb.OleDbCommand("SELECT * FROM clientes WHERE codigocli ='" & codigo.Text & "'", AccConexion)
MyReader = mycommand.ExecuteReader()
While MyReader.Read
Me.nombre.Text = MyReader("nombrecli")
Me.tipo.Text = MyReader("tipocli")
Me.rif.Text = MyReader("rifcli")
Me.zona.Text = MyReader("zonacli")
Me.tlf.Text = MyReader("telefonocli")
Me.fecha.Text = MyReader("fecharegcli")
Me.direccion.Text = MyReader("direccioncli")
Me.pais.Text = MyReader("paiscli")
'nombre.DataBindings.Add("text", dataSource:= ClientesBindingSource1, "clientes.Nombrecli")
'rif.DataBindings.Add("text", ClientesBindingSource1, "clientes.rifcli")
End While
AccConexion.Close()
MyReader.Close()
mycommand.dispose()
LES AGRADEZCO EN LO QUE ME PUEDAN AYUDAR!!
'EN ESTA LINEA ESTABLEZCO QUE EL CAMPO CODIGO QUE SE MUESTRA EN EL GRID SE MUESTRE EN EL TEXTBOX CUANDO SELECCIONE LA CELDA CORRESPONDIENTE
Me.codigo.Text = DataGridView1.CurrentRow.Cells(0).Value
' Y A PARTIR DE ACA ES DONDE ESTA EL PROBLEMA YA QUE SI UTILIZO EL READER PARA COLOCAR LOS CAMPOS QUE NO SE MUESTRAN EN EL GRID PERO QUE ESTAN EN LA BASE DE DATOS NO TOMA EL DATO QUE ESTOY SELECCIONANDO NI LO MUESTRA EN LOS TEXTBOX...
Dim mycommand
Dim MyReader As Data.OleDb.OleDbDataReader
'ESTE ES UN PROCEDIMIENTO ALMACENADO QUE CARGA EL CONNECTION STRING
cargas()
mycommand = New Data.OleDb.OleDbCommand("SELECT * FROM clientes WHERE codigocli ='" & codigo.Text & "'", AccConexion)
MyReader = mycommand.ExecuteReader()
While MyReader.Read
Me.nombre.Text = MyReader("nombrecli")
Me.tipo.Text = MyReader("tipocli")
Me.rif.Text = MyReader("rifcli")
Me.zona.Text = MyReader("zonacli")
Me.tlf.Text = MyReader("telefonocli")
Me.fecha.Text = MyReader("fecharegcli")
Me.direccion.Text = MyReader("direccioncli")
Me.pais.Text = MyReader("paiscli")
'nombre.DataBindings.Add("text", dataSource:= ClientesBindingSource1, "clientes.Nombrecli")
'rif.DataBindings.Add("text", ClientesBindingSource1, "clientes.rifcli")
End While
AccConexion.Close()
MyReader.Close()
mycommand.dispose()
LES AGRADEZCO EN LO QUE ME PUEDAN AYUDAR!!
Valora esta pregunta


0