Veritabanı içinden başka bir yerde yeni bir veritabanı dosyası oluşturmak

[hızır]

Arkadaşlar, bir veritabanı içinden C:\ sürücüsünde vt1.mdb adında yeni bir veritabanı dosyası oluştururken, ekli olan örnekte ilk kez çalıştırıldığında problem yok. Dosya orada daha önce oluşturulmuşsa "veritabanı zaten var" uyarısı veriyor. uyarı vermesin istiyorum. Bu kodu sözkonusu şekilde ayarlayacak arkadaşlara şimdiden teşekkürler. Kod şöyle:

Private Sub vtyap_Click()
Dim Yol As String
Dim Cat As Object
Yol = "C:\vt1.mdb"
Set Cat = CreateObject("ADOX.Catalog")
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Yol
End Sub

 

[modalı]

Sayın hızır,

Sanırım oldu.

İyi çalışmalar

 

[hızır]

Sayın Modalı, sanırım oldu dediğiniz tam istediğim gibi olmuş. Çok memnun oldum. Eliniz dert görmesin. işleriniz rast gitsin.