Ciao a tutti...
ho un piccolo problema con una funzioncina
questa mi funziona molto bene se NON inserisco un if all 'interno di essa...
SE TOLGO L' IF SULLA MESSAGEBOX.SHOW...
LA FUNZIONE MI FUNGE E MI ELIMINA IL RECORD DAL DATABASE...
un grazie anticipato a chi mi darà un aiuto
vi posto il codice
------------------------------------------------------------------------
Public Function DeleteRecord(byVal Id as String) As Boolean
If MessageBox.Show("Sei sicuro di volere eliminare il record ?", "Delete Record", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Dim command As New OdbcCommand
connessione.Open()
command.Connection = connessione
command.CommandType = CommandType.Text
command.CommandText = "DELETE FROM MFI_Doc_Anagr WHERE Id_A = '" & Me.Id & "' "
'ExecuteNonQuery restituisce il nr di righe modificate
Dim ret As Integer = command.ExecuteNonQuery()
connessione.Close()
command.Dispose()
If ret = 0 Then Return False
Return True
else
Return False
End If
End Function
---------------------------------------
Questa funzione è all 'interno di una classecliente.vb...
che richiamo nel form dati.vb...
associandogli un bottone...
richiamo la funzione così :
dim Obj as New ClasseCliente
' è sopra di tutto
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If Obj.DeleteRecord(txtId.Text) = False Then
ImpostaCampi()
Else
MessageBox.Show("Record " & txtNome.Text & " eliminato", "Informazione", MessageBoxButtons.OK, MessageBoxIcon.Information)
'fa un aggiornamento alla scheda partendo dal primo inserimento nel db
Obj.LeggiPrimo()
ImpostaCampi()
End If
End Sub
Rispondi quotando
