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:
'' 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
