Gambas-it

Gambas dal mondo esterno => Spagna => Topic aperto da: vuott - 23 Ottobre 2015, 19:15:52

Titolo: Eliminare una riga selezionata di una TableRow consultata con MySQL
Inserito da: vuott - 23 Ottobre 2015, 19:15:52

http://www.gambas-es.org/viewtopic.php?f=1&t=3269

Titolo: Re:Eliminare una riga selezionata di una TableRow consultata con MySQL
Inserito da: Gianluigi - 23 Ottobre 2015, 22:20:15

Io ho serie difficoltà a comprendere lo spagnolo peccato davvero per l'interessante lezione prog.OO e penso pertanto che così sia anche per cr1981 con l'italiano.
Provo lo stesso a postare questo codice estrapolato da un mio esempio che forse potrebbe ispirarlo:

Codice: [Seleziona]

'' Rimuove il record selezionato
Public Sub Button3_Click()

  Dim sMioSql, sMessaggio As String
  Dim hRisultato As Result
  Dim i, iID, iQ As Integer  
    
  i = TableView1.Row
  If i = -1 Then
    sMessaggio = "Prima occorre scegliere un cliente selezionandone la riga"
    Message.Title = $sTITOLO
    Message.Info(sMessaggio)
    Return
  Endif  
  
  sMessaggio = "Desiderate eliminare il cliente "
  sMessaggio &= TableView1[i, 1].Text & " "
  sMessaggio &= TableView1[i, 2].Text & " di "
  sMessaggio &= TableView1[i, 3].Text
  sMessaggio &= " dalla tabela Clienti?"
  Message.Title = $sTITOLO
  iQ = Message.Question(sMessaggio, "NO", "SI")
  If iQ = 1 Then Return
  
  iID = CInt(TableView1[i, 0].Text)
  sMioSql = "DELETE FROM Clienti"
  sMioSql &= " WHERE ID_Cli = " & iID
  sMioSql &= ";"
  
  With Mdati                    ' Modulo che contiene il codice
    .AproDB                     ' Procedura di apertura del database
    .$Conn.Begin
    .$Conn.Exec(sMioSql)        
    .$Conn.Commit
    Wait
    .ChiudoDB                   ' Procedura di chiusura come .$Conn.Close :)    
    TableView1.Rows.Remove(i, 1)    
    TableView1_Sort              ' Procedura che ripristina la giusta visione e ottempera al riordino  
  End With
  
  ' Per un qualunque malfunzionamento
  ' Catch
  '   sMessaggio = "Impossibile proseguire! Errore inatteso di tipo: <b>" & Error.Text & " in  " & Error.Where & ".</b>\n"
  '   sMessaggio &= "\nSe il problema persiste si prega di prendere nota e riferire al programmatore."
  '   Message.Title = $sTITOLO
  '   Message.Error(sMessaggio, "GRAZIE")     
  '   Quit

End