document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private hconn As Connection
  4. Private hresult As Result
  5.  
  6. Public Sub Form_Open()
  7.   \'ajuste la posición de la ventana al lado del formulario principal
  8.  
  9.   ColumnViewTabla.PopupMenu = "Menu1"
  10.  
  11.   \'formateo columview
  12.   formato()
  13.   \'cargo los datos en el columview
  14.   recarga("")
  15.  
  16. End
  17.  
  18. Public Sub formato()
  19.  
  20.   With ColumnViewTabla
  21.     .Columns.count = 5
  22.     .Columns[0].text = "id"
  23.     .Columns[0].Width = 20
  24.     .Columns[1].text = "Nombre"
  25.     .Columns[1].Width = 100
  26.     .Columns[2].text = "Apellidos"
  27.     .Columns[2].Width = 150
  28.     .Columns[3].text = "Edad"
  29.     .Columns[3].Width = 50
  30.     .Columns[4].text = "Fecha nacimiento"
  31.   End With
  32.  
  33. End
  34.  
  35. Public Sub recarga(sentenciaSQL As String)
  36.  
  37.   ColumnViewTabla.Clear
  38.   formato()
  39.   hconn = ModComun.ConectarBase()
  40.  
  41.   If sentenciaSQL = "" Then
  42.     hresult = hconn.Exec("Select * from Personas")
  43.   Else
  44.     hresult = hconn.Exec(sentenciaSQL)
  45.   Endif
  46.  
  47.   \'relleno los datos
  48.   RellenarColumnView(hresult)
  49.  
  50. End
  51.  
  52. Public Sub RellenarColumnView(resultado As Result)
  53.  
  54.   Dim clave As String
  55.  
  56.   ColumnViewTabla.Clear
  57.   formato()
  58.   \'relleno los datos
  59.   Do While resultado.Available
  60.     clave = resultado["id"]
  61.     ColumnViewTabla.Add(clave, clave)
  62.    
  63.     ColumnViewTabla[clave][1] = resultado["nombre"]
  64.     ColumnViewTabla[clave][2] = resultado["apellidos"]
  65.     ColumnViewTabla[clave][3] = resultado["edad"]
  66.     ColumnViewTabla[clave][4] = Format(resultado["fecha_nacimiento"], "dd/mm/yyyy")
  67.     resultado.MoveNext
  68.   Loop
  69.  
  70. End
  71.  
  72. Public Sub Menu1Editar_Click()
  73.  
  74.   hresult = hconn.Edit("Personas", "id=&1", ColumnViewTabla.Current.key)
  75.  
  76.   FMain.SetActivoModoEditor(hresult)
  77.  
  78. End
  79.  
  80. Public Sub Menu1Borrar_Click()
  81.  
  82.   hconn = ModComun.ConectarBase()
  83.   hconn.Delete("Personas", "id=&1", ColumnViewTabla.Current[0])
  84.  
  85.   \'cargo los datos en el columview
  86.   recarga("")
  87.  
  88. End
  89.  
  90. Public Sub Menu1Buscar_Click()
  91.  
  92.   Dim cadena As String
  93.  
  94.   cadena = InputBox("Busqueda por nombre:", "Filtrar contenido de nombre", "")
  95.  
  96.   cadena = "%" & cadena & "%" \'uso % para busquedas por contendio
  97.   hresult = hconn.Find("Personas", "nombre like &1", cadena) \'solo busco en el campo "nombre"
  98.  
  99.   RellenarColumnView(hresult)
  100.  
  101. End
  102.  
  103. Public Sub Menu1QuitarFiltro_click()
  104.   \'quito el filtro, mostrando todos los registros  
  105.  
  106.   recarga("")
  107.  
  108. End
');