gokhanca

Visual Basic 6.0 programının günümüzde geçerliliğini yitirmiş olması kimsenin inkar edemeyeceği bir gerçek. Fakat bu demek değildir ki VB 6.0 artık hiç bir işe yaramaz. Sadece günüzümüzdeki programlama dilleri birden çok platformda ve çok farklı dillerle entegre olabilen güçlü ve esnek yapıları ile tercih sebebi. Özellikle .NET gibi güçlü bir yapının yanında hala daha VB 6.0 'dan bahsediyor olmak olmaz. Fakat buna rağmen uygulamalarında VB 6.0 kullanması gereken programcılar için çok da kötü senaryolar yazmaya gerek yok. Bu konu anlatımında MySQL veritabanına bağlanma ve veritabanı işlemleri üzerinde duracağım. Ama bunun için iki tane ön kabulüm var.

İlk olarak, sisteminizde MySQL ODBC 5.1 Driver kurulu olduğunu varsayarak konu anlatımıma geçiyorum. Bunu öğrenmek için Denetim Masası > Yönetimsel Araçlar > Veri Kaynakları (ODBC) programı çalıştırılarak ekrana gelen ODBC sürücüleri listesine bakabilirsiniz. İnternette birçok kaynakta ücretsiz olarak MySQL ODBC 5.1 sürücüsü bulmak mümkün. İndirip, bilgisayarınıza kurup, ODBC Yöneticisi programında Ekle butonuna basarak listeye MySQL sürücüsünü ekleyebilirsiniz. Ekleme işlemi sırasında server olarak localhost yazmalısınız.

İkinci olarak, MySQL veritabanına ulaşmayı ve tabloları görüntülemeyi, düzenlemeyi, silmeyi, veritabanı yaratmayı, SQL dilini bildiğinizi varsayıyorum. Zira, bu işlemleri anlatmam konu dağınıklığına sebep olacak. Amacım sadece bağlantının nasıl yapıldığıdır. Bu belirttiğim işlemler ancak başka bir konu anlatımının içeriği olabilir ve gerçekten çok kapsamlı ele alınması gereken konulardır.

1. MySQL Veritabanı ile Bağlantı Kodları

Projemize Public yapısında bir Baglanti değişkeni tanımlayalım. Bunu bir module içerisinde yapıyoruz.

Public Baglanti As String

Bu değişkenin Public olmasının sebebi birden çok form üzerinde bağlantı yaparken bu değişkenin tanınmasını sağlamak. Programımızın ilk açılan formunun Load olayına aşağıdaki kodları ekleyelim. Her forma eklemenize gerek yok. İlk açılan forma konulması yeterli.

Baglanti = "Driver={MySQL ODBC 5.1 Driver};"
Baglanti = Baglanti & "Server=localhost;"
Baglanti = Baglanti & "Database=veritabanı_adı;"
Baglanti = Baglanti & "User=kullanıcı;"
Baglanti = Baglanti & "Password=ÅŸifre;"
Baglanti = Baglanti & "option=3;"
Baglanti = Baglanti & "stmt=SET NAMES 'utf8_unicode_ci';"

Artık Baglanti değişkenimiz MySQL ile bağlantı sağlamak isteyen her nesne için kullanıma hazır. Burada MySQL bağlantısını yaparken yukarıda koyu yazılmış ifadeleri kendi değerlerinize uygun olarak düzenleyin.

2. ADODC Nesnesi ile MySQL’e Bağlanalım

Formumuzun üzerine 1 adet Adodc nesnesi ekleyelim. Bu formun Load olayına aşağıdaki kodu yazalım.

Adodc1.ConnectionString = Baglanti

İşte bu kadar. Ekleyeceğiniz her Adodc nesnesi için aynısını yapabilirsiniz. Üstelik bütün formlarda kullanım şekli aynı olacak.

Adodc1.ConnectionString = Baglanti
Adodc2.ConnectionString = Baglanti
Adodc3.ConnectionString = Baglanti

Şimdi bir sorgu yazalım ve çalıştıralım.

Adodc1.RecordSource = "SELECT * FROM tablo WHERE sorgu"
Adodc1.Refresh

Adodc nesnesi için Properties penceresi üzerinde herhangi bir ayarlama yapmaya gerek yok. Bu kodlar ile MySQL için gerekli bağlantılar yapılmış olacaktır. Sorgumuzu yaptık ama sonuçları göremedik. Tüm sonuçları MSHFlexGrid üzerine dökelim. Bunun için MSHFlexGrid nesnesinin DataSource özelliğini Adodc1 yapalım. Ardından da yukarıda en son verdiğim kodun altına aşağıdaki kod satırını ekleyelim.

MSHFlexGrid1.Refresh

MySQL ile bağlantı kurup veri alışverişi yapmak isteyen bütün nesneler için Baglanti değişkenini yukarıdaki gibi kullanabilirsiniz. Programınızın açılışında Textbox ile kullanıcıdan değer alıp bunları yukarıda Baglanti değişkenine yüklediğimiz koyu alanlara değişken olarak ekletebilirsiniz. Böylece sabit bir bağlantı yerine programın açılışında kullanıcı tarafından seçilebilen dinamik bir bağlantı sağlamış olursunuz.