Converting a DataSet to XML using File save Dialog. - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Converting a DataSet to XML using File save Dialog.

RhneelyjrRhneelyjr Posts: 13Member
This is what I have so far can anyone help. I need to fill using oledataadapter then using cmdSave button save the file as xml.
Here is the code I have done.

Private Sub frmEmployees_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(OrdersDataSet1)

End Sub

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Const intFilterIndex As Short = 2
Const strInitDir As String = "C:My Documents"
Dim FS As FileStream
With dlgSaveFile
.Filter = "XML Files (*.xml)|*.xml|All Files (*.*)|*.*||"
.FilterIndex = intFilterIndex
.RestoreDirectory = True
If .ShowDialog() = DialogResult.OK Then
FS = .OpenFile

End If
End With


End Sub

Thanks for any help.

Ron
Sign In or Register to comment.