Açıklama
MySQL veritabanından istenilen bilgilerin seçilerek, access veritabanına atılmasını sağlayan örnek bir kod.
ASP SOURCE CODE
<%
' MySQL baglantisi yapılıyor
set con=server.CreateObject("ADODB.Connection")
con.open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mysql"
set rs=server.CreateObject("ADODB.Recordset")
sqlstr="SELECT * FROM veritabanı_tablo_adi"
rs.open sqlstr, con
' Access Baglantısı yapılıyor.
Set veritabani = Server.CreateObject("ADODB.Connection")
veritabani.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("vt.mdb")
while not rs.eof
SQL="insert into vt_tablo_adi (alan1_adi, alan2_adi) values ("&rs(0)&","&rs(1)&")"
veritabani.Execute (SQL)
rs.movenext
wend
Response.Write("Bitti")
%>Detaylı İnceleme
Yukarıdaki kodu çalıştırmadan önce bilgisayarınızda MySQL ODBC Driver'ın kurulu olması gerekmektedir.
MySQL ODBC Driver kurulduktan sonra Denetim Masası -- Yönetimsel Araçlar -- Veri Kaynakları --- Sistem DSN bölümüne MySQL ODBC Driver olarak ilgili MySQL veritabanının eklenmesi gerekmektedir.
Örnek kodda yapılan bağlantının ismi mysql'dir. Kodda bulunan DataSource=mysql bölümünde belirtilmiştir. Sizde kendi bağlantınızın ismini bu bölüme yazabilirsiniz.
MySQL veritabanından çekilen kayıtlar rs verisetine atılmakta ve bu veriseti daha soonra bir while döngüsüyle Access veritabanına atılmaktadır.
İyi çalışmalar.
Görüntülenme: 1538
Ekleyen: Administrator