Public Sub io_open_datafile()
Dim _Datafile As New FileInfo(OpenFileDialog1.FileName)
OpenFileDialog1.Filter = "XML File | *.xml"
OpenFileDialog1.Title = "Open XML File"
OpenFileDialog1.ShowDialog()
meinDataSet1.Clear()
If _Datafile.Exists Then
meinDataSet1.ReadXml(_Datafile.FullName)
Else
MsgBox(String.Join(Environment.NewLine, New String() {"kein Datafile gefunden:",
_Datafile.FullName, "", "Sie fahren mit leerem Dataset fort"}))
End If
End Sub
|
Dim _Datafile As New FileInfo(OpenFileDialog1.FileName)
meinDataSet1.ReadXml(_Datafile.FullName)
|
|
|
|
|
|
|
|