datagriview ayuda
Publicado por diego castaño (5 intervenciones) el 14/08/2009 20:51:11
hola...
bueno en realidad tengo un dilema es este datagriview...
la idea que yo tengo es que al ser selecionado un registro de ese datagriview,
me lo lleve a unos texbox... pero estos textbox estan en otro formalario...
intente con este codigo pero.
1- me muestra o me mostraba ya no jejje... el primer campo
nota vale aclaran que el datagriview esta conectado con una base de datos por medio de codigo... tons es el primer registro el que se ve en los textbox
este es el codigo:
// definicion de variables....
MAESTRAS: es el otro formulario al cual debo llevar la informacion osea que los textbox estan aqui...
chanfle aunque bienodo bien mmm como hago o que hago para decirle que lo que seleciono es lo que debo llevar...
Dim cs As New SqlConnection("Server=(LOCAL);integrated security=sspi;database=DBInventory;uid=sa;pwd=;")
Dim cmd1 As New SqlCommand("select count(*) as RowNumber from Informacion_de_los_equipos", cs)
cs.Open()
Dim da1 As SqlDataReader = cmd1.ExecuteReader()
da1.Read()
Dim RowNumber As Integer = CInt(da1(0))
da1.Close()
Dim cmd As New SqlCommand("SELECT IDequipo,Responsable,Cargo,Generador,Marca_Equipo,Referencia,Serial,Sede,Sistema_Operativo,Procesador,Velocidad_del_Procesador,Memoria,Tipo_de_Conector,Tamaño_de_Memoria,Monitor,Disco_Duro,Tipo_de_Disco_Duro,Impresora,Serial_Impresora,Estado,* FROM Informacion_de_los_equipos ", cs)
Dim da As SqlDataReader = cmd.ExecuteReader()
Dim dt As New DataTable()
Dim ds As New DataSet
dt.Columns.Add("IDequipo", GetType(String))
dt.Columns.Add("Responsable", GetType(String))
dt.Columns.Add("Cargo", GetType(String))
dt.Columns.Add("Generador", GetType(String))
dt.Columns.Add("Marca_Equipo", GetType(String))
dt.Columns.Add("Referencia", GetType(String))
dt.Columns.Add("Serial", GetType(String))
dt.Columns.Add("Sede", GetType(String))
dt.Columns.Add("Sistema_Operativo", GetType(String))
dt.Columns.Add("Procesador", GetType(String))
dt.Columns.Add("Velocidad_del_Procesador", GetType(String))
dt.Columns.Add("Memoria", GetType(String))
dt.Columns.Add("Tipo_de_Conector", GetType(String))
dt.Columns.Add("Tamaño_de_Memoria", GetType(String))
dt.Columns.Add("Monitor", GetType(String))
dt.Columns.Add("Disco_Duro", GetType(String))
dt.Columns.Add("Capacidad_Disco_Duro", GetType(String))
dt.Columns.Add("Tipo_de_Disco_Duro", GetType(String))
dt.Columns.Add("IP_de_Equipo ", GetType(String))
dt.Columns.Add("Impresora", GetType(String))
dt.Columns.Add("Serial_Impresora", GetType(String))
dt.Columns.Add("Estado", GetType(String))
While da.Read()
Dim tempRow As DataRow = dt.NewRow()
tempRow(0) = da(0)
tempRow(1) = da(1)
tempRow(2) = da(2)
tempRow(3) = da(3)
tempRow(4) = da(4)
tempRow(5) = da(5)
tempRow(6) = da(6)
tempRow(7) = da(7)
tempRow(8) = da(8)
tempRow(9) = da(9)
tempRow(10) = da(10)
tempRow(11) = da(11)
tempRow(12) = da(12)
tempRow(13) = da(13)
tempRow(14) = da(14)
tempRow(15) = da(15)
tempRow(16) = da(16)
tempRow(17) = da(17)
tempRow(18) = da(18)
tempRow(19) = da(19)
tempRow(20) = da(20)
tempRow(21) = da(21)
dt.Rows.Add(tempRow)
End While
ds.Tables.Add()
Me.DataGridView1.DataSource = dt
MAESTRAS.txtidequipo.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(0).Value)
MAESTRAS.txtresponsable.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(1).Value)
MAESTRAS.txtcargo.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(2).Value)
MAESTRAS.txtgenerador.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(3).Value)
MAESTRAS.txtmarca.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(4).Value)
MAESTRAS.txtreferencia.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(5).Value)
MAESTRAS.txtserial.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(6).Value)
MAESTRAS.txtsede.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(7).Value)
MAESTRAS.txtsistema.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(8).Value)
MAESTRAS.txtprocesador.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(9).Value)
MAESTRAS.txtvelocidadp.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(10).Value)
MAESTRAS.txtmemoria.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(11).Value)
MAESTRAS.txttipocone.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(12).Value)
MAESTRAS.txttamañomemoria.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(13).Value)
MAESTRAS.txtmonitor.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(14).Value)
MAESTRAS.txtdisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(15).Value)
MAESTRAS.txtcapacidaddisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(16).Value)
MAESTRAS.txttipodisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(17).Value)
MAESTRAS.txtip.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(18).Value)
MAESTRAS.txtimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(19).Value)
MAESTRAS.txtseriaimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(20).Value)
MAESTRAS.txtestadoimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(21).Value)
MAESTRAS.Show()
Me.Hide()
bueno en realidad tengo un dilema es este datagriview...
la idea que yo tengo es que al ser selecionado un registro de ese datagriview,
me lo lleve a unos texbox... pero estos textbox estan en otro formalario...
intente con este codigo pero.
1- me muestra o me mostraba ya no jejje... el primer campo
nota vale aclaran que el datagriview esta conectado con una base de datos por medio de codigo... tons es el primer registro el que se ve en los textbox
este es el codigo:
// definicion de variables....
MAESTRAS: es el otro formulario al cual debo llevar la informacion osea que los textbox estan aqui...
chanfle aunque bienodo bien mmm como hago o que hago para decirle que lo que seleciono es lo que debo llevar...
Dim cs As New SqlConnection("Server=(LOCAL);integrated security=sspi;database=DBInventory;uid=sa;pwd=;")
Dim cmd1 As New SqlCommand("select count(*) as RowNumber from Informacion_de_los_equipos", cs)
cs.Open()
Dim da1 As SqlDataReader = cmd1.ExecuteReader()
da1.Read()
Dim RowNumber As Integer = CInt(da1(0))
da1.Close()
Dim cmd As New SqlCommand("SELECT IDequipo,Responsable,Cargo,Generador,Marca_Equipo,Referencia,Serial,Sede,Sistema_Operativo,Procesador,Velocidad_del_Procesador,Memoria,Tipo_de_Conector,Tamaño_de_Memoria,Monitor,Disco_Duro,Tipo_de_Disco_Duro,Impresora,Serial_Impresora,Estado,* FROM Informacion_de_los_equipos ", cs)
Dim da As SqlDataReader = cmd.ExecuteReader()
Dim dt As New DataTable()
Dim ds As New DataSet
dt.Columns.Add("IDequipo", GetType(String))
dt.Columns.Add("Responsable", GetType(String))
dt.Columns.Add("Cargo", GetType(String))
dt.Columns.Add("Generador", GetType(String))
dt.Columns.Add("Marca_Equipo", GetType(String))
dt.Columns.Add("Referencia", GetType(String))
dt.Columns.Add("Serial", GetType(String))
dt.Columns.Add("Sede", GetType(String))
dt.Columns.Add("Sistema_Operativo", GetType(String))
dt.Columns.Add("Procesador", GetType(String))
dt.Columns.Add("Velocidad_del_Procesador", GetType(String))
dt.Columns.Add("Memoria", GetType(String))
dt.Columns.Add("Tipo_de_Conector", GetType(String))
dt.Columns.Add("Tamaño_de_Memoria", GetType(String))
dt.Columns.Add("Monitor", GetType(String))
dt.Columns.Add("Disco_Duro", GetType(String))
dt.Columns.Add("Capacidad_Disco_Duro", GetType(String))
dt.Columns.Add("Tipo_de_Disco_Duro", GetType(String))
dt.Columns.Add("IP_de_Equipo ", GetType(String))
dt.Columns.Add("Impresora", GetType(String))
dt.Columns.Add("Serial_Impresora", GetType(String))
dt.Columns.Add("Estado", GetType(String))
While da.Read()
Dim tempRow As DataRow = dt.NewRow()
tempRow(0) = da(0)
tempRow(1) = da(1)
tempRow(2) = da(2)
tempRow(3) = da(3)
tempRow(4) = da(4)
tempRow(5) = da(5)
tempRow(6) = da(6)
tempRow(7) = da(7)
tempRow(8) = da(8)
tempRow(9) = da(9)
tempRow(10) = da(10)
tempRow(11) = da(11)
tempRow(12) = da(12)
tempRow(13) = da(13)
tempRow(14) = da(14)
tempRow(15) = da(15)
tempRow(16) = da(16)
tempRow(17) = da(17)
tempRow(18) = da(18)
tempRow(19) = da(19)
tempRow(20) = da(20)
tempRow(21) = da(21)
dt.Rows.Add(tempRow)
End While
ds.Tables.Add()
Me.DataGridView1.DataSource = dt
MAESTRAS.txtidequipo.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(0).Value)
MAESTRAS.txtresponsable.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(1).Value)
MAESTRAS.txtcargo.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(2).Value)
MAESTRAS.txtgenerador.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(3).Value)
MAESTRAS.txtmarca.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(4).Value)
MAESTRAS.txtreferencia.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(5).Value)
MAESTRAS.txtserial.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(6).Value)
MAESTRAS.txtsede.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(7).Value)
MAESTRAS.txtsistema.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(8).Value)
MAESTRAS.txtprocesador.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(9).Value)
MAESTRAS.txtvelocidadp.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(10).Value)
MAESTRAS.txtmemoria.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(11).Value)
MAESTRAS.txttipocone.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(12).Value)
MAESTRAS.txttamañomemoria.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(13).Value)
MAESTRAS.txtmonitor.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(14).Value)
MAESTRAS.txtdisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(15).Value)
MAESTRAS.txtcapacidaddisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(16).Value)
MAESTRAS.txttipodisco.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(17).Value)
MAESTRAS.txtip.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(18).Value)
MAESTRAS.txtimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(19).Value)
MAESTRAS.txtseriaimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(20).Value)
MAESTRAS.txtestadoimpresora.Text = Convert.ToString(Me.DataGridView1.CurrentRow.Cells(21).Value)
MAESTRAS.Show()
Me.Hide()
Valora esta pregunta


0