I have created a process. It is not executed.
From the bigining, the Query is written into the batch file. But database is not exported.
Even If I add the message box that which shows "Database is exported" below the process.start(), that message is also displayed.
But database is not exported. I want to do this export in beforeuninstall() event of custom actions.
My code is
Dim backUpDir As String = IO.Path.Combine(My.Application.Info.DirectoryPath, "BackupDBS")
Directory.CreateDirectory(backUpDir)
Dim file2 As String = 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 = IO.Path.Combine(My.Application.Info.DirectoryPath, "mysqldbbackup.bat")
Dim connectionString As String = File.ReadAllText(IO.Path.Combine(My.Application.Info.DirectoryPath, "constr.txt"))
Dim bulider1 As New MySqlConnectionStringBuilder(connectionString)
Dim uninstallconnuserid As String = bulider1.UserID
Dim uninstallconnserver As String = bulider1.Server
Dim uninstallconnpass As String = bulider1.Password
Dim uninstallconndb As String = bulider1.Database
Using objWriter3 As New 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")
Try
Dim procInfo As New ProcessStartInfo()
procInfo.UseShellExecute = True
procInfo.FileName = backupbatch
procInfo.Verb = "runas"
Process.Start(procInfo)
Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try
