Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic ipuçları » MDB'leriniz şismesin.
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

basit bir hatırlatıcı

Yazar: cakya
veritabanı kullanmadan küçük işleri hatırlatmak için kullandığım çok basit bir uygulama. görev çubuğunda görünmez, belirlenen saatte uyarı verir.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 187
Yayın Tar:01.12.2003
Yazar : spider58
Hit :5961

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Bence MDB dosyaların en büyük hatalarından birisi de boyutlarının gereksiz yere artması. Kayıt işlemi yapıldıktan sonra artması doğal. Ama ne yaparsanız yapın ister kayıt yapın, ister kayıt SİLİN vb... hiç farketmez. Dosyanızın boyutu artacaktır. Microsoft buna çare olarak Database Manager'da Decrypt Database seçeneğini eklemiştir. Sizde bu seçenek yardımıyla gereksiz yere şişen dosyalarınızı gerçek boyutlarına indirgeyebiliyorsunuz. Bu işlemin yapılışını anlatayım:

Add/İns menüsünden Data Manager'e girin. File menüsünden Decrypt Database seçeneğini işaretleyin. Açılan pencereden Söz konusu database'nizi seçin. Sizden ikinci bir pencerede yeni bir ad istenir. Bu ad sıkıştırılan, daha doğrusu gerçek boyutuna getirilen databasenizin yeni adı olacaktır. ÖR: Kayıt.mdb yi Decrypt ediyoruz ve yeni adına Kayıt1.mdb yazıyoruz. Daha sonra Data manageri kapatın. Mdb dosyanızın olduğu dizine gelip eski databasenizi silin. Daha sonra sıkıştırılmış databasenin ismini eskisi ile değiştirin.

Ör: Eski ad: Kayıt.mdb
Yeni ad : Kayıt1.mdb

Kayıt.mdb silinecek. Kayıt1.mdb'nin adı Kayıtçmdb olarak değiştirilecek.

Hepsi bu. Kolay gele...




Yorumlar, eklemeler ve düşünceler
        Ama önemli olan bunu kod ile yapmak, çünkü programı sattığınız şirkete, siz ara - sıra şöyle şöyle yapın diyemezsiniz. Çünkü gerçekten önemli bir sorun !



   xxxmcs, 09 Aralık 2003 Salı
   dosyayı kodla düzeltirken kullandığın repairdatabase yerine decrypt database yazıp dene. kolay gele.

   spider58, 11 Aralık 2003 Perşembe
   kodla bir örnek verebilirmisiniz..?

   gemilim, 24 Aralık 2003 Çarşamba
   DAO yapısıyla Şifreleme ve Onarma yapabiliyorum fakat ADO ile olmuyor galiba (bildiğim kadar)...

   xxxmcs, 11 Ocak 2004 Pazar
   bunu zaten kod le yapabiliyorsunuz neden biraz araştırma yapmıyorsunuz
saygılarımla

   muhittin_kaplan, 15 Ocak 2004 Perşembe
   Sub CompactDatabaseX()

Dim dbsNorthwind As Database

Set dbsNorthwind = OpenDatabase("Northwind.mdb")

' Show the properties of the original database.
With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print " CollatingOrder = " & .CollatingOrder
.Close
End With

' Make sure there isn't already a file with the
' name of the compacted database.
If Dir("NwindKorean.mdb") <> "" Then _
Kill "NwindKorean.mdb"

' This statement creates a compact version of the
' Northwind database that uses a Korean language
' collating order.
DBEngine.CompactDatabase "Northwind.mdb", _
"NwindKorean.mdb", dbLangKorean

Set dbsNorthwind = OpenDatabase("NwindKorean.mdb")

' Show the properties of the compacted database.
With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print " CollatingOrder = " & .CollatingOrder
.Close
End With

End Sub
..
This example uses the CompactDatabase method to change the version of a database. To run this code, you must have a Microsoft Jet version 1.1 database called Nwind11.mdb and you cannot use this code in a module belonging to Nwind11.mdb.
Sub CompactDatabaseX2()

Dim dbsNorthwind As Database
Dim prpLoop As Property

Set dbsNorthwind = OpenDatabase("Nwind11.mdb")

' Show the properties of the original database.
With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print " CollatingOrder = " & .CollatingOrder
.Close
End With

' Make sure there isn't already a file with the
' name of the compacted database.
If Dir("Nwind20.mdb") <> "" Then

Rem leri türkçeleştirecek zamanım olmadı.
Zorlanacağınız düzeyde bir kodda deil zaten..
İyi Çalışmalar..

   Teseract, 17 Ocak 2004 Cumartesi
   son yorum harika

   finderx, 24.03.2006 00:24
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin