implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP
 ASPTurkiye.com Forum : ASP
Konu Konu: XML dosyasındaki veriyi veri tabanına çek Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
gatem
Yeni Üye
Yeni Üye


Kayıt Tarihi: 27-Aralık-2007
Gönderilenler: 10
Gönderen: 26-Nisan-2012 Saat 15:20 | Kayıtlı IP Alıntı gatem

Merhaba bu işlerde yeniyim. Aşağıdaki kesit gibi devam eden bir xml dosyasına bağlandım.

<?xml version="1.0" encoding="UTF-8"?><ROOT>
<STOKLAR>
<STOK Stok_Kod="ANAAMD0001AMD030" Stok_Ad="Foxconn AHD1S-K OnBoard AMD E350 DDR3 S+V+GL+16X">
<OZELLIKLER>
<OZELLIK>PCI Express x1 Slot Sayıs </OZELLIK><DEGER>Yok </DEGER><OZELLIK>Tümleşik Görüntü Kartı </OZELLIK><DEGER>Var </DEGER><OZELLIK>İşlemci Üreticisi </OZELLIK><DEGER>Amd </DEGER><OZELLIK>PCI Express x16 Slot Sayı </OZELLIK><DEGER>1 </DEGER><OZELLIK>PCI Slot Sayısı </OZELLIK><DEGER>Yok </DEGER><OZELLIK>Maksimum Bellek </OZELLIK><DEGER>8 GB </DEGER><OZELLIK>Yapı Standartı </OZELLIK><DEGER>Micro ATX (mATX) </DEGER><OZELLIK>Garanti Süresi </OZELLIK><DEGER>36 Ay </DEGER><OZELLIK>Tümleşik Ağ Kartı </OZELLIK><DEGER>10/100/1000 Mbps </DEGER><OZELLIK>Portlar </OZELLIK><DEGER>1 x PS/2 Klavye </DEGER><OZELLIK>Portlar </OZELLIK><DEGER>1xDVI (Monitör Çıkışı) </DEGER><OZELLIK>Portlar </OZELLIK><DEGER>6 Kanal Ses(5+1) </DEGER><OZELLIK>Portlar </OZELLIK><DEGER>1 x VGA (Monitör Çıkışı) </DEGER><OZELLIK>Portlar </OZELLIK><DEGER>1 x RJ-45 Ethernet </DEGER><OZELLIK>Portlar </OZELLIK><DEGER>4 x USB 2.0 </DEGER><OZELLIK>Portlar </OZELLIK><DEGER>1 x HDMI </DEGER><OZELLIK>PCI Express x4 Slot Sayı </OZELLIK><DEGER>Yok </DEGER><OZELLIK>Sabit Diskler </OZELLIK><DEGER>2 x SATA II </DEGER><OZELLIK>DIMM </OZELLIK><DEGER>2 </DEGER><OZELLIK>Raid Desteği </OZELLIK><DEGER>Yok </DEGER></OZELLIKLER>
</STOK>

Bu dosyadan verileri çekip veri tabanına yazmak için aşağıdaki kodları yazdım. Bağlantıda sorun yok fakat veri tabanına verileri çekmiyor. Dil olarak ASP kullanıyorum. Başka da birşey bilmiyorum zaten. Lütfen yardım eder misiniz?

Set sec = xmlDoc.selectNodes("//STOK")
For i = 0 to (sec.Length - 1)
rs.addnew
rs("stokkodu")=sec(i).GetAttribute("Stok_Kod")
rs("stokadi")=sec(i).GetAttribute("Stok_Ad")
rs("ozellikler")=sec(i).GetAttribute("OZELLIK")
rs("degerler")=sec(i).GetAttribute("DEGER")
rs.update
Next

Neyi yanlış yapıyorum?
Yukarı Dön Göster gatem's Özellikler Diğer Mesajlarını Ara: gatem
 
fanatik
Üye
Üye


Kayıt Tarihi: 11-Nisan-2012
Gönderilenler: 81
Gönderen: 27-Nisan-2012 Saat 13:50 | Kayıtlı IP Alıntı fanatik

<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Load (server.mappath("dosya_ismi.xml"))
If objXML.parseError.errorCode <> 0 Then
Response.Write("Dosya Yüklenirken bir hata oluştu.")
Response.End
End If
Set objLst = objXML.getElementsByTagName("STOKLAR")
For i = 0 To objLst.Length - 1 'stok sayısı kadar dongu
Set subLst = objLst.item(i)
if subLst.hasChildNodes() then

rs.addnew
rs("stokkodu")=subLst.childNodes(0).childNodes(0).Text 'stoklar içindeki ilk tag 0 ilk basligi 0
rs("stokadi")=subLst.childNodes(0).childNodes(1).Text
rs("ozellikler")=subLst.childNodes(1).childNodes(0).Text&nbs p; 'stoklar içindeki ikinci tag 1 ilk basligi 0
rs("degerler")=subLst.childNodes(3).childNodes(0).Text  'stoklar içinde 4 tag 3 ilk baslik 0
rs.update

end if
Set subLst = Nothing
Next
%>

uygun bir şekilde düzenlersen işini görür. internetten bulmustum bende bunu kullanıyorum.



__________________
http://www.googledostu.com
Türk Sosyal İmleme Sitesi
Yukarı Dön Göster fanatik's Özellikler Diğer Mesajlarını Ara: fanatik Ziyaret fanatik's Ana Sayfa
 
gatem
Yeni Üye
Yeni Üye


Kayıt Tarihi: 27-Aralık-2007
Gönderilenler: 10
Gönderen: 11-Mayıs-2012 Saat 16:55 | Kayıtlı IP Alıntı gatem

Fanatik hocam dediğiniz gibi yaptım ama olmadı. Kodların tamamını aşağıya ekledim lütfen bakıp hatam nerede yardımcı olur musunuz?

<%
set xmlDoc = CreateObject("MSXML.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load("dosya.xml")

set baglan=server.createobject("ADODB.Connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("database.mdb")

set rekord=server.createobject("ADODB.Recordset")
cumle="select * from ozellikler"
rekord.open cumle,baglan,1,3

Set sec = xmlDoc.selectNodes("//STOK")
For i = 0 to (sec.Length - 1)
rekord("stokkodu")=sec(i).GetAttribute("Stok_Kod")
rekord("stokadi")=sec(i).GetAttribute("Stok_Ad")
rekord("ozellikler")=sec(i).GetAttribute("OZELLIK")
rekord("degerler")=sec(i).GetAttribute("DEGER")
rekord.update
Next

rekord.close
set rekord=nothing
baglan.close
set baglan=nothing

response.write("Xml dosyasi veri tabanina basariyla kaydedildi")
%>
Yukarı Dön Göster gatem's Özellikler Diğer Mesajlarını Ara: gatem
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.