arkadaşlar tamda ben bu konuyu araştırıyordum vb 6.0 programlama diline yeni başladım bir stok takip programı yazıyorum kendimi geliştireyim diye bu işin vb 6.0 a uyarlanmış kodları nasıldır bunu öğrenmek istiyorum anlatırsanız çok sevinirim teşekkürler
(27/03/2012, 21:02)emremzrk yazdı: Verdiğiniz Cevap İçin Teşekkürler ayhan2122 1. Sorumun Cevabını da çözdüm Belki Arkadaşların İşine Yarayabilr. Kodları ve Dosyayı Ekte Yolluyorum
Başarılar.
Imports System.IO
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'veritabanı yedekle
Dim zaman As New Date 'burada zaman değişkenimizi atadık
Dim uzanti As String 'burada ise uzantısını atadık "Kayıt.mdb" gibi
zaman = DateTime.Today 'zaman isimli değişkenimize "today" ile bugünün tarihini verdik
uzanti = (".mdb") 'uzanti isimli değişkenimizde ise Uzantımızı
Dim SaveFileDialog1 As New SaveFileDialog
SaveFileDialog1.Title = "SaveFileDialog Öğreniyoruz" 'Açılacak olan pencerenenin başlığı
SaveFileDialog1.DefaultExt = Path.GetFileName(zaman) & uzanti ' Kaydedeceğimiz dosyaya otomatik bi uzantı verdik.
SaveFileDialog1.FileName = (zaman)
SaveFileDialog1.Filter = "mdb |*.mdb"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
FileCopy("Veritabani.mdb", SaveFileDialog1.FileName)
MsgBox("Veritabanı Yedekleme İşlemi Tamamlanmıştır, Veritabanı" & SaveFileDialog1.FileName & " Klasörünün İçindedir", MsgBoxStyle.Information, "İşlem")
Else
MsgBox("Uyarı")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim uzanti As String
've sürekli olarak kullanıcıdan dosya ismi değiştirmesini ister.
Dim dosyadi As String
Dim zaman As New Date
dosyadi = ("Veritabani")
uzanti = (".mdb")
Dim dosya As New FileInfo("\Veritabani.mdb")
Dim Ac As New OpenFileDialog
'bakın Burada ac diye bir değişken atadık
Ac.FileName = vbNullString
Ac.Filter = "Tüm Dosyalar (*.*) |*.*" 'Hangi Tip Dosyalar Açacağımızı soruyor
'Ac.InitialDirectory = ("G:\EVRAK TAKİP yedek\database\") 'burada nereden açılacağı
If Ac.ShowDialog = Windows.Forms.DialogResult.OK Then
Select Case File.Exists((dosyadi) & (uzanti))
Case True
'arkadaşlar kill silme kodudur. yedeğimiz dosyaya alırken aynı dosya olduğu için hata verecektir.
'eski veritabanını siliyoruz.
Kill("Veritabani.mdb")
'File.Copy(Application.StartupPath & "\Veritabani.mdb", Application.StartupPath & "\" & (dosyadi) & (uzanti))
File.Copy(Ac.FileName, (dosyadi) & (uzanti))
MsgBox(Path.GetFileName(Ac.FileName) & " Dosyası Başarı İle Değiştirildi", MsgBoxStyle.Information, "Uyarı")
Case False
' File.Copy(Application.StartupPath & "\Veritabani.mdb", Application.StartupPath & "\" & (dosyadi) & (uzanti))
File.Copy(Ac.FileName, (dosyadi) & (uzanti))
MsgBox(Path.GetFileName(Ac.FileName) & " Dosyası Başarı İle Taşındı", MsgBoxStyle.Information, "Uyarı")
Case Else
MsgBox("İşlemi Tekrar Deneyiniz.", MsgBoxStyle.Information, Me.Text)
End Select
End If
End Sub
End Class
Teşekkürler Üstad emeğine sağlık.
Emekleriniz için ayrı ayrı teşekkürler
bu kodları
Access te nasıl uygularız bir türlü yapamadım.
yedeği masaüstüne klasör içine atsın (kalasörün adı "Yedek 29.02.2019" klasörün içindekide örnek "vtdata.mdb" olarak
geri yükleme yaptığımızdada "mdb" olarak arasın.mümkün ise.
şimdiden teşekkür ederim.