- 1 Ağu 2007
- 5,470
- 41
Programsız Access ten Mysql Çok Kolay
Ö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.
Ö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.
<%
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
%>