Accesdeki Verileri Mssql'a Kopyalama

Alıntı:
İ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:

Code:

<%
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=Paro la;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ı.