<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta charset="utf-8">
<%
Set Baglanti = Server.CreateObject("adodb.connection")
Baglanti.Open = "driver={mysql odbc 3.51 driver}; server=xxxxx.com; UID=xxxxxx; pwd=xxxxx?6; db=xxxxx; port=3306;stmt=SET NAMES 'utf8'"
Baglanti.Execute "SET NAMES 'utf8'"
Baglanti.Execute "SET CHARACTER SET utf8"
Baglanti.Execute "SET COLLATION_CONNECTION = 'utf8_general_ci'"
Dim Conn, Sql, rs
Set Conn = Server.createobject("ADODB.Connection")
'Conn.Open "Driver={Microsoft Excel Driver (*.xls)}; DriverId=790;DBQ=C:\inetpub\wwwroot\kitapci\yonetim\turkce.xls;DefaultDir = C:\Inetpub\wwwroot\excel\"
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\kitapci\yonetim\turkce.xls;Extended Properties=Excel 8.0;Persist Security Info=False"
' Ark1 is danish for Sheet1
Sql = "select * from [Veri$]"
Set kate = Server.CreateObject("ADODB.RecordSet")
aSQL = "select * from kitap"
kate.open aSQL,Baglanti,1,3
set rs = Conn.Execute(Sql)
ii=0
xx="ilk"
'on error resume next
do while not rs.eof or rs.bof
response.write "gg" & rs("Kitap Adi") & "gg<br>" & vbCrLf
if rs("Kitap Adi")<>"" then
on error goto 0
kate.addnew
kate("kadi")= rs("Kitap Adi")
kate("kbarkod")= rs("Barkod No")
kate("korjinal")= rs("Kitap Orijinal Adi")
kate("isbn")= rs("ISBN")
kate("tarih")= rs("Basim Yili")
kate("sayfa")= rs("Sayfa Sayisi")
if rs("Yazari")<>"" then
kyazari=replace(rs("Yazari"),"'","\'")
if baglanti.execute("select * from yazar where adi like '" & kyazari & "'" ).eof=true then
baglanti.execute("insert into yazar(adi) values('" & kyazari &"')")
end if
set yazarbul=baglanti.execute("select * from yazar where adi like '" & kyazari & "'" )
end if
'kate("kyazar")= yazarbul("id")
kate("ceviri")= rs("Ceviren")
kate("kturu")= rs("Turu")
kate("yayinevi")= rs("Yayin Evi")
kate("cilt")= rs("Cilt Numarasi")
'kate("materyalt")= rs("Materyal Turu")
'kate("kadi")= rs("ppppi")
'kate("kadi")= rs("ppppi")
'kate("kadi")= rs("ppppi")
response.write "oldu<br>"
kate.update
end if
ii=ii+1:if ii=4 then exit do
rs.movenext
loop
Conn.CLose
Set Conn = nothing
%>iyi akşamlar bu kodlar ile exceldeki verileri mysql e aktarmak istiyorum ancak ekleme sırasında türkçe karekterden sonraki kısmı kayıt etmiyor.örenğin: sadasdasıasdasd olacak yeri sadasdas olacak şekilde kaydediyor. bir türlü çözemedim. hosting firması da daha güncel odbc kaynağı kullanmıyor. aklıma gelen her şeyi denedim hiç bişey değişmedi
