PUBLIC SUB GridEU_DblClick()

DIM Pulsante1, Pulsante2 AS Button


  ReForm = NEW Form AS "ReForm"
  Pulsante1 = NEW Button(ReForm) AS "Pulsante1"
  Pulsante2 = NEW Button(ReForm) AS "Pulsante2"
  NewValore = NEW textBox(ReForm) AS "NewValore"

PUBLIC SUB NewValore_KeyPress()
  
  SELECT CASE Key.Code
    CASE Key.Enter
      Pulsante1_Click()
  END SELECT  
  
END

PUBLIC SUB Main()
DIM connessione AS NEW Connection
DIM risultato AS Result

  
  
  WITH connessione
  .Type = "mysql"
  .Host = IPAssegnatoDaAruba
  .Port = "3306"
  .Login = NomeAssegnatoDaAruba
  .Password = PassAssegnataDaAruba
  END WITH 
  
  connessione.Name = NomeDatabase '[i]Aruba assegna 5 nomi di database costanti[/i]
  connessione.Open
  
  risultato = connessione.Exec("select*from NomeTabella")
  
  FOR EACH risultato
    PRINT risultato!nome
    PRINT risultato!ID
  NEXT 
  
  
  connessione.Close
  
END