Access üzerinden ODBC ile veritabanına bağlantı kurulması
En güzel yerlerine geldik. Bunu bu sitede en az bilen benimdir diye düşünüyorum. Ustaların yanında bana laf düşmez ama sitede bunun ile ilgili arama yapabilirsiniz.
Öncelikle 32 64 bit hangisini kullanıyorsanız ona uygun connector programını indireceksiniz. Mesela şuradan
https://dev.mysql.com/downloads/connector/odbc/
sonra sitede ODBC bağlantısı ile ilgili konular oradan arama yapabilirsiniz mesela şunu izleyebilirsiniz
https://www.youtube.com/watch?v=AKy81T0QiZ8
Bağlantı cümleleri ile veritabanına bağlanıp Sql ile işlem yapabiliriz.Şuradan bağlantı cümlesi bulabilirsiniz
https://www.connectionstrings.com/


bunun için tools-> references kısmından şöyle bir şey eklemelisiniz
microsoft activex data objects 6.1 library 

en güzeli connect diye bir modül oluşturun
Const strConn As String = "Provider=MSDASQL;Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;UID=root;PWD=sifre;database=veritabani_adi"
en üste şunu yapıştırın kendinize uyarlayın. Sonra modüle şunu yapıştırın


Public Function GetDatabaseConnection() As ADODB.Connection
 
  If Not m_DatabaseConnection Is Nothing Then
      Set GetDatabaseConnection = m_DatabaseConnection
      Exit Function
  End If
 
  On Error GoTo ConnectionFailed
 
  Set m_DatabaseConnection = New ADODB.Connection
  m_DatabaseConnection.connectionString = m_ConnectionString6
  m_DatabaseConnection.Open
 
  Set GetDatabaseConnection = m_DatabaseConnection
 
  Exit Function

ConnectionFailed:
  Set m_DatabaseConnection = Nothing
  Set GetDatabaseConnection = Nothing
End Function


sonra da herhangi bir formun herhangi bir tıklama olayına şunu yapıştırın

Private Sub Document_AfterExtract()
    On Error GoTo Err_hata

    Dim DatabaseConnection As ADODB.Connection
    Dim Sql As String
    Dim Cmd As ADODB.Command
    Dim Param, Param1 As ADODB.Parameter
    Dim Recordset As ADODB.Recordset
    Dim i As Integer
    Dim S As String
    Set DatabaseConnection = GetDatabaseConnection
    If DatabaseConnection Is Nothing Then
      ' error
      MsgBox "işlem yapılamadı"
      Exit Sub
    End If
 
    MsgBox "işlem tamam"
   
Exit_kod:
    Exit Sub

Err_hata:
    MsgBox Err.Description
    Resume Exit_kod
 
End Sub


değişiklikleri kendinize doğru uyarladı iseniz "işlem tamam" mesajı çıkmalı