ne znam ni ja, nije mi jasno
napravio sam nesto drugo ali zadnji korak ne radi, tje ne brise nista, mozda ti vidis gdje grijesim :
Code:
Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "Da li zaista želite obrisati kontakt '" + Trim(txtIme.Text) + " " + txtPrezime.Text + " " + txtTvrtka.Text + "' ?"
style = MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNoCancel
title = "UPOZORENJE"
response = MsgBox(msg, style, title)
Try
If response = MsgBoxResult.Yes Then
Dim da As New SqlClient.SqlDataAdapter("Delete * from Imenik where ID = " + Trim(txtID.Text) + "", conn)
msg = "Kontakt uspješno obrisan!"
style = MsgBoxStyle.Information Or MsgBoxStyle.OkOnly
title = "Obavijest"
Else
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
jednostavno se nista ne dogodi niti dobijem povratnu info da je negdje greska