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.
| < Önceki | Sonraki > |
|---|
