LucKy
Administrator
 Cinsiyet : 
 Mesaj Sayısı : 291
 Kayıt tarihi : 20/05/10
 Nerden : İstanbul/Fatih
 |  Konu: XML İle Erişim Yapmak Cuma Mayıs 21, 2010 7:39 pm | |
| 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
Alıntıdır:bilgininadresi.net
| |
|
