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.

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

alıntıdır....(kaynak:excelvba.net)

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.

Paylaşım için teşekkürler.

Eğer Exchange Mail Kullanıyorusunuz Ve Şirket Maili Kullanıyorsanız IT Departmanınızla Görüşürseniz Bu Sorunu Exchange Mail Sunucusu Üzerinden Çözümleyebilir.