Alıntıdır.
Verdiğiniz bilgilerden, VB 6.0'da bir puantaj uygulaması geliştirdiğinizi ve bu uygulamanın verilerini masaüstündeki "puantaj" klasöründe bulunan "puantaj.xlsx" adlı Excel dosyasında saklamak istediğinizi anlıyorum. Temel olarak, VB 6.0 formlarınız aracılığıyla Excel dosyasına veri kaydetmek ve bu verileri çağırmak istiyorsunuz.
Çözüm:
VB 6.0'da Excel dosyasını veritabanı olarak kullanmak için ADO (ActiveX Data Objects) teknolojisini kullanabilirsiniz. ADO, VB 6.0'ın Excel gibi harici veri kaynaklarıyla etkileşim kurmasını sağlar.
1. ADO Bağlantısı Kurma:
- VB 6.0 projenize "Microsoft ActiveX Data Objects Library" referansını ekleyin.
- Aşağıdaki kod örneğini kullanarak Excel dosyasına ADO bağlantısı kurun:
Dim baglanti As New ADODB.Connection
Dim kayitseti As New ADODB.Recordset
baglanti.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\KullanıcıAdı\Desktop\puantaj\puantaj.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
baglanti.Open
- KullanıcıAdı yerine kendi kullanıcı adınızı yazın.
- HDR=YES, Excel dosyasının ilk satırının sütun başlıkları olduğunu belirtir.
2. Veri Kaydetme:
- Aşağıdaki kod örneğini kullanarak Excel dosyasına veri kaydedebilirsiniz:
kayitseti.Open "Puantaj", baglanti, adOpenKeyset, adLockOptimistic
kayitseti.AddNew
kayitseti!Ad = "Ahmet"
kayitseti!Soyad = "Yılmaz"
kayitseti!Tarih = "2024-03-15"
kayitseti.Update
kayitseti.Close
- Puantaj, Excel dosyasındaki çalışma sayfasının adıdır.
- Ad, Soyad, Tarih gibi sütun adları, Excel dosyasındaki sütun başlıklarıyla eşleşmelidir.
3. Veri Çağırma:
- Aşağıdaki kod örneğini kullanarak Excel dosyasından veri çağırabilirsiniz:
kayitseti.Open "SELECT * FROM Puantaj WHERE Ad = 'Ahmet'", baglanti, adOpenKeyset, adLockReadOnly
If Not kayitseti.EOF Then
MsgBox kayitseti!Soyad
End If
kayitseti.Close
- Bu kod, "Ad" sütununda "Ahmet" değerine sahip kayıtları çeker ve "Soyad" sütunundaki değeri bir mesaj kutusunda görüntüler.
Önemli Notlar:
- Excel dosyasının açık olmaması gerekir.
- Excel dosyasındaki sütun adları ve veri türleri, VB 6.0 kodunuzdaki sütun adları ve veri türleriyle eşleşmelidir.
- Büyük veri setleriyle çalışırken performans sorunları yaşayabilirsiniz. Bu durumda, daha güçlü bir veritabanı sistemi (örneğin, SQL Server) kullanmayı düşünebilirsiniz.
- Excel dosyası veritabanı olarak kullanmak veri güvenliği açısından risk oluşturabilir. Bu sebeple dikkatli olmalısınız.
