MySQL VBA ile Veritabanında İşlem Yapma Örneği

Bir MySQL işlem örneği.
İlk sorgu ile Tablo içindeki alanlara Excel sayfasından şartlı veri gönderiliyor.
Sonraki kontrolde, yollanmış olan verilerin E ile başlamamaması durumunda silinmesi isteniyor.


Kod:
Sub MySQL_DegerGuncelle()
Dim con As Object, Kitap As Workbook, Sayfa As Worksheet
Dim Hucre As Range, Deger As String, Sorgu As String
Set Kitap = ThisWorkbook
Set Sayfa = Kitap.Worksheets("Datalarım")
With Sayfa
Set Hucre = .Range("A1")
Deger = Hucre.Value
End With
Set con = CreateObject("ADODB.Connection")
' Kullanıcı ve parola gerektirmiyorsa boş bırakınız
con.ConnectionString = "DRIVER={MySQL};" & "SERVER=sunucunuz;" _
& "DATABASE=veritabanınız;" & "UID=kullanıcı;PWD=parola;OPTION=3;"
con.Open
Sorgu = "UPDATE Tablo SET Alan1 = '" & Deger & "' WHERE Alan2 ='Excel'"
con.Execute (Sorgu)
Sorgu = "DELETE FROM Tablo WHERE Alan2 NOT LIKE 'E%'"
con.Execute (Sorgu)
con.Close
Set con = Nothing
End Sub
Aslında veritabanı ne tür olursa olsun mutlaka bir provider ile bağlantı şekli vardır. Her türlü veritabanına kodlamalar ile dışarıdan girip verilerle oynamak oldukça keyifli. Tabi dikkatli olunması gerekli yoksa girdiğiniz veritabanında tüm yapısal sistemi çökertebilirsiniz.