In this article I will explain with an example, how to delete data from database using
Dapper library in Windows Forms (WinForms) Application using C# and VB.Net.
Installing Dapper package using Nuget
Database
I have made use of the following table Customers with the schema as follows.
I have already inserted few records in the table.
Note: You can download the database table SQL by clicking the download link below.
Form Design
The following Form consists of:
TextBox – For capturing CustomerId of the Customer record to be deleted.
Button – For deleting the record.
Namespaces
You will need to import the following namespaces.
C#
using Dapper;
using System.Data.SqlClient;
using System.Configuration;
VB.Net
Imports Dapper
Imports System.Data.SqlClient
Imports System.Configuration
Deleting the record using Dapper in Windows Forms
When Delete button is clicked, first the connection string is fetched from App.Config file.
Then, using
Execute method of
Dapper library record is deleted from the
SQL Server database.
Finally, based on whether record is deleted or not, an appropriate message is displayed using MessageBox class.
C#
private void OnDelete(object sender, EventArgs e)
{
string sql = "DELETE FROM Customers WHERE CustomerId = @CustomerId";
string constr = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
using (SqlConnection con = new SqlConnection(constr))
{
int customerId = int.Parse(txtId.Text);
int i = con.Execute(sql, new { customerId });
if (i > 0)
{
MessageBox.Show("Customer record deleted.");
}
else
{
MessageBox.Show("Customer not found.");
}
}
txtId.Text = string.Empty;
}
VB.Net
Private Sub OnDelete(sender As Object, e As EventArgs) Handles btnDelete.Click
Dim sql As String = "DELETE FROM Customers WHERE CustomerId = @CustomerId"
Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using con As SqlConnection = New SqlConnection(constr)
Dim customerId As Integer = Integer.Parse(txtId.Text)
Dim i As Integer = con.Execute(sql, New With { customerId })
If i > 0 Then
MessageBox.Show("Customer record deleted.")
Else
MessageBox.Show("Customer not found.")
End If
txtId.Text = String.Empty
End Using
End Sub
Screenshot
Downloads