SHARE
TWEET

LLENAR Y CARGAR

a guest Feb 3rd, 2017 177 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top