ASPTurkiye.com Forum: XML dosyasındaki veriyi veri tabanına çek

implant

Aktif Konular

Üye Listesi

Arama

Yardım

Kayıt Ol

Giriş

ASP / ASP.NET
ASPTurkiye.com Forum : ASP / ASP.NET

Konu: XML dosyasındaki veriyi veri tabanına çek

Yazanlarda

Mesaj

<< Önceki Konu | Sonraki Konu >>

gatem
Yeni Üye

Kayıt Tarihi: 27-Aralık-2007
Gönderilenler: 10

Gönderen: 26-Nisan-2012 Saat 15:20 \| Kayıtlı IP

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

fanatik
Üye
Üye

Kayıt Tarihi: 11-Nisan-2012
Gönderilenler: 76

Gönderen: 27-Nisan-2012 Saat 13:50 \| Kayıtlı IP

<%
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

gatem
Yeni Üye

Kayıt Tarihi: 27-Aralık-2007
Gönderilenler: 10

Gönderen: 11-Mayıs-2012 Saat 16:55 \| Kayıtlı IP

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

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

Yazıcı Sürümü

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