MSSQL 'de Saat ve Tarih Ekleyerek Yedekleme Alma


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    0 Yorum    178 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 12.05.2016, 13:48:13 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,011 Konuları:443 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

CREATE PROCEDURE dbo.YedekOzel 
@dosya varchar (150)
As
Backup Database VeritabanıAdı To disk =@dosya

GO


Yukarıdaki Procedure Veritabanına eklenecek.

Formunuza bir adet commondialog eklenecek.

PrivateSub ozelbackmen_Click()
OnLocalErrorGoTo MesajVerCik
CommonDialog1.ShowSave
CommonDialog1.CancelError = True
dosya = CommonDialog1.Filename
saat = Left(Time, 2)
dakika = Right(Left(Time, 5), 2)
saniye = Right(Time, 2)
tamdosya = dosya & "-" & Date & "-" & saat & "." & dakika & "." & saniye & ".bak"
Dim adoConn AsNew ADODB.Connection
adoConn.ConnectionString = "Driver={SQL Server};Server=(Local);Uid=;Pwd=;database=Veritaba nıAdı"
'adoConn.Open

Dim rst AsNew Recordset
Dim cmd AsNew ADODB.Command
adoConn.Open
With cmd
.ActiveConnection = adoConn
.CommandText = "exec YedekOzel '" & tamdosya & "'"
EndWith
OnLocalErrorResumeNext
Kill "" & tamdosya & ""
adoConn.BeginTrans
Set rst = cmd.Execute
adoConn.CommitTrans

rst.Close
adoConn.Close
MsgBox"Programın Veritabanı Yedeği" _
Chr$(13) + tamdosya _
Chr$(13) + "Adı Altında " & Left(tamdosya, 3) & "" _
Chr$(13) + "Sürücüsüne Kayıt edilmiştir.", vbInformation, "YH07 Yazılım 2009"
ExitSub
MesajVerCik:
MsgBox"Yedekleme İşlemi İptal Edildi" _
Chr$(13) + "Ama Düzenli Olarak Yedekleme.." _
Chr$(13) + "Yapmanız.. Tavsiye Edilir.." _
, vbInformation, "YH07 Yazılım 2009"
EndSub


yukarıdaki koduda istediğiniz bir command butonuna yapıştırınız.

Bu arada commondialog ayarlarını 
dosyaadı kısmını
sürücü kısmını

doldurunuz

Kullanıcı İmzası
#fenerbahçeA.A.K.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



Resim http://i.hizliresim.com/LQgldG.png






 

         











Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi