Autore Topic: chrash nelle connessioni a database mysql remoti  (Letto 1016 volte)

Offline allegfede

  • Gran Maestro dei Gamberi
  • *****
  • Post: 738
    • Mostra profilo
chrash nelle connessioni a database mysql remoti
« il: 31 Gennaio 2017, 18:24:54 »
salve, ho recentemente questo crash (versione gambas 3.8.4):
Citazione
** Oops! Internal error! **
** Cannot create signal handler pipes: Troppi file aperti
** Program aborting. Sorry! :-(
** Please send a bug report at gambas@users.sourceforge.net

quando lancio questa procedura (che salva una serie di record in un database):
Codice: [Seleziona]
Public Sub Button_Commit_Click()
Dim $Con As New Connection
Dim $Result As Result

 
  $Con.close()                  ' Close the connection
  $Con.Type = "MySQL"           ' Type of connection
  $Con.Host = TextBox_IP.Text   ' Name of the server
  $Con.Login = TextBox_DBuser.Text    ' User's name for the connection
  $Con.Port = TextBox_Port.Text       ' Port to use in the connection, usually 3306
  $Con.Name = TextBox_DBname.Text     ' Name of the database we want to use
  $Con.Password = TextBox_DBpass.Text ' User's password
 
  Try $Con.Open()
  If Error Then
    message.Error("tentativo di connessione al server non riuscito", "OK")
    TabStrip_Utils.Show
    DB_connected = False
    Return
  Endif

  'se sono arrivato qui' scansiono la lista cercando le righe con id "new" e numero e le inserisco
  Me.Mouse = Mouse.Wait
  ColumnView_Discoteca.MoveFirst
    Repeat
    ColumnView_Discoteca.Item.Selected = True
      If ColumnView_Discoteca.Item.Key Like "new*" Then
        $Result = $Con.Create("canzoni")
        'id e' automatico
        $Result!autore = ColumnView_Discoteca.Item[1]
        $Result!titolo = ColumnView_Discoteca.Item[2]
        $Result!path = ColumnView_Discoteca.Item[3]
        $Result!tag = ColumnView_Discoteca.Item[4]
        $Result!entryin = ColumnView_Discoteca.Item[5]
        '$Result!entryout = CDate(ColumnView_Discoteca.Item[6])
        $Result!entryout = ColumnView_Discoteca.Item[6]
        $Result!introdj = Seconds_From_HMS(ColumnView_Discoteca.Item[7])
        $Result!mix = ColumnView_Discoteca.Item[8]
        $Result!trasmesso = ColumnView_Discoteca.Item[9]
        $Result!data = CDate("01/01/" & ColumnView_Discoteca.Item[10])
        $Result!note = ColumnView_Discoteca.Item[11]
        $Result!durata = ColumnView_Discoteca.Item[12]
        $Result.Update()
        $con.Commit()
        'a questo punto la "riga" non e' piu' NEW
        ColumnView_Discoteca.Item.Picture = PictureBox_Saved.Picture
        Form.Refresh
        ColumnView_Discoteca.Item.EnsureVisible
      Endif
    Until ColumnView_Discoteca.Movenext()
    Me.Mouse = Mouse.Arrow
   
    LoadLibrary()
End

succede (sembrerebbe) solo quando devo aggiungere molte righe nuove ......
« Ultima modifica: 02 Febbraio 2017, 10:06:47 da allegfede »
se corri, morirai stanco (motto degli sniper)