private Sub Extra_Btn_Click(sender As Object, e As EventArgs) Handles Extra_Btn.Click If Merge_Data() = True Then MsgBox("Duplicate Data removed") Else MsgBox("Error! ") End If End Sub
Public Function Merge_Data() As Boolean Try Link() cmd.CommandText = "DELETE * FROM SUPPORTERS WHERE SUPPORTERS.AADHAAR IN (SELECT MEMBERS.AADHAAR FROM MEMBERS)" Records = cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try If Records > 0 Then Return True Else Return False End If End Function
DELETE FROM SUPPORTERS WHERE SUPPORTERS.AADHAAR IN (SELECT MEMBERS.AADHAAR FROM MEMBERS )
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)