06/01/2020, 11:49
accessman
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ı
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ı