Ver Mensaje Individual
  #5 (permalink)  
Antiguo 23/09/2011, 10:00
Avatar de Aquaventus
Aquaventus
 
Fecha de Ingreso: junio-2010
Ubicación: Lima-Peru , En el alba de la naturaleza
Mensajes: 2.105
Antigüedad: 14 años
Puntos: 267
Respuesta: Duda agregar filas a DataGridView

Ahora eso se puede simplificar a esto, lo hize algo largo para que entiendas como fluye la logica, pero aca esta reducido codigo :

Código vb:
Ver original
  1. Try
  2. 'Declaro las varibles a usar
  3. Dim sql As String
  4. Dim cn As SqlConnection
  5. Dim cm As SqlCommand
  6. Dim da As SqlDataAdapter
  7. Dim ds As DataSet
  8. Dim registros As Int32
  9.  
  10. 'Creo la conexion a la base de datos
  11. cn = New SqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave")
  12.  
  13. 'Creamos la sentencia para extraer los datos del codigo ingresado
  14. sql = "SELECT RUT,NOMBRECLIENTE AS CLIENTE,DIRECCION,TELEFONO,EMAIL FROM TUTABLA WHERE RUT = @RUT"
  15.  
  16. cm = New SqlCommand()
  17.  
  18. cn.open()
  19.  
  20. cm.CommandText = sql
  21. cm.CommandType = CommandType.Text
  22. cm.Connection = cn
  23. cm.Parameters.Add("@RUT", SqlDbType.NVarChar(30))
  24. cm.Parameters("@RUT").Value = TuTextBox.Text
  25. da = New SqlDataAdapter(cm)
  26.  
  27. ds= New DataSet()
  28. 'lo almacenamos en un dataset
  29. da.Fill(ds)
  30. cn.Close()
  31.  
  32. 'Contamos del dataset los registros que tiene
  33. registros = ds.Tables(0).Rows.Count
  34.  
  35. 'si los registros son mayores 0
  36. If  registros > 0 Then
  37. 'quiere decir que ya existe el codigo ingresado
  38. 'agregamos los datos en la grilla
  39. TuDatagridView.Rows.Add(ds.Tables(0).Rows(0).Cells(0).Value.ToString(),ds.Tables(0).Rows(0).Cells(1).Value.ToString(),ds.Tables(0).Rows(0).Cells(2).Value.ToString(),ds.Tables(0).Rows(0).Cells(3).Value.ToString(),ds.Tables(0).Rows(0).Cells(4).Value.ToString())
  40. 'sino...
  41. Else
  42. 'No existe ningun registro con el codigo ingresado
  43. MessageBox.Show("No existe el codigo ingresado","Mensaje")
  44. End If
  45.  
  46. Catch ex As Exception
  47. MessageBox.show(ex.Message)
  48. End Try
__________________
Internet es tener todo el conocimiento global a tu disposición.
Desarrollo de Software - Ejemplos .Net

Última edición por Aquaventus; 23/09/2011 a las 10:22