'imports
Imports IWshRuntimeLibrary
'code to execute
Dim ws As New WshShell
Dim StartupDir As String = My.Computer.FileSystem.SpecialDirectories.Programs + "\Startup"
If Not IO.Directory.Exists(StartupDir) Then
IO.Directory.CreateDirectory(StartupDir)
End If
If Not IO.File.Exists(StartupDir + "\" + My.Application.Info.AssemblyName + ".lnk") Then
Dim shortCut As IWshRuntimeLibrary.IWshShortcut
' short cut files have a .lnk extension
shortCut = CType(ws.CreateShortcut(StartupDir + "\" + My.Application.Info.AssemblyName + ".lnk"), IWshRuntimeLibrary.IWshShortcut)
' set the shortcut properties
With shortCut
.TargetPath = System.Reflection.Assembly.GetExecutingAssembly.Location()
.WindowStyle = 1
.Description = "App to run at Windows Startup"
.WorkingDirectory = StartupDir
' the next line gets the first Icon from the executing program
.IconLocation = System.Reflection.Assembly.GetExecutingAssembly.Location() & ", 0"
.Save() ' save the shortcut file
End With
End If
Wednesday, March 19, 2008
How to put your applications shortcut in Startup in VB.NET
Backup SQL Server DB in VB.NET
Dim saveFileDialog1 As New SaveFileDialog()
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim pathToBackUpFile As String = saveFileDialog1.FileName
Dim sql As String = " use master;"
sql += " declare @p varchar(300);"
sql += " set @p = '" + pathToBackUpFile + "';"
sql += " SET NOCOUNT OFF;"
sql += " BACKUP DATABASE [YourDatabaseName] TO DISK = @p "
sql += " WITH NOINIT, NOUNLOAD, NAME = N'Database Backup', "
sql += " NOSKIP , STATS = 10, NOFORMAT ;"
Dim cnStr As String = "Provider=SQLOLEDB;Data Source=.;Integrated Security=SSPI;Initial Catalog=master"'put your connection string to master db
Dim cnn As OleDb.OleDbConnection
cnn = New OleDb.OleDbConnection(cnStr)
cnn.Open()
Dim cmd As New OleDb.OleDbCommand(sql, cnn)
Dim i As String = -1
Try
i = cmd.ExecuteNonQuery()
cnn.Close()
cmd.Connection.Close()
Catch ex As Exception
cnn.Close()
cmd.Connection.Close()
i = ex.Message
End Try
If i = "-1" Then
MsgBox
("BackedUp Database Successfully!", MsgBoxStyle.Information)
Else
MsgBox
("Error in Backup!", MsgBoxStyle.Critical)
End If
End If
Restoring SQL Server Database in VB.NET
In VB.NET
Just make a connection to the Master Database of SQL Server
Then run this code against the connection
Just make a connection to the Master Database of SQL Server
Then run this code against the connection
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.Filter = "Bak Files|*.bak"
openFileDialog1.Title = "Select a Backup File"
If openFileDialog1.ShowDialog() = DialogResult.OK Then
Dim pathToBackUpFile As String = openFileDialog1.FileName
Dim sql As String = " use master;"
sql += " declare @p varchar(300);"
sql += " set @p = '" + pathToBackUpFile + "';"
sql += " RESTORE DATABASE [YourDatabaseName]FROM DISK = @p ;"
Dim cnStr As String = "Provider=SQLOLEDB;Data Source=.;Integrated Security=SSPI;Initial Catalog=master"'put your connection string to master db
Dim cnn As OleDb.OleDbConnection
cnn = New OleDb.OleDbConnection(cnStr)
cnn.Open()
Dim cmd As New OleDb.OleDbCommand(sql, cnn)
Dim i As String = -1
Try
i = cmd.ExecuteNonQuery()
cnn.Close()
cmd.Connection.Close()
Catch ex As Exception
cnn.Close()
cmd.Connection.Close()
i = ex.Message
End Try
If i = "-1" Then
MsgBox("Restored Database Successfully!", MsgBoxStyle.Information)
Else
MsgBox("Error in Restore!", MsgBoxStyle.Critical)
End If
End If
Subscribe to:
Posts (Atom)
Best Smartphones/tech of 2019
So I was looking for the best tech of 2019. Here it goes: New Pixel 3 XL Google - Pixel 3 XL with 64GB Memory Cell Phone (Unlocked) - ...