Drop Database using C# and VB.Net in Windows Application

Hi PSowmiya,

Refer below code.

Namespaces

C#

using System.IO;
using System.Data.SqlClient;

VB.Net

Imports System.IO
Imports System.Data.SqlClient

Code

C#

string connectionString = File.ReadAllText(System.IO.Path.Combine(@"C:\Users\anand\Desktop", "constr.txt"));
SqlConnectionStringBuilder bulider1 = null;
private void Form1_Load(object sender, EventArgs e)
{
    try
    {
        string backUpDir = System.IO.Path.Combine(@"C:\Users\anand\Desktop", "BackupDBS");
        Directory.CreateDirectory(backUpDir);
        string file2 = System.IO.Path.Combine(backUpDir, "DBS-Backup-" + DateTime.Now.ToString("yyyy-MM-dd--HH-mm-ss") + ".sql");
        string fileBackup = file2;
        File.Create(fileBackup);
        string backupbatch = System.IO.Path.Combine(@"C:\Users\anand\Desktop", "mysqldbbackup.bat");
        bulider1 = new SqlConnectionStringBuilder(connectionString);
        string uninstallconnuserid = bulider1.UserID;
        string uninstallconnserver = bulider1.DataSource;
        string uninstallconnpass = bulider1.Password;
        string uninstallconndb = bulider1.InitialCatalog;
        using (System.IO.StreamWriter objWriter3 = new System.IO.StreamWriter(backupbatch))
        {
            objWriter3.WriteLine(@"set root=C:\xampp\mysql\bin");
            objWriter3.WriteLine("cd %root%");
            objWriter3.WriteLine("mysqldump -u" + uninstallconnuserid + " -h" + uninstallconnserver + " -p" + uninstallconnpass + " " + uninstallconndb + " > " + fileBackup);
            objWriter3.WriteLine("drop database " + uninstallconndb);
        }
        MessageBox.Show("Query is inserted into text file");
        ProcessStartInfo procInfo = new ProcessStartInfo();
        procInfo.UseShellExecute = true;
        procInfo.FileName = backupbatch;
        procInfo.Verb = "runas";
        Process.Start(procInfo);
        DropDataBase();
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message.ToString());
    }
}

private void DropDataBase()
{
    string query = "USE master DROP DATABASE " + bulider1.InitialCatalog;
    ExecuteNonQuery(query);
}

public void ExecuteNonQuery(string sql)
{
    using (SqlConnection con = new SqlConnection(connectionString))
    {
        using (SqlCommand cmd = con.CreateCommand())
        {
            cmd.CommandType = CommandType.Text;
            cmd.CommandText = sql;
            con.Open();
            cmd.ExecuteNonQuery();
            con.Close();
        }
    }
}

VB.Net

Private connectionString As String = File.ReadAllText(System.IO.Path.Combine("C:\Users\anand\Desktop", "constr.txt"))
Private bulider1 As SqlConnectionStringBuilder = Nothing
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    Try
        Dim backUpDir As String = System.IO.Path.Combine("C:\Users\anand\Desktop", "BackupDBS")
        Directory.CreateDirectory(backUpDir)
        Dim file2 As String = System.IO.Path.Combine(backUpDir, "DBS-Backup-" & DateTime.Now.ToString("yyyy-MM-dd--HH-mm-ss") & ".sql")
        Dim fileBackup As String = file2
        File.Create(fileBackup)
        Dim backupbatch As String = System.IO.Path.Combine("C:\Users\anand\Desktop", "mysqldbbackup.bat")
        bulider1 = New SqlConnectionStringBuilder(connectionString)
        Dim uninstallconnuserid As String = bulider1.UserID
        Dim uninstallconnserver As String = bulider1.DataSource
        Dim uninstallconnpass As String = bulider1.Password
        Dim uninstallconndb As String = bulider1.InitialCatalog
        Using objWriter3 As System.IO.StreamWriter = New System.IO.StreamWriter(backupbatch)
            objWriter3.WriteLine("set root=C:\xampp\mysql\bin")
            objWriter3.WriteLine("cd %root%")
            objWriter3.WriteLine("mysqldump -u" & uninstallconnuserid & " -h" & uninstallconnserver & " -p" & uninstallconnpass & " " & uninstallconndb & " > " & fileBackup)
            objWriter3.WriteLine("drop database " & uninstallconndb)
        End Using

        MessageBox.Show("Query is inserted into text file")
        Dim procInfo As ProcessStartInfo = New ProcessStartInfo()
        procInfo.UseShellExecute = True
        procInfo.FileName = backupbatch
        procInfo.Verb = "runas"
        Process.Start(procInfo)
        DropDataBase()
    Catch ex As Exception
        MessageBox.Show(ex.Message.ToString())
    End Try
End Sub

Private Sub DropDataBase()
    Dim query As String = "USE master DROP DATABASE " & bulider1.InitialCatalog
    ExecuteNonQuery(query)
End Sub

Public Sub ExecuteNonQuery(ByVal sql As String)
    Using con As SqlConnection = New SqlConnection(connectionString)
        Using cmd As SqlCommand = con.CreateCommand()
            cmd.CommandType = CommandType.Text
            cmd.CommandText = sql
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        End Using
    End Using
End Sub