Programsız Access ten Mysql Çok Kolay

[disconnect]

Öncelikle localhostumuza mysql kurulmuş ve tablolarımız oluşturulmuş olmalıdır.
Yapacağımız işlem accessten verileri okuyarak mysql deki tablomuza yazmaktır.
Küçük veritabanları için 30 sn de bitebilecek bir işlemdir.
Bu yöntemle bütün veritabanları arasında dönüşüm yapılabilir, en azından öyle düşünüyorum.
Ben kodları denedim kullandım ve sorunsuz olarak çalıştırdım.

<%
dbPath = Server.MapPath("veritabanim.mdb")
Set Baglantim = Server.CreateObject("ADODB.Connection")
Baglantim.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbPath)


set rs = baglantim.execute("select * from tablom")
Do While Not rs.Eof
baslik=rs("baslik")
resim=rs("resim")
metin=rs("metin")
%>

<%
set conn=Server.CreateObject("ADODB.Connection")
dsn="Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=veritabanimSql;U id=root;Pwd=;"
conn.open dsn


conn.execute("insert into Yenitablo (baslik,resim,metin) values ('"&baslik&"','"&resim&"','"&metin&"')")
rs.Movenext

Loop
%>

Dönüşüm Tamam

Kolay Gelsin