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

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.