Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/12/2012, 14:55
Avatar de Lerolero
Lerolero
 
Fecha de Ingreso: junio-2012
Mensajes: 18
Antigüedad: 11 años, 11 meses
Puntos: 0
Llenar grilla campo por campo

Hola,
Estoy realizando una aplicación en la que el form se debe actualizar, cada vez que haya un cambio en la base de datos. Con base en un ejemplo lo logre.

Lo que quiero es que cuando se traigan los datos, se puedan evaluar y según eso muestre una imagen en la grilla. Algo parecido a lo que esta en comentario

Con el codigo actual, trae todos los datos de una y llena la grilla, y no se pueden evaluar los datos uno a uno.

Código vb:
Ver original
  1. Private Sub ObtenerDatos()
  2.         'Se vacia la información del dataset
  3.        'ya que solo hay uno para controlar los datos
  4.        ds.Clear()
  5.  
  6.         'Se asegura que el objeto de comando no tiene ya
  7.        'Un objeto de notificación asociado.
  8.        command.Notification = Nothing
  9.  
  10.         'Se crea y enlaza el objeto SqlDependency
  11.        'Para el objeto de comando.
  12.        Dim dependency As New SqlDependency(command)
  13.         AddHandler dependency.OnChange, AddressOf dependency_OnChange
  14.         Using adapter As New SqlDataAdapter(command)
  15.  
  16.  
  17.             'If dgv_pruebasvehiculo.Rows.Count > 0 Then
  18.            '    dgv_pruebasvehiculo.Rows.Clear() 'limpiar el datagridview
  19.            'End If
  20.            'Try
  21.            '    'Se ejecuta la consulta
  22.            '    ADONet_Query(ds, GetSQL())
  23.  
  24.  
  25.             '    For i = 0 To ds.Tables(0).Rows.Count - 1 Step 1
  26.  
  27.  
  28.             '        'Asignacion de campos
  29.            '        If ds.Tables(0).Rows(0).Item(1).ToString = "S" Then
  30.            '            G_FRENOS = "REALIZAR PRUEBA"
  31.            '        Else
  32.            '            If ds.Tables(0).Rows(0).Item(1).ToString = "N" Then
  33.            '                G_FRENOS = "NO APLICA"
  34.            '            Else
  35.            '                If ds.Tables(0).Rows(0).Item(1).ToString = "E" Then
  36.            '                    G_FRENOS = "EJECUTADO"
  37.            '                End If
  38.            '            End If
  39.            '        End If
  40.  
  41.             '        dgv_pruebasvehiculo.Rows.Add(G_FRENOS)
  42.            '    Next
  43.            'Catch ex As Exception
  44.            '    MsgBox(ex.Message)
  45.            'End Try
  46.  
  47.             adapter.Fill(ds, nombreTabla)
  48.             Me.DataGridView1.DataSource = ds
  49.             Me.DataGridView1.DataMember = nombreTabla
  50.         End Using
  51.     End Sub