Converting a DataSet to XML using File save Dialog.

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.

Howdy, Stranger!

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

Categories