DataGridView
Publicado por Diego Castaño (5 intervenciones) el 24/07/2009 23:56:02
Hola
En relidad tengo 2 preguntas y me hurge que sea resueltas lo mas pronto posible.
1- Necesito que cuando yo seleccione un registro de un DataGridView y al hacer click en un boton, ese registro me pase a unos textbox... pero los textbox estan en otro formulario
2- tengo este codigo que es para buscar desde un textbox los registros en la bd y traerlos al DataGridView... y no he podido resolverla... se que es facil pero no sse que me pasa...
el error me aparece en la parte del bueno en realidad no es un error si no que me dice que no se encuentra la funcion informacion_de_los _equipo o tambien kme sale que el
campo requerido en un objeto tabla...
try
Dim das As New SqlDataAdapter("(((aqui me sale)))Informacion_de_los_equipos", xCon)
si alguin me puede colaborar se les agradece... o si tienen otro codigo mejor
tambien se les recibe...
______________________________________________________________________
Public Class EQUIPOS
Dim a As New Conexion
Dim xCon As String = "Server=(LOCAL);integrated security=sspi;database=DBInventory;uid=sa;pwd=;"
Dim dt As New DataTable
Private Enum Campos
Codigo
NombreProducto
Enu
End Enum
Try
Dim das As New SqlDataAdapter("Informacion_de_los_equipos", xCon)
Existencias
das.SelectCommand.CommandType = CommandType.StoredProcedure
das.Fill(dt)
If dt.Rows.Count.Equals(0) Then
Me.DataGridView1.DataSource = dt
' Configurar la grilla
Me.DataGridView1.Columns(0).HeaderText = "IDequipo"
Me.DataGridView1.Columns(1).HeaderText = "Responsable"
Me.DataGridView1.Columns(2).HeaderText = "Cargo"
Me.DataGridView1.Columns(3).HeaderText = "Generador"
Me.DataGridView1.Columns(4).HeaderText = "Marca_Equipo"
Me.DataGridView1.Columns(5).HeaderText = "Referencia"
Me.DataGridView1.Columns(6).HeaderText = "Serial"
Me.DataGridView1.Columns(7).HeaderText = "Sede"
Me.DataGridView1.Columns(8).HeaderText = "Sistema_Operativo"
Me.DataGridView1.Columns(9).HeaderText = "Procesador"
Me.DataGridView1.Columns(10).HeaderText = "Velocidad_del_Procesador"
Me.DataGridView1.Columns(11).HeaderText = "Memoria"
Me.DataGridView1.Columns(12).HeaderText = "Tipo_de_Conector"
Me.DataGridView1.Columns(13).HeaderText = "Tamaño_de_Memoria"
Me.DataGridView1.Columns(14).HeaderText = "Monitor"
Me.DataGridView1.Columns(15).HeaderText = "Disco_Duro"
Me.DataGridView1.Columns(16).HeaderText = "Capacidad_Disco_Duro"
Me.DataGridView1.Columns(17).HeaderText = "Tipo_de_Disco_Duro"
Me.DataGridView1.Columns(18).HeaderText = "IP_de_equipo"
Me.DataGridView1.Columns(19).HeaderText = "Impresora"
Me.DataGridView1.Columns(20).HeaderText = "Serial_Impresora"
Me.DataGridView1.Columns(21).HeaderText = "Estado"
xx.Text = "Registros encontrados: " + dt.Rows.Count
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToUpper, "Aviso al usuario", MessageBoxButtons.OK)
End Try
end sub
Private Sub btnbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click
Call Filtrar(Me.txtbucar.Text, Campos.NombreProducto, False)
End Sub
Private Sub txtbucar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbucar.TextChanged
Call Filtrar(Me.txtbucar.Text, Campos.NombreProducto, True)
End Sub
Private Sub Filtrar(ByVal filtro As String, ByVal buscaren As Campos, ByVal porcoincidencia As Boolean)
Try
Dim vista As New DataView
vista.Table = dt
Dim str As String = String.Empty
Select Case buscaren
Case Campos.Codigo
str = "IDequipo LIKE '" & filtro & "%'"
Case Campos.NombreProducto
str = "Responsable LIKE '" & filtro & "%'"
End Select
If Not porcoincidencia Then
str = str.Replace("LIKE", "=")
End If
vista.RowFilter = str
Me.DataGridView1.DataSource = vista
Me.DataGridView1.Update()
Dim cnt As Integer = vista.Count
Me.xx.Text = "Registros encontrados: " & cnt
Catch ex As Exception
MessageBox.Show(ex.Message.ToUpper, "Aviso al usuario", MessageBoxButtons.OK)
End Try
End Sub
End Class
se le agradece
En relidad tengo 2 preguntas y me hurge que sea resueltas lo mas pronto posible.
1- Necesito que cuando yo seleccione un registro de un DataGridView y al hacer click en un boton, ese registro me pase a unos textbox... pero los textbox estan en otro formulario
2- tengo este codigo que es para buscar desde un textbox los registros en la bd y traerlos al DataGridView... y no he podido resolverla... se que es facil pero no sse que me pasa...
el error me aparece en la parte del bueno en realidad no es un error si no que me dice que no se encuentra la funcion informacion_de_los _equipo o tambien kme sale que el
campo requerido en un objeto tabla...
try
Dim das As New SqlDataAdapter("(((aqui me sale)))Informacion_de_los_equipos", xCon)
si alguin me puede colaborar se les agradece... o si tienen otro codigo mejor
tambien se les recibe...
______________________________________________________________________
Public Class EQUIPOS
Dim a As New Conexion
Dim xCon As String = "Server=(LOCAL);integrated security=sspi;database=DBInventory;uid=sa;pwd=;"
Dim dt As New DataTable
Private Enum Campos
Codigo
NombreProducto
Enu
End Enum
Try
Dim das As New SqlDataAdapter("Informacion_de_los_equipos", xCon)
Existencias
das.SelectCommand.CommandType = CommandType.StoredProcedure
das.Fill(dt)
If dt.Rows.Count.Equals(0) Then
Me.DataGridView1.DataSource = dt
' Configurar la grilla
Me.DataGridView1.Columns(0).HeaderText = "IDequipo"
Me.DataGridView1.Columns(1).HeaderText = "Responsable"
Me.DataGridView1.Columns(2).HeaderText = "Cargo"
Me.DataGridView1.Columns(3).HeaderText = "Generador"
Me.DataGridView1.Columns(4).HeaderText = "Marca_Equipo"
Me.DataGridView1.Columns(5).HeaderText = "Referencia"
Me.DataGridView1.Columns(6).HeaderText = "Serial"
Me.DataGridView1.Columns(7).HeaderText = "Sede"
Me.DataGridView1.Columns(8).HeaderText = "Sistema_Operativo"
Me.DataGridView1.Columns(9).HeaderText = "Procesador"
Me.DataGridView1.Columns(10).HeaderText = "Velocidad_del_Procesador"
Me.DataGridView1.Columns(11).HeaderText = "Memoria"
Me.DataGridView1.Columns(12).HeaderText = "Tipo_de_Conector"
Me.DataGridView1.Columns(13).HeaderText = "Tamaño_de_Memoria"
Me.DataGridView1.Columns(14).HeaderText = "Monitor"
Me.DataGridView1.Columns(15).HeaderText = "Disco_Duro"
Me.DataGridView1.Columns(16).HeaderText = "Capacidad_Disco_Duro"
Me.DataGridView1.Columns(17).HeaderText = "Tipo_de_Disco_Duro"
Me.DataGridView1.Columns(18).HeaderText = "IP_de_equipo"
Me.DataGridView1.Columns(19).HeaderText = "Impresora"
Me.DataGridView1.Columns(20).HeaderText = "Serial_Impresora"
Me.DataGridView1.Columns(21).HeaderText = "Estado"
xx.Text = "Registros encontrados: " + dt.Rows.Count
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToUpper, "Aviso al usuario", MessageBoxButtons.OK)
End Try
end sub
Private Sub btnbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click
Call Filtrar(Me.txtbucar.Text, Campos.NombreProducto, False)
End Sub
Private Sub txtbucar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbucar.TextChanged
Call Filtrar(Me.txtbucar.Text, Campos.NombreProducto, True)
End Sub
Private Sub Filtrar(ByVal filtro As String, ByVal buscaren As Campos, ByVal porcoincidencia As Boolean)
Try
Dim vista As New DataView
vista.Table = dt
Dim str As String = String.Empty
Select Case buscaren
Case Campos.Codigo
str = "IDequipo LIKE '" & filtro & "%'"
Case Campos.NombreProducto
str = "Responsable LIKE '" & filtro & "%'"
End Select
If Not porcoincidencia Then
str = str.Replace("LIKE", "=")
End If
vista.RowFilter = str
Me.DataGridView1.DataSource = vista
Me.DataGridView1.Update()
Dim cnt As Integer = vista.Count
Me.xx.Text = "Registros encontrados: " & cnt
Catch ex As Exception
MessageBox.Show(ex.Message.ToUpper, "Aviso al usuario", MessageBoxButtons.OK)
End Try
End Sub
End Class
se le agradece
Valora esta pregunta


0