Posted on: 6/3/2013 10:18:58 AM | Views : 336

in xml file :
<?xml version="1.0" encoding="utf-8" ?> <configuration>
<connectionstring><add name="constr"  connectionstring="Data source=localhost ;DataBase=moh;User Id=sa;Passwor=sa@123"></add> </connectionstring>
</configration>
Public Function Readconnectionstring() As String Dim xmldoc As New XmlDataDocument() Dim xmlnode As XmlNodeList Dim i As Integer Dim str As String Dim fs As New FileStream("XMLFile.xml", FileMode.Open, FileAccess.Read) xmldoc.Load(fs) xmlnode = xmldoc.GetElementsByTagName("Connection") For i = 0 To xmlnode.Count - 1 xmlnode(i).ChildNodes.Item(0).InnerText.Trim() str = xmlnode(i).ChildNodes.Item(0).InnerText.Trim() & " | " & xmlnode(i).ChildNodes.Item(1).InnerText.Trim() & " | " &am ...

Go to the complete details ...