Program Kullanmadan Access İ Mysql E

[wmismail]

Arkadaşlar nette sürüyle dönüşüm programı var. Sorarsanız niye verdin ? Cevap : Gıcıklık olsun diye

Sadece bir mantık anltacağım .

Access i açıp okutup, mysql e yazacağız

<%
dbPath = Server.MapPath("vt.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=vt;U id=root;Pwd=;"
conn.open dsn


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

Loop
%>[/CODE]

tamamdır..