Guest User

LLENAR Y CARGAR

a guest
Feb 3rd, 2017
211
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Sub cargarboxtabla() 'llena el combobox desde la tabla
  2.   hresul = hconn.Exec("Select * from aves") 'hace la llamada
  3.   Do While hresul.Available 'mientras este disponible
  4.     ComboAves.Add(hresul["id_name"]) 'añade    
  5.     hresul.MoveNext() 'se mueve al siguiente
  6.   Loop
  7. End
  8.  
  9. Public Sub ComboAves_Click() ' carga el precio de la ave seleccionada en la base de datos
  10.   hresul = hconn.Exec("Select * from aves where id_name like '" & ComboAves.Text & "'") 'selecciona desde la base de datos la ave seleccionada
  11.   If hresul.Available = False Then 'vacia los valores si no hay ningún ave añadida
  12.     TextPrecio.Text = "0 BSF"
  13.     TextTo.Text = "0 BSF"
  14.   Else
  15.       TextPrecio.Text = hresul["ave_precio"] & " BSF" 'llena el campo TextPrecio con el valor del ave extraido desde la base de datos
  16.       Key_Release 'Calcula el precio del ave por la cantidad (TextPrecio.Text * TextCant.Text) en tiempo real
  17.   Endif
  18. End
RAW Paste Data