Excelden MySql'e Macro ile Nasıl Veri Gönderebilirim

[saittin]

Bilen arkadaş varsa çok müteşekkir olacağım... :yardim:

 

[Mehmet Şahin]

Merhaba,
Bu soruyu yanıtlayabilmek için tablo yapını ve nasıl bir veri göndereceğinizi bilmek gerekir. Aşağıda mysql veritabanına ip üzerinden nasıl bağlanacağınızı gösteren kod vardır.

Dim bag_yolu As String
Public Function baglan() As ADODB.Connection
Dim con As New ADODB.Connection
psw = InputBox("Lütfen Şifre Girin'", "Veritabanı Giriş!")
bag_yolu = "Driver={MySQL ODBC 3.51 Driver};Server=xx.xxx.xx.xx;Port=3306;Database=veritabanınız;User=root; Password=" & psw & ";Option=3;"

On Error GoTo ErrorHandler
con.ConnectionString = bag_yolu
con.Open
Set baglan = con
'MsgBox "success"
Exit Function
ErrorHandler:
'Mesajlar
MsgBox "hata"
Resume Next
End Function

Bu fonksiyonu prosedür içinde;

Set con = baglan()

şeklinde çağırıyoruz.