XML Cereate
Tarih
23/06/2011 10:46
Konu Sahibi
kardelen188
Yorumlar
1
Okunma
1047
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kardelen188
Aktif Üye
Kullanici Avatari
Aktif Üye
33
31/05/2011
0
Bingöl
Ofis XP
23/06/2011,19:03
Çözüldü 
Merhaba ;
Vb ile yapılan bir ara yüzde ListBox taki verileri XLM dosyası olarak Export etmek istiyorum.Basit bir örnek ile yardımcı olurmusunuz.Teşk.
Cevapla


|By|KiDnArUt|
Aktif Üye
Kullanici Avatari
Aktif Üye
90
07/05/2010
5
Gaziantep
Ofis 2003
19/04/2013,12:56
Çözüldü 
XML ile işlem yapmanın kolay yolu


yeni bi proje açalım 1 adet listbox 3 adet text ve 1 adet command ve kodları projeye yapıştıralım

List1.Listine <?xml version="1.0"?> bunu öncelikle yapıştıralım

Private Sub Command1_Click()
List1.AddItem "<!-- *********** ONEMLI OLAN HAZIR DEGIL YENIYI BULMAK - SINAN KOSE*********** -->"
List1.AddItem ""
List1.AddItem " <PERSONEL_BILGISI>"
List1.AddItem " <ADI_SOYADI>" & Text1 & "</ADI_SOYADI>"
List1.AddItem " <TELEFON>" & Text2 & "</TELEFON>"
List1.AddItem " <ADRES>" & Text3 & "</ADRES>"
List1.AddItem " </PERSONEL_BILGISI>"
Call kayıt_click
End Sub
Sub kayıt_click()
On Error Resume Next
Dim X, tmm
Open App.Path & "\" & Text1 & ".XML" For Output As 1

For X = 0 To List1.ListCount - 1
List1.ListIndex = X
Print #1, List1.Text
Next
Close 1
tmm = MsgBox("Dosya " & App.Path & "\ Klasörüne " & Text1.Text & ".XML olarak kayıt edildi", , "XML")
End Sub

Önemli NOT : Arkadaşlar Türkçe harfleri kesinlikle kullanmayın yoksa çalışmaz

ALINTIDIR.
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya