1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz

Delphi-Excel Veritabanı Bağlantısı

Konusu 'Delphi İle Başlangıç' forumundadır ve YoRuMSuZ tarafından 8 Temmuz 2009 başlatılmıştır.

  1. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.430
    Beğenileri:
    7.357
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.819 ÇTL
    Delphi ile uygulama geliştirirken excel'i veritabanı olarak kullanmak ister misiniz? Delphi ile çok farklı yapıda veritabanları kullanılabilir. İhtiyacınıza göre Excel'i de veritabanı olarak kullanabilirsiniz.

    Şimdi Delphi-Excel veritabanı bağlantısının nasıl kurulacağını öğrenelim.

    - Yeni bir proje başlatın ve projenizi bir klasöre kaydedin.

    - Projenizi kaydettiğiniz klasörün içinde bir adet Excel dosyası oluşturun ve;
    • A1 hücresine Alan1
    • B1 hücresine Alan2
    • C1 hücresine Alan3
    - Yazıp Kitap.xls adı ile kaydedin. Bu sütunlara program aracılığı ile veriler gireceğiz.

    - Forum üzerine alttaki bileşenleri yerleştirin;
    - 1 Adet ADODataSet
    - 1 Adet DataSource
    - 1 adet DBGrid
    - 3 adet DBEdit
    - 1 Adet DBNavigator
    - Şimdi ADODataSet bileşeni ile Kitap.xls adlı Excel dosyamızın bağlantısını sağlamamız gerekiyor. Bunun için;
    • ADODataSet bileşenini seçili hale getirip Properties sekmesinden ConnectionString satırını seçin ve önündeki boşluğa çift tıklayarak ayar penceresini aktif edin.
    • Açılan penceredeki Build butonuna bastığınızda yeni bir pencere açılacaktır. Buradan Microsoft Jet 4.0 OLE DB Provider satırını seçip İleri butonuna tıklayın. Böylece bağlantı sekmesine (yeni pencere) açılmış oldu.
    • Bağlantı bölümünde kutucuğun sağındaki butona tıklayıp Kitap.xls dosyasını gösterin. Bu bölümdeki diğer ayarlara dokunmaya gerek yok. Veya kendiniz Kitap.xls yazabilirsiniz.
      Not: Kitap.xls dosyasını gösterdiğinizde satırda dosyanın tam yolu yazacaktır. Tavsiyem tam yolu silip sadece Kitap.xls kalacak şekilde ayarlayın. Böylece program dizininde bu dosya olduğu sürece hatasız çalışacaktır.
    • En son sekmeye (Tümü) gelin buraki Extended Properties sekmesine çift tıklayıp Özellik Değeri alanına Excel 8.0 yazın.
    • Şimdi Bağlantı sekmesindeki Bağlantıyı Sına butonuna tıklayıp test edebilirsiniz. Mesaj olumlu ise işlem başarılıdır.
    [​IMG]


    - Şimdi ADODataSet1 seçin ve Properties sekmesinden:
    • CommandType seçeneğini cmdTableDirect seçin.
    • CommandText seçeneğini ise Sayfa1$ yapın.
    - Buraya kadar olan bölüm işin karışık gibi görünen ama çok basit bir bölümüydü. Bundan sonrası çok daha kolay.

    - DataSource bileşenini seçili hale getirin ve Properties sekmesinden Dataset satırının sağındaki açılır kutudan ADODataSet1 seçin.

    - Diğer bileşenler (3 adet DBEdit, DBNavigator ve DBGrid) hepsini tek tek seçerek Properties sekmesinden DataSource1 ile ilişkilendirin.


    - Yine Properties sekmesinden;
    • DBEdit1 seçili hale getirip Properties sekmesinden DataField satırından Alan1,
    • DBEdit2 seçili hale getirip Properties sekmesinden DataField satırından Alan2,
    • DBEdit2 seçili hale getirip Properties sekmesinden DataField satırından Alan3,
    Seçin.

    - Şimdi program açılırken excel tablomuzun da programla bağlantısının sağlanması için forumun boş bir yerine çift tıklayın ve kod satırına;
    Kod:
      Kodları görebilmek için ÜYE omalısınız !
    Yazın.

    - Projenizi kaydedin ve F9 tuşuna basarak çalıştırın. Delphi açık olduğu için Kitap.xls dosyası hala kullanımdadır ve dolayısıyla program hata verecektir. Siz şimdi File menüsünden Close All deyin ve oluşan exe dosyanızı çalıştırın.

    Excel artık veritabanı kayıtlarını tutmak için hazır. Verilerinizi program arayüzünden girebilirsiniz. Excel tablonuza kayıt işlemi gerçekleşecektir.

    Uygulama kodlarını indirmek için [Linkleri görebilmek için ÜYE olmalısınız!..]tıklayın. (İçerisinde exe dosyası da mevcuttur)

    Boyut: 302 KB

    [​IMG]
     
  2. izetolmaz_

    izetolmaz_ Üyecik

    Katılım:
    30 Ağustos 2009
    Mesajlar:
    2
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    :)çok güzel olmuş teşekürler yeniyim yardımlarınıı bekliyorum:):zip
     
  3. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.430
    Beğenileri:
    7.357
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.819 ÇTL
    Excel bağlantısı biraz uğraştıran bir işlem ama bazen işlemleri excele yaptırmak gerkebilir. İşte o zaman imdadımıza yukarıdaki işlem yetişebilir.

    Ancak en basit haliyfe Delphi'de Access veritabanı kullanmanızı öneririm. Büyük projelerle çalışacaksanız Firebird veritabanı.
     
  4. inal27

    inal27 Üyecik

    Katılım:
    24 Eylül 2009
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    kardeşim çok güzel olmuş eline sağlık. teşekkürler dilerim.
     
  5. hastasiempre35

    hastasiempre35 Üyecik

    Katılım:
    22 Şubat 2010
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    sağolasın ustam ellerine sağlık
     
  6. Maceraperest

    Maceraperest Üyecik

    Katılım:
    14 Ekim 2011
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    ekteki dosya bozulmuş inmiyor
     
  7. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.430
    Beğenileri:
    7.357
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.819 ÇTL
    Şimdi test ettim, download linkinde sorun yok.
     
  8. BeReNN
    Uykumvar

    BeReNN Özel Üye Özel üye

    Katılım:
    30 Nisan 2011
    Mesajlar:
    8.855
    Beğenileri:
    254
    Ödül Puanları:
    5.330
    Cinsiyet:
    Bayan
    Meslek:
    Muhasebe
    Yer:
    Istanbul, Turkey
    Banka:
    289 ÇTL
    Evet bendede sorun olmadı şimdi denedim:)
     
  9. Kayıtsız Üye

    Kayıtsız Üye Ziyaretçi

    teşeşkür ederim
     

Sayfayı Paylaş