Accesdeki Verileri Mssql'a Kopyalama

İnternette gezinirken bir kod buldum ve birçok kişinin rahatlıkla kullanabileceği basit bir işlemle access veritabanındaki bilgileri mssql veritabanına aktarabilirsiniz.

Aşağıdaki kodu istediğiniz bir adla kaydedin, gerekli bilgileri değiştirin ve çalıştırın:

<%
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 Baglantim=Server.CreateObject("Adodb.Connection")
Baglantim.Open "driver={SQL Server};server=localhost;uid=KullanıcıAdı;pwd=Parola;database=veritabanim"


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

Loop
%>
İşlem Tamamdır

Bu kodda değiştirmeniz gereken bilgiler; access veritabanı yolu ve mssql veritabanı bilgileridir. Ayrıca kodlarda tablom, Yenitablo, baslik, resim, metin yazan yerleride değiştirmeyi unutmayınız.


Bu işlemi kendim bilgisayarımda denedim. Yaklaşık 130-135 adet veriyi, ayrıca her veride metin alanında yaklaşık 2000 harften oluştan metini kopyaladım. Sonuç başarılıydı.