Dim cn As New SqlClient.SqlConnection("data source=(local);" & _ "initial catalog=sbo;user id=sa;password=sa") Dim ds As New DataSet("BO") Dim da_ainfo As New SqlClient.SqlDataAdapter( _ "select * from ainfo", cn) da_ainfo.Fill(ds, "AdmInfo") Dim da_main As New SqlClient.SqlDataAdapter( _ "select * from grp_main", cn) da_main.Fill(ds, "Documents") Dim da_detail As New SqlClient.SqlDataAdapter( _ "select * from grp_detail", cn) da_detail.Fill(ds, "Document_lines") ds.WriteXml("Good_receipt_po.xml")and this is my output:
<?xml version="1.0" standalone="yes" ?> - <BO> - <AdmInfo> <object>20</object> <version>2</version> </AdmInfo> - <Documents> <docnum>5</docnum> <doctype>dDocument_Items</doctype> <docdate>20061113</docdate> </Documents> - <Document_lines> <linenum>0</linenum> <itemcode>A00001</itemcode> <itemdescri>IBM Inforprint 1312</itemdescri> <quantity>10</quantity> </Document_lines> </BO>my problem is i want my output to be like this:
<?xml version="1.0" encoding="UTF-16" ?> - <BOM> - <BO> - <AdmInfo> <Object>20</Object> <Version>2</Version> </AdmInfo> - <Documents> - <row> <DocNum>5</DocNum> <DocType>dDocument_Items</DocType> <DocDate>20061113</DocDate> </row> </Documents> - <Document_Lines> - <row> <LineNum>0</LineNum> <ItemCode>A00001</ItemCode> <ItemDescription>IBM Inforprint 1312</ItemDescription> <Quantity>10.000000</Quantity> </row> </Document_Lines> </BO> </BOM>TIA,