Dim ds As New DataSet() Try Dim con As New SqlConnection("server=BAK;initial catalog=Test;uid=sa;pwd=sa") con.Open() Dim da As New SqlDataAdapter("select Emp_No,Emp_Name,Emp_GSM1 from Employee", con) da.Fill(ds, "Employee") Catch 'Label1.Text = "Error while connecting to a database" End Try Dim doc As New XmlDataDocument(ds) Xml1.Document = doc doc.Save("D:\Employee.xml")
<?xml version="1.0"?> -<NewDataSet> <Employee> <Emp_No>1</Emp_No> <Emp_Name>A</Emp_Name> <Emp_GSM1>122</Emp_GSM1> </Employee> <Employee> <Emp_No>2</Emp_No> <Emp_Name>B</Emp_Name> ''here not exporting becoz Emp_GSM1 </Employee> </NewDataSet>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)