Kategorie: VB.NET

Ich habe mich in den letzten 2 Tagen mal wieder etwas mit Programmierung beschäftigt. Dabei wollte ich eine XML-Datei in ein DataGridView importieren. Dabei bin ich auf 3 Themen gestoßen die ich hier gerne dokumentiere.

XmlTextReader und Umlaute:
Der XmlTextReader benötigt in der XML-Datei die Enconding-Information, damit Umlaute eingelesen und dargestellt werden.

encoding="iso-8859-1

Spalten können anhand der Überschriften sortiert werden:
Bei mir habe ich eine vordefinierte XML-Datei. Die Aufteilung der Spalten war für meine Funktion nicht sinnvoll. Entsprechend möchte ich diese in der Darstellung anpassen.

DataGridView1.Columns("TitelA").DisplayIndex = 0
DataGridView1.Columns("TitelC").DisplayIndex = 1
DataGridView1.Columns("TitelB").DisplayIndex = 2

Angeklinkter Wert im DataGridView soll weiterverarbeitet werden:
Ich möchte in meinem Tool den ausgewählten Wert der DataGridView weiter verarbeiten.
Dazu habe lasse ich den Wert in diesem Beispiel in eine Textbox ausgeben

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        TextBox1.Text = ""
        TextBox1.Text = DataGridView1.CurrentCell.Value.ToString
End Sub

Ich habe bewusst den Aufruf „DataGridView1_CellClick“ gewählt.
Mit dem der Funktion „DataGridView1_CellContentClick“ muss man neben der Zelle auch der Text angeklickt werden.

Wenn man neben der Wert auf direkt eine Weiterverarbeitung im Ablauf starten möchte kann auch die Funktion „DataGridView1_CellDoubleClick“ sinnvoll sein.

Man sollte das Attribut „MultiSelect“ der DataGridView auf „False“ setzen. Damit wird der korrekte Wert übernommen.

Für ein größeres Projekt musste ich testen, wie einfach ich Abfragen an eine ODBC-Datenbank erstellen kann. Dabei ist bei der „Fingerübung“ der folgende Code entstanden

Dim str As String = "DSN=ODBC−ConName;uid="loginsuser";pwd="loginpassword";"
Dim con As New OdbcConnection(str)
Dim com As String = "Select Name, Domain from dbo.Clients"
Dim Adpt As New OdbcDataAdapter(com, con)
Dim ds As New DataSet()
Adpt.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)

Es müssen die Verbindungsdaten definiert werden. Diese können natürlich auch per Comboboxen oder Textboxen ersetzt werden, damit die Ausführung unter den jeweiligen Benutzerdaten des indiviuellen Anwenders ausgeführt werden. In diesem Fallbeispiel wird die Tabelle „dbo.Clients“ mit den Spalten „Name“ & „Domain“ abgefragt.

Dieser Aufruf dient einfach nur zur Anzeige. Man sollte nur überlegen, in wie weit man über das DataGrid auch Änderungen vornehmen soll. Ansonsten wäre es die sicherere Alternative dieses über die Eigenschaften des Objektes zu verbieten.

Um Tests durchzuführen, warum gewisse Programmteile nicht so funktionieren wie gewünscht oder weil ein Programmcode einige Zeilen Kommentierung erfordern, kann es hilfreich sein, diese nicht einzeln mit einem ‚ (Auslassungszeichen oder auch Hochkomma genannt) versehen zu müssen.

Dieses lässt sich mit einer Tastenkombination nach der Markierung der erforderlichen Zeilen recht einfach umsetzen:

STRG+K+C

Natürlich kann man dieses auch rückgängig machen:

STRG+K+U

Entsprechend werden die markierten Zeilen mit dem erforderlichen Zeichen versorgt.

Selbstverständlich ist dieses auch nach der Markierung der Zeilen per Menü möglich:

Bearbeiten – Erweitert – Auswahl kommentieren

Bearbeiten – Erweitert – Auskommentierung der Auswahl aufheben

Derzeit gibt es das „Microsoft Visual Basic 2010 – Das Entwicklerbuch“ kostenlos zum Download über Microsoft Press zu beziehen. Für den Download wird die Angabe einer E-Mail-Adresse benötigt. Nach deren Eingabe ist der direkte Download des PDFs möglich.

Link