Skip to main content

AccessTr.neT


XML Cereate

XML Cereate

Çözüldü #1
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
Çözüldü #2
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task