|
|
| ASP ile xml dosyasını parse edip veri tabanına aktarmak |
| 10.05.2011 tarihinde , Espiar tarafından yazılmış ve 353 kere okunmuş. |
|
|
 Bir xml dosyasını parce edip access veritabanına aktarmak istiyoruz.
<?xml version="1.0" encoding="iso-8859-9" ?><root>
<Stok AnaGrup_Kod="AA" AnaGrup_Ad="Anakartlar" AltGrup_Kod="AA0" AltGrup_Ad="Anakartlar-Socket370" Kod="AA080INT04" Ad="INTEL SDS2 SERVERWORKS DUAL PIII" Doviz="1" Fiat_SKullanici="655,5" Fiat_Bayi="570" Fiat_Ozel="545" Miktar=" 1" Garanti="36" Marka="INT" Vergi="1"/></root>
gibi --liste.xml-- isimli bir xml dosyasını parce edip access veritabanına aktarmak istiyoruz.
<html>
<head>
<title>vtbyaz</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<%@ language="vbscript" codepage=1254%>
<!--#include file="adovbs.inc"-->
<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
dosya = Server.MapPath("liste.xml")
objXML.Load (dosya)
dim baglan,rekord
set baglan=server.createobject("ADODB.Connection")
baglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("penta.mdb"))
set rekord=server.createobject("ADODB.Recordset")
rekord.open "select * from fiatlistesi",baglan,adOpenDynamic,adLockOptimistic
Set sec = objXML.selectNodes("//Stok")
For i = 0 to (sec.Length - 1)
rekord.AddNew
rekord("anagrupkod")=sec(i).GetAttribute("AnaGrup_Kod")
rekord("anagrupad")=sec(i).GetAttribute("AnaGrup_Ad")
rekord("altgrupad")=sec(i).GetAttribute("AltGrup_Kod")
rekord("altgrupkod")=sec(i).GetAttribute("AltGrup_Ad")
rekord("kod")=sec(i).GetAttribute("Kod")
rekord("ad")=sec(i).GetAttribute("Ad")
rekord("doviz")=sec(i).GetAttribute("Doviz")
rekord("fiatsonkullanici")=sec(i).GetAttribute("Fiat_SKullanici")
rekord("fiatbayi")=sec(i).GetAttribute("Fiat_Bayi")
rekord("fiatozel")=sec(i).GetAttribute("Fiat_Ozel")
rekord("miktar")=sec(i).GetAttribute("Miktar")
rekord("garanti")=sec(i).GetAttribute("Garanti")
rekord("marka")=sec(i).GetAttribute("Marka")
rekord("vergi")=sec(i).GetAttribute("Vergi")
rekord.update
Next
rekord.close
set rekord=nothing
baglan.close
set baglan=nothing
response.write("xml fiyat listesi veritabanına kaydedildi--")
%>
</body>
</html>
|
|
|
| Etiketler : asp, xml, dosyalar, pase etmek, veri tabanı, aktarma işlemi |
|
|
|
|
| Bu yazıya hiç yorum eklenmemiş. |
| Sizde bu yazıya yorum
yapabilirsiniz.. |
|
|
|
|
Üyelik |
|
|
|
|
Duyuru |
|
| Askerlik nedeni ile ara verilmiştir... NEKES.NET |
|
|
|
|
|
| |
|
 Rastgele Yazı |
|
|
|
|
|
|
| ● Son Yorumlar |
|
Çok teşekkür ederim. Sitemin admin panelinde kullandım ve ekleme ve güncelleme sayfalarım gibi dışarıya kapalı olması gereken her sayfada çalıştırdım. Fevkalade çalışıyorlar. Uzun ve zahmetli aramalardan kurtuldum. Allah razı olsun.Yazan:
Erkan Güney
merhaba site çok hoş elinize sağlık ben yeni mezunlardanım bununla başladım inceledim gayette güzel oldu gerekli düzeltmeleri yapınca fakat bi sorun var henüz kimse karşılaşmamıs sanırım FCK EDİTÖR admin sayfalarında çalışmıyor. bu durumu çözemedim şimdiden teşekkürlerYazan:
seda aslan
merhaba barziweb redkod hepsini indirdim ama hosta 404.asp gösteriyorum elimle .asp gösterirsem sorun yok ama .html seo açıkken asp dosyasına ulaşamıyor
ADODB.Field (0x800A0BCD)
Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor.
/7/kurumsal_detay.asp, line 103
bu hatayı veriyor çözemedim bu scirptin düzgün çalışan versiyonu yokmu acaba ?
selamlarYazan:
canberk
Database Disclosure açığı var.Yazan:
özkan
üstad bu 404 hata sayfasını nasıl çevirecegiz 404.aspye lütfen biraz bu konuda yardım edermisinYazan:
hüseyin kandemir
|
|
|
|
|
|
Kategoriler
Çok Okunan Yazılar
