Vb .net 'te Database Dosyası Varmı Yokmu Yoksa Oluştur Olayı

Bu konuyu okuyanlar

Vatansever

Asistan
Katılım
23 Ağustos 2007
Mesajlar
405
Reaksiyon puanı
1
Puanları
18
VB .nette access database kullanan programıma bir kod eklemek istiyorum aynı database'yi program klasöründe Bilgi.ydk adıyla kopyaladım programımın kullandığı database'nin adı ise Bilgi.mdb yapmak istediğim şey program açılırken Bilgi.mdb dosyasının program klasörü içinde olup olmadığını kontrol etsin eğer yoksa Kayıt Dosyası Bulunamadı Yenisi Oluşturulacak Diye uyarı versin ve aynı klasör içinde bulunan Bilgi.ydk dosyasını Bilgi.mdb olarak aynı klasörün içine kopyalasın ve program bundan sonra açılsın internetten bunun için gereken kodu buldum ama doğru çalışıp çalışamadığından emin olamadım Form Load'da ilk sıraya kodu girmeme rağmem program açılırken ilk olarak database ile bağlantı kuruyor sonra Form load'daki kodları çalıştırıyor doğal olarak Bilgi.mdb dosyasını silince program açılırken hata verip çöküyor Form load'daki kodu bile okuyamadan çöküyor bu kodun form load'dan dahada önce database bağlantısı kurmaya başlamadan önce çalışmasını sağlayabilsem sorun kalmıyacak bunun bir yolu varmı elimdeki kodda hata varsa bunu düzeltebilirim burası sorun değil.

HTML:
Imports System.IO

        Dim dbDosyaAdi As String
        dbDosyaAdi = Application.StartupPath & "/Bilgi.mdb"
        Dim fFile As New FileInfo(dbDosyaAdi)

        If Not fFile.Exists Then
            MessageBox.Show("Kayıt Dosyası Bulunamadı Yenisi Oluşturulacak")
            IO.File.Copy(Application.StartupPath & "/Bilgi.ydk", Application.StartupPath & "/Bilgi.mdb")

        Else
            MessageBox.Show("Kayıt Dosyası Bulundu Şimdi Kayıtlar Yüklenecek")
        End If
:clover:
 

Vatansever

Asistan
Katılım
23 Ağustos 2007
Mesajlar
405
Reaksiyon puanı
1
Puanları
18
Neyse görünmez bir SplashScreen oluşturup kodu buna yazdım sorun çözüldü
 
Üst