خواندن دیتابیس XML

[SHD.NET]

سلام.

من یه دیتابیس آماده XML دارم که حاوی اسم های پسرانه و دخترانه و معنی آن هاست.

ولی بلد نیستم اطلاعات اونو فراخونی کنم. میخوام ببینم کسی از دوستان می تونند برنامه بنویسند که این اطلاعاتو بتونه بخونه و قابلیت جست جو رو داشته باشه.

چون من کار با XML رو بلد نیستم.
فایل XML رو ضمیمه کردم

ممنون

[SHD.NET]

نبوددددددد؟

[gilsoft]

سلام دوست عزیز

اینم اون چیزی که میخواستی ....

موفق باشید

[gilsoft]

سلام دوستان من

فایل ضمیمه ی پست 3# رو Update کردم ( لطفا دانلود کنید ...) :لبخندساده:

موفق باشید

[gilsoft]

من یه دیتابیس آماده XML دارم که حاوی اسم های پسرانه و دخترانه و معنی آن هاست.
فایل XML رو ضمیمه کردم

سلام دوست عزیز

فایل xml شما مشکل داشت ! ... با کد زیر اول اونو اصلاح کردم ..

این کد رو اینجا میزارم شاید بدرد دوست دیگه ای بخوره ...


Imports VB = Microsoft.VisualBasic

Imports System.Xml
Imports System.IO

Module Module1

Sub RepairXML(frm As Form)
frm.Cursor = Cursors.WaitCursor

Dim xmlFile As String = Application.StartupPath & "\..\..\esm.xml"
Dim renFile As String = Application.StartupPath & "\..\..\esm_Renamed.xml"

Dim ds As New DataSet

My.Computer.FileSystem.MoveFile(xmlFile, renFile, True)

Dim fs As New System.IO.FileStream(renFile, FileMode.Open)

Application.DoEvents()
Dim src_xml As New XmlTextReader(fs)
ds.ReadXml(src_xml)
src_xml.Close()

Dim dsc_xml As New XmlTextWriter(xmlFile, System.Text.Encoding.UTF8)
With dsc_xml
.WriteStartDocument(True)
.Formatting = Formatting.Indented
.Indentation = 2
.WriteStartElement("Table")
End With

Dim tbl As DataTable
Dim row As DataRow
Dim col As DataColumn

Dim GroupName As String = ""
Dim TableName As String = ""
For Each tbl In ds.Tables

Dim tn As String = tbl.TableName.Trim.ToLower

If VB.Len(tn.Trim) <= 1 Then Continue For
If tn = "info" Then
Continue For
ElseIf tn = "pesaraneh" Then
GroupName = tn
ElseIf tn = "dokhtaraneh" Then
GroupName = tn
Else
TableName = tn
End If
Console.WriteLine(GroupName & " => " & TableName)

Application.DoEvents()
Dim flag As Boolean = True

For Each row In tbl.Rows

Dim cell As Byte = 0

For Each col In tbl.Columns
Dim value As String = row(col).ToString

flag = True
If cell = 0 And (IsNumeric(value.Trim) Or value.Trim = "") Then flag = False : Exit For

If cell = 0 Then dsc_xml.WriteStartElement("Record")

If cell = 0 Then
dsc_xml.WriteStartElement("Name")
dsc_xml.WriteString(value.Trim)
dsc_xml.WriteEndElement()

ElseIf cell = 1 Then

Dim splt() As String = Split(value, "/")

dsc_xml.WriteStartElement("Descrip")
dsc_xml.WriteString(splt(1).Trim)
dsc_xml.WriteEndElement()

dsc_xml.WriteStartElement("Type")
dsc_xml.WriteString(IIf(splt.Length = 3, splt(2).Trim, splt(3).Trim))
dsc_xml.WriteEndElement()

splt = Nothing
End If

cell += 1
If cell > 1 Then Exit For
Next
If flag = True Then dsc_xml.WriteEndElement()
Next
Next

With dsc_xml
.WriteEndElement()
.WriteEndDocument()
.Close()
End With
frm.Cursor = Cursors.Default
End Sub
End Module

در ضمن فایل ضمیمه ی پست 3# رو Update کردم ( لطفا دانلود کنید ...) :لبخندساده:

موفق باشید

[SHD.NET]

دقیقا همون چیزی بود که میخواستم . ممنون

[SHD.NET]

یه سوال دگ هم داشتم . چجوری از پست #5 استفاده کنم ؟؟

[gilsoft]

یه سوال دگ هم داشتم . چجوری از پست #5 استفاده کنم ؟؟

سلام دوست عزیز

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
RepairXML(Me)
End Sub

موفق باشید

[SHD.NET]

شما آموزشی که کار با XML ؤو توضیح داده باشه سراغ ندارید ؟

آخه لازم دارم

ممنون

[SHD.NET]

کسی آموزش XML رو نداره ؟
لازم دارم .

[shellx]

آقا منم لازم دارم . اگه بتونید راهنمایی کنید ممنون

[gilsoft]

کسی آموزش XML رو نداره ؟
لازم دارم .

سلام دوست عزیز

کار با XML در VB.NET (http://barnamenevis.org/showthread.php?323705)

آموزش XML برای مبتدی ها (http://http://www.barnamenevis.org/showthread.php?95683)

جستجو در XML (http://www.barnamenevis.org/showthread.php?32085)

چگونگی کار با XML (http://barnamenevis.org/showthread.php?334228)

نحوه ی استفاده از XML بجای INI (http://barnamenevis.org/showthread.php?328553)


موفق باشید