• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Oto Yedekleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ByClxon

Süper Üye
Katılım
7 Ocak 2016
Mesajlar
955
Beğeni Puanı
4
Yaş
22
[font='Titillium Web', sans-serif]Merhaba Arkadaşlar bu kodlar ile otomatik yedekelem yapmaya çalışacağız veri tabanı dosyasını. [/FONT]
[font='Titillium Web', sans-serif]Bir adet mdi form ( FrmMain) ve bu forma ayaralar adında bir menü yapıyoruz ve aşağıdaki kodları mdi forma yapıştırıyoruz. ve Projemize references de dao360.dll eklemeyi unutmuyoruz. ve veritabanımızın adı vt1.mdb veritabanı klasörünün adıda veritabanı olmalı[/FONT]
[font='Titillium Web', sans-serif]sonra aşağıdaki kodlar gerekli formlara eklemeliyiz[/FONT]

[font='Titillium Web', sans-serif]Option[/FONT][font='Titillium Web', sans-serif]Explicit[/FONT]
[font='Titillium Web', sans-serif]'değişkenleri tanımlıyoruz[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] otoyedeklead1, yedekle, otoyedekle[/FONT]



[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] MDIForm_Resize()[/FONT]

[font='Titillium Web', sans-serif]otoyedeklead1 = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklead"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] otoyedeklead1 = [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklead"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"c:/veritabani/"[/FONT][font='Titillium Web', sans-serif] & [/FONT][font='Titillium Web', sans-serif]Date[/FONT][font='Titillium Web', sans-serif] & [/FONT][font='Titillium Web', sans-serif]".ydk"[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]yedekle = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"yedekle"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] yedekle = [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"yedekle"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt1.ydk"[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]

[font='Titillium Web', sans-serif]otoyedekle = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedekle"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] otoyedekle = [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedekle"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]Date[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklegun"[/FONT][font='Titillium Web', sans-serif], 10[/FONT]


[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]' eğer kayıt defterinde ototyedekle alanı yoksa giriş yapıyoruz[/FONT]

[font='Titillium Web', sans-serif]otoyedekle = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedekle"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] otoyedekle = [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedekle"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]Date[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklegun"[/FONT][font='Titillium Web', sans-serif], 10[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]

[font='Titillium Web', sans-serif]otoyedekle = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedekle"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]CDate[/FONT][font='Titillium Web', sans-serif](otoyedekle) <= [/FONT][font='Titillium Web', sans-serif]Date[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]otoyedekleme.[/FONT][font='Titillium Web', sans-serif]Show[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]'MsgBox "Değil"[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]

[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] mnuayar_Click()[/FONT]
[font='Titillium Web', sans-serif]ayarlar.[/FONT][font='Titillium Web', sans-serif]Show[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]


[font='Titillium Web', sans-serif]şimide bir form daha ekliyoruz ve adını ayarlar yapıp aşagıdaki kodlar yapıştırıyoruz. bu forma bir adet commandbuton ve bir adet textbox (Text1) yerleştirip kodları yazınız[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Command1_Click()[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] Text1 < 0 [/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] Text1 > 31 [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]MsgBox[/FONT][font='Titillium Web', sans-serif]" buraya 0`dan büyük 31`den küçük bir sayı girmelisiniz"[/FONT][font='Titillium Web', sans-serif], vbCritical, [/FONT][font='Titillium Web', sans-serif]"Hüseyin"[/FONT]
[font='Titillium Web', sans-serif]Text1.SetFocus[/FONT]
[font='Titillium Web', sans-serif]Exit[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedekle"[/FONT][font='Titillium Web', sans-serif], DateAdd([/FONT][font='Titillium Web', sans-serif]"d"[/FONT][font='Titillium Web', sans-serif], Text1Text, [/FONT][font='Titillium Web', sans-serif]Date[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklegun"[/FONT][font='Titillium Web', sans-serif], Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT]
[font='Titillium Web', sans-serif]Unload [/FONT][font='Titillium Web', sans-serif]Me[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form_Load()[/FONT]
[font='Titillium Web', sans-serif]Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif] = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklegun"[/FONT][font='Titillium Web', sans-serif])[/FONT]

[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]en son olarak bir form daha ekleiyoruz ve adınınıda otoyedekle yapıp kodları yazıyoruz ve bu forma bir adet [/FONT][font='Titillium Web', sans-serif]Timer[/FONT][font='Titillium Web', sans-serif](Timer1) 2 adet textbox (Text1, Text2 ) ve bir adet Progresbar ( ProgresBar1) yerleştiriyoruz [/FONT]


[font='Titillium Web', sans-serif]Option[/FONT][font='Titillium Web', sans-serif]Explicit[/FONT]
[font='Titillium Web', sans-serif]' Fonksiyon ve özellikleri tanımlıyoruz[/FONT]
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Declare[/FONT][font='Titillium Web', sans-serif]Function[/FONT][font='Titillium Web', sans-serif] CopyFile Lib [/FONT][font='Titillium Web', sans-serif]"kernel32"[/FONT][font='Titillium Web', sans-serif] Alias [/FONT][font='Titillium Web', sans-serif]"CopyFileA"[/FONT][font='Titillium Web', sans-serif] ([/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] lpExistingFileName [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]String[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif]lpNewFileName [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]String[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] bFailIfExists [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT]

[font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] HWND_TOPMOST = -1 [/FONT][font='Titillium Web', sans-serif]' Hep üstte tutan değişken değer[/FONT]
[font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] HWND_NOTOPMOST = -2 [/FONT][font='Titillium Web', sans-serif]' Hep üstte özelliğini yok eden değişken değer...[/FONT]
[font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] SWP_NOSIZE = &H1 [/FONT][font='Titillium Web', sans-serif]' Formun boyutlarını değiştirilmez yapar...[/FONT]
[font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] SWP_NOMOVE = &H2 [/FONT][font='Titillium Web', sans-serif]' Formu taşınmaz yapar...[/FONT]
[font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] SWP_NOACTIVATE = &H10 [/FONT][font='Titillium Web', sans-serif]' Form Aktif yapılmaz...[/FONT]
[font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] SWP_SHOWWINDOW = &H40 [/FONT][font='Titillium Web', sans-serif]' Pencere Görünür Yapılır...[/FONT]
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Declare[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] SetWindowPos Lib [/FONT][font='Titillium Web', sans-serif]"User32"[/FONT][font='Titillium Web', sans-serif] ([/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] hWnd [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] hWndInsertAfter [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif], _[/FONT]
[font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] x [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] y [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] cx [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] cy [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] wFlags [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif])[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form_Activate()[/FONT]
[font='Titillium Web', sans-serif]On[/FONT][font='Titillium Web', sans-serif]Error[/FONT][font='Titillium Web', sans-serif]Resume[/FONT][font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]' Eğer veritabanı dizini ve dosyası bulunmazsa formu kapatıyoruz[/FONT]

[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] Dir$([/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt1.mdb"[/FONT][font='Titillium Web', sans-serif]) = [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]Unload [/FONT][font='Titillium Web', sans-serif]Me[/FONT]
[font='Titillium Web', sans-serif]Exit[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]' Formu en üste tutmak içIn[/FONT]
[font='Titillium Web', sans-serif]SetWindowPos [/FONT][font='Titillium Web', sans-serif]Me[/FONT][font='Titillium Web', sans-serif].hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE _[/FONT]
[font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] SWP_SHOWWINDOW [/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] SWP_NOMOVE [/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] SWP_NOSIZE[/FONT]
[font='Titillium Web', sans-serif]' formu seçilemez yapıyoruzki işlem kulanıcı tarafından iptal edilemsin[/FONT]
[font='Titillium Web', sans-serif]otoyedekleme.Enabled = [/FONT][font='Titillium Web', sans-serif]False[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] dbsvt1 [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif] Database[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] dbsvt [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif] Database[/FONT]

[font='Titillium Web', sans-serif]' veritabanı yolu[/FONT]
[font='Titillium Web', sans-serif]Set[/FONT][font='Titillium Web', sans-serif] dbsvt1 = OpenDatabase([/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt1.mdb"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]' yedeklenecek veritabanı dosyasını sıkıştırarak boyutunu kültüyoruz[/FONT]
[font='Titillium Web', sans-serif]With[/FONT][font='Titillium Web', sans-serif] dbsvt1[/FONT]
[font='Titillium Web', sans-serif]Debug.[/FONT][font='Titillium Web', sans-serif]Print[/FONT][font='Titillium Web', sans-serif] .Name & [/FONT][font='Titillium Web', sans-serif]", version "[/FONT][font='Titillium Web', sans-serif] & .Version[/FONT]
[font='Titillium Web', sans-serif]Debug.[/FONT][font='Titillium Web', sans-serif]Print[/FONT][font='Titillium Web', sans-serif]" CollatingOrder = "[/FONT][font='Titillium Web', sans-serif] & .CollatingOrder[/FONT]
[font='Titillium Web', sans-serif].[/FONT][font='Titillium Web', sans-serif]Close[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]With[/FONT]

[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] Dir([/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt.mdb"[/FONT][font='Titillium Web', sans-serif]) <> [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] _[/FONT]
[font='Titillium Web', sans-serif]Kill [/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt.mdb"[/FONT]

[font='Titillium Web', sans-serif]DBEngine.CompactDatabase [/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt1.mdb"[/FONT][font='Titillium Web', sans-serif], _[/FONT]
[font='Titillium Web', sans-serif]"c:/veritabani/vt.mdb"[/FONT][font='Titillium Web', sans-serif], dbLangTurkish[/FONT]

[font='Titillium Web', sans-serif]Set[/FONT][font='Titillium Web', sans-serif] dbsvt = OpenDatabase([/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt.mdb"[/FONT][font='Titillium Web', sans-serif])[/FONT]

[font='Titillium Web', sans-serif]With[/FONT][font='Titillium Web', sans-serif] dbsvt[/FONT]
[font='Titillium Web', sans-serif]Debug.[/FONT][font='Titillium Web', sans-serif]Print[/FONT][font='Titillium Web', sans-serif] .Name & [/FONT][font='Titillium Web', sans-serif]", version "[/FONT][font='Titillium Web', sans-serif] & .Version[/FONT]
[font='Titillium Web', sans-serif]Debug.[/FONT][font='Titillium Web', sans-serif]Print[/FONT][font='Titillium Web', sans-serif]" CollatingOrder = "[/FONT][font='Titillium Web', sans-serif] & .CollatingOrder[/FONT]
[font='Titillium Web', sans-serif].[/FONT][font='Titillium Web', sans-serif]Close[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]With[/FONT]
[font='Titillium Web', sans-serif]Kill [/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt1.mdb"[/FONT]
[font='Titillium Web', sans-serif]Name [/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt.mdb"[/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt1.mdb"[/FONT]

[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] i[/FONT]
[font='Titillium Web', sans-serif]Timer1.Enabled = [/FONT][font='Titillium Web', sans-serif]False[/FONT]
[font='Titillium Web', sans-serif]ProgressBar1.Value = 0[/FONT]
[font='Titillium Web', sans-serif]' ana formu kulanıma kapatıyoruz[/FONT]
[font='Titillium Web', sans-serif]frmMain.Enabled = [/FONT][font='Titillium Web', sans-serif]False[/FONT]
[font='Titillium Web', sans-serif]Kill Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT]
[font='Titillium Web', sans-serif]RmDir [/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif], 1, 1) & [/FONT][font='Titillium Web', sans-serif]":/huseyin/"[/FONT]
[font='Titillium Web', sans-serif]MkDir [/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif], 1, 1) & [/FONT][font='Titillium Web', sans-serif]":/huseyin"[/FONT]

[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] n [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT]
[font='Titillium Web', sans-serif]n = CopyFile([/FONT][font='Titillium Web', sans-serif]"c:/veritabani/vt1.mdb"[/FONT][font='Titillium Web', sans-serif], Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]False[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] (n = 1) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]'MsgBox "Dosya Başarılı Olarak : Aşağıdaki Sürücüye " & Chr(10) & " " & Text1 & Chr(10) & "Olarak Yedeklendi", 48, "Deneme Firması"[/FONT]

[font='Titillium Web', sans-serif]' sonraki yedekleme içIn tarih belirtiyoruz[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedekle"[/FONT][font='Titillium Web', sans-serif], DateAdd([/FONT][font='Titillium Web', sans-serif]"d"[/FONT][font='Titillium Web', sans-serif], Text2.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]Date[/FONT][font='Titillium Web', sans-serif])[/FONT]

[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = 0 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] 100 Step 0.01[/FONT]

[font='Titillium Web', sans-serif]ProgressBar1.Value = i[/FONT]
[font='Titillium Web', sans-serif]DoEvents[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT][font='Titillium Web', sans-serif] i[/FONT]

[font='Titillium Web', sans-serif]Timer1.Enabled = [/FONT][font='Titillium Web', sans-serif]True[/FONT]

[font='Titillium Web', sans-serif]Exit[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]otoyedekleme.Visible = [/FONT][font='Titillium Web', sans-serif]False[/FONT]
[font='Titillium Web', sans-serif]MsgBox[/FONT][font='Titillium Web', sans-serif]" Dosya Yedekleme Hatası!! Yedekleme Aracını Kulanarak Bir Dizin Belirtin"[/FONT][font='Titillium Web', sans-serif], vbCritical,[/FONT][font='Titillium Web', sans-serif]"Deneme Firması"[/FONT]
[font='Titillium Web', sans-serif]frmMain.Enabled = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]Unload [/FONT][font='Titillium Web', sans-serif]Me[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]

[font='Titillium Web', sans-serif]Timer1.Enabled = [/FONT][font='Titillium Web', sans-serif]True[/FONT]

[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form_Load()[/FONT]
[font='Titillium Web', sans-serif]On[/FONT][font='Titillium Web', sans-serif]Error[/FONT][font='Titillium Web', sans-serif]Resume[/FONT][font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif] = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklead"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]SaveSetting [/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklead"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](Text1, 1, 2) & [/FONT][font='Titillium Web', sans-serif]"/huseyin/"[/FONT][font='Titillium Web', sans-serif] & [/FONT][font='Titillium Web', sans-serif]Date[/FONT][font='Titillium Web', sans-serif] & [/FONT][font='Titillium Web', sans-serif]".ydk"[/FONT]

[font='Titillium Web', sans-serif]Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif] = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklead"[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]Text2.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif] = GetSetting([/FONT][font='Titillium Web', sans-serif]"huseyin"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"Settings"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]"otoyedeklegun"[/FONT][font='Titillium Web', sans-serif])[/FONT]

[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Timer1_Timer()[/FONT]
[font='Titillium Web', sans-serif]' ana formu kulanıma açıyoruz[/FONT]
[font='Titillium Web', sans-serif]frmMain.Enabled = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]Unload [/FONT][font='Titillium Web', sans-serif]Me[/FONT]

[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt