Skip to main content

AccessTr.neT


Visual Basic te Acces Veritabanı Yedekleme Tarihli

Visual Basic te Acces Veritabanı Yedekleme Tarihli

#7
FileCopy(Application.StartupPath & "\Dosyam\abc.mdb", Application.StartupPath & "\" & Yeniisim.Text & ".mdb")

kod bu kendine göre uyarlarsın .
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
#8
(27/03/2012, 01:17)ayhan2122 yazdı: FileCopy(Application.StartupPath & "\Dosyam\abc.mdb", Application.StartupPath & "\" & Yeniisim.Text & ".mdb")

kod bu kendine göre uyarlarsın .

bu kod ne işe yarıyor
dosyayı kopyalamak için mi
yoksa dosya bilgisayarın neresinde olursa olsun bulunması içinmi
bir de
bunu ilk ekleyen sn.azul20 bunu Access de nasıl kullanabiliriz
teşekkürler
@benbendedeilem
Cevapla
#9
Bu kod, programın bulunduğu klasörün altındaki "Dosyam" klasöründeki "abc.mdb" isimli dosyayı, programın bulunduğu klasöre "Yeniisim" textboxuna yazdığınız değere göre isimlendirerek kopyalar.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
#10
Accesste aşağıdaki kodu kullanarak "datalar.mdb" isimli dosyanızın aynı klasörde olup olmadığını kontrol edebilirsiniz.
Kod:
Dim Dosya As String
    Dim Durum As String
        Dosya = CurrentProject.Path & "\datalar.mdb"
        Durum = Dir(Dosya)
        If (Durum = "") Then
            MsgBox "dosya yok, bulunamadı."
        Else
            MsgBox "dosya bulundu korkmayın, emin ellerde :)"
        End If

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
#11
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
WindowsApplication1.rar
Son Düzenleme: 27/03/2012, 21:03, Düzenleyen: emremzrk.
Cevapla
#12
Merhaba Bu Konuyla ilgili bir sorum olacak
Yedeklenmiş veri tabanını programa aktarırken
Kill("Veritabani.mdb")
komutundan önce silinebilmesi için çalışan veri tabanını durdurmam gerekiyor kodla bunu yapıp sildikten sonra tekrar çalıştırabıleceğım bir kod var mı ?
Teşekkürler.
Son Düzenleme: 20/05/2012, 01:33, Düzenleyen: emremzrk.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da