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.
:clover:
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