Private Sub loadBackupFiles()
 
        ' Definieren der URL
        Dim url As String = mysql_backup_list_api
        Try
            ' Laden des XML
            If DownloadFile(url, tmp_path & "sqlbackupfiles.xml", api_username, _
              api_password) Then
 
                ' Füllen des Dataset
                BackupViewDataSet.ReadXml(tmp_path & "sqlbackupfiles.xml")
 
                BackupViewDataGrid.DataSource = BackupViewDataSet
                BackupViewDataGrid.DataMember = "FILE"
                BackupViewDataGrid.Columns("DOWNLOADPATH").Visible = False  ' 
                ' Ausblenden der letzten Zeile
                BackupViewDataGrid.AllowUserToOrderColumns = True           ' 
                ' Sortieren der Ergebnisse erlauben
            End If
 
        Catch ex As Exception
            MsgBox("Das Protokoll konnte nicht geladen werden." & vbCrLf & _
              ex.Message, MsgBoxStyle.Critical, "Fehler")
        End Try
 
    End Sub

---
Sprache: VB.NET
Entwicklungsumgebung: Visual Basic 2008 Express Edition
Betriebsystem: Windows XP Professional