Visual Basic.NET - DataGridView

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:DataGridView

Publicado por Damian (824 intervenciones) el 25/07/2009 00:39:16
Para tu primera pregunta deberias crearte variables publicas en donde esta tu datagridview y luego con esa variable la llamasdesde el otro form asignandolas a sus textbox, pero debes ponerlas como Shared para no perder sus valores, quedaria asi:
Public Shared miVar As String

recuerda luego de vaciar la variable una vez pasada a los textbox

Tu segunda pregunta no la comprendo, lo que quieres es guardar en tu datagridview los registros que se correspondan a lo que esta en las cajas de texto?. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:DataGridView

Publicado por Diego Castaño (5 intervenciones) el 25/07/2009 03:57:47
hola

no en realidad la segunada en buscar.. desde un textbox no guardar
y voy a ensayar lo que medijiste...

se le agredece
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar