peyman_Esi
دوشنبه 02 مرداد 1396, 10:01 صبح
((به نام خدا))
یه مدتی هست دارم با زبان XML یک Database manager درست میکنم.ولی فعلا نمیتونم اونو تست کنم میخواستم از شما بپرسم آیا این قطعه کد که برای data row نوشتم صحیح است یا نه.؟
ممنون میشم کمکم کنید
Public NotInheritable Class Data_Row
Private XD As New XmlDocument
Private RN As Integer
Private RD As String
Friend ReadOnly Property XML_Data
Get
XML_Data = XD.InnerXml
End Get
End Property
Friend Property Row_Number As Integer
Get
Row_Number = RN
End Get
Set(Number As Integer)
XD.DocumentElement.Attributes.Item(1).Value = Number
RN = Number
End Set
End Property
Friend Property Row_Data As String
Get
Row_Data = RD
End Get
Set(Data As String)
XD.DocumentElement.Value = Data
RD = Data
End Set
End Property
Public Sub New(Row_Number As Integer, Optional Row_Data As String = Nothing)
XD.CreateElement("Row").CreateNavigator().CreateAttribute(Nothing, "Number", Nothing, Row_Number.ToString)
XD.DocumentElement.Value = Row_Data
Me.Row_Number = Row_Number
Me.Row_Data = Row_Data
End Sub
End Class
یه مدتی هست دارم با زبان XML یک Database manager درست میکنم.ولی فعلا نمیتونم اونو تست کنم میخواستم از شما بپرسم آیا این قطعه کد که برای data row نوشتم صحیح است یا نه.؟
ممنون میشم کمکم کنید
Public NotInheritable Class Data_Row
Private XD As New XmlDocument
Private RN As Integer
Private RD As String
Friend ReadOnly Property XML_Data
Get
XML_Data = XD.InnerXml
End Get
End Property
Friend Property Row_Number As Integer
Get
Row_Number = RN
End Get
Set(Number As Integer)
XD.DocumentElement.Attributes.Item(1).Value = Number
RN = Number
End Set
End Property
Friend Property Row_Data As String
Get
Row_Data = RD
End Get
Set(Data As String)
XD.DocumentElement.Value = Data
RD = Data
End Set
End Property
Public Sub New(Row_Number As Integer, Optional Row_Data As String = Nothing)
XD.CreateElement("Row").CreateNavigator().CreateAttribute(Nothing, "Number", Nothing, Row_Number.ToString)
XD.DocumentElement.Value = Row_Data
Me.Row_Number = Row_Number
Me.Row_Data = Row_Data
End Sub
End Class