<\/p>\n
Manfred Hoffbauer, Düsseldorf<\/b><\/p>\n
Im ersten Teil dieses Beitrags haben Sie die Adressen aus einer Access-Datenbank in ein DataGrid-Steuerelement geladen. In diesem zweiten Teil steigen Sie tiefer in die Programmierung ein und erfahren, wie Sie Adressen aus einem Listensteuerelement auswählen und komfortabel in der Einzelansicht bearbeiten können.<\/b><\/p>\n
Die folgenden Beispiele und Vorgehensweisen können Sie mit der kostenlosen Entwicklungsumgebung SharpDevelop nachvollziehen. Alternativ lässt sich der Programmcode natürlich auch in einem Microsoft-Visual-Studio.NET-Projekt verwenden.<\/p>\n
Das Ziel dieses Beitrags ist ein Formular zur Eingabe und Bearbeitung von Adressen. Es enthält ein Listenfeld mit einer übersicht der Adressen. Jede einzelne Adresse kann mit der Maus angeklickt und bearbeitet werden. Auch das Hinzufügen und Löschen von Adressen ist implementiert. Das Formular soll wie in Bild 1 aussehen.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{8FB327D6-6197-4E11-9099-0FC6907FEBCF}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Formular zur Eingabe und Bearbeitung von Adressen<\/span><\/b><\/p>\n Zur Eingabe und Bearbeitung der Adressen legen Sie ein Formular mit Einzelsatzansicht an. Gehen Sie dazu wie folgt vor:<\/p>\n SharpDevelop generiert den Programmcode für ein neues, leeres Formular und speichert ihn unter dem Namen MainForm.vb. Mit den Registern Quellcode und Design wechseln Sie zwischen der Ansicht des Programmcodes und der Anzeige des Formularentwurfs.<\/p>\n Um den Namen des Formulars zu ändern, gehen Sie wie folgt vor:<\/p>\n Beachten Sie, dass Sie mit dem Eigenschaftenfenster nur die Name-Eigenschaft des Formulars und die Titelzeile ändern können. SharpDevelop speichert den Programmcode weiterhin in der Datei MainForm.vb. Um den Namen der Formulardatei zu ändern, gehen Sie wie folgt vor:<\/p>\n Der ursprüngliche Name MainForm kommt jetzt immer noch als Klassenname innerhalb des Quellcodes vor. Falls Sie auch dies noch ändern wollen, müssen Sie die Zeile<\/p>\n in<\/p>\n umwandeln. Außerdem müssen Sie die Prozedur anpassen, die das Startformular der Anwendung instanziert:<\/p>\n Das Formular soll ein ListView-Steuerelement erhalten, das eine Liste aller Adressen anzeigt. Um die Liste anzulegen, klicken Sie am linken unteren Rand des SharpDevelop-Fensters auf die Registerlasche Tools. Markieren Sie in der Toolbox die Gruppe Windows Forms. Ziehen Sie dann das ListView-Steuerelement auf den Entwurfsbereich. Im Eigenschaftenfenster sollten Sie den Namen des Steuerelements auf lstvAdressen ändern.<\/p>\n Die weiteren Eigenschaften des ListView-Steuerelements können Sie so lassen wie sie sind. Sie werden später per Programmcode verändert. Zur Anzeige der Adressen in der Einzelansicht benötigen Sie die Label-Steuerelemente aus Tab. 1.<\/p>\n Label-Name<\/b><\/p>\n<\/td>\n Text<\/b><\/p>\n<\/td>\n<\/tr>\n lblAnrede<\/p>\n<\/td>\n Anrede<\/p>\n<\/td>\n<\/tr>\n lblVorname<\/p>\n<\/td>\n Vorname<\/p>\n<\/td>\n<\/tr>\n lblNachname<\/p>\n<\/td>\n Nachname<\/p>\n<\/td>\n<\/tr>\n lblStrasse<\/p>\n<\/td>\n Strasse<\/p>\n<\/td>\n<\/tr>\n lblPlzOrt<\/p>\n<\/td>\n PLZ\/Ort<\/p>\n<\/td>\n<\/tr>\n lblTelefon<\/p>\n<\/td>\n Telefon<\/p>\n<\/td>\n<\/tr>\n lblTelefax<\/p>\n<\/td>\n Telefax<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Diese Label-Steuerelemente sind erforderlich.<\/b><\/p>\n Die Anzeige und Bearbeitung der Daten erfolgt in Text- und Kombinationsfeldern. Tab. 2 enthält eine übersicht der erforderlichen Steuerelemente.<\/p>\n Name<\/b><\/p>\n<\/td>\n Steuerelementtyp<\/b><\/p>\n<\/td>\n<\/tr>\n cmbAnredeID<\/p>\n<\/td>\n ComboBox<\/p>\n<\/td>\n<\/tr>\n txtVorname<\/p>\n<\/td>\n TextBox<\/p>\n<\/td>\n<\/tr>\n txtNachname<\/p>\n<\/td>\n TextBox<\/p>\n<\/td>\n<\/tr>\n txtStrasse<\/p>\n<\/td>\n TextBox<\/p>\n<\/td>\n<\/tr>\n txtPLZ<\/p>\n<\/td>\n TextBox<\/p>\n<\/td>\n<\/tr>\n txtOrt<\/p>\n<\/td>\n TextBox<\/p>\n<\/td>\n<\/tr>\n txtTelefon<\/p>\n<\/td>\n TextBox<\/p>\n<\/td>\n<\/tr>\n txtTelefax<\/p>\n<\/td>\n TextBox<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Diese Kombinations- und Textfelder sind erforderlich.<\/b><\/p>\n <\/b><\/p>\n Bild 2: Die Abbildung zeigt die Steuerelemente zur Anzeige und Bearbeitung von Adressen.<\/span><\/b><\/p>\n Das Hinzufügen der Steuerelemente erfolgt über die Toolbox. Ordnen Sie die Steuerelemente stets paarweise so an, dass eine Einzelsatzansicht wie in Bild 2 entsteht.<\/p>\n Zum Test können Sie das Programm per F5-Taste starten. Sie werden dabei feststellen, dass es vollständig kompiliert und ausgeführt werden kann. Nur das Ergebnis ist vielleicht etwas ernüchternd. Sie erhalten ein Formular völlig ohne Funktionalität, das noch nicht einmal einen Datensatz anzeigen kann. Dies verdeutlicht einen wichtigen Unterschied zwischen Microsoft Access und einem .NET-Programm: Bei .NET müssen Sie jede einzelne Programmfunktion selbst programmieren. Wenn Sie also einen Datensatz anzeigen wollen, dann benötigen Sie zunächst einmal ein Programm, das per OleDB auf eine Access-Datenbank zugreift.<\/p>\n Die Routinen für den Datenzugriff sollen in der Klasse DataLayer zusammengefasst werden.<\/p>\n Zum Anlegen der Klasse gehen Sie wie folgt vor:<\/p>\n SharpDevelop erzeugt darauf eine neue Klassendatei und fügt diese dem aktuellen Projekt hinzu. Sie ersetzen den Programmcode vollständig durch eigenen Programmcode. Mit der ersten Anweisung importieren Sie den Namenspace System.Data.OleDb. Im Beitrag ADO.NET – eine Einführung in Ausgabe 5\/2004 von Access im Unternehmen finden Sie weitere Details zum Namespace OleDb. Er enthält auf jeden Fall die für den Datenzugriff benötigten Objekte.<\/p>\n Die Prozedur New ist der Konstruktor der Klasse DataLayer. Der enthaltene Programmcode wird immer dann ausgeführt, wenn Sie ein neues Objekt dieser Klasse instanzieren. Der Konstruktor ist so definiert, dass die aufrufende Anweisung immer einen ConnectionString angeben muss. Die New-Prozedur weist den String einer Variablen zu, die von allen Methoden der Klasse verwendet werden kann.<\/p>\n Die DataLayer-Klasse implementiert das IDisposable-Interface. Die Implementation befindet sich in der Dispose()-Klasse. Sie schließt die Connection. Mit dieser Art der Implementierung erreichen Sie, dass die Connection per Dispose() von einer aufrufenden Methode und automatisch von der .NET-Runtime-Umgebung aufgerufen werden kann. Durch die Prüfung Not m_Cnn Is Nothing ist in jedem Fall sichergestellt, dass die Connection nur einmal geschlossen wird.<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Die Funktion OpenConnection öffnet die Connection zu einer Access-Datenbank (s. Quellcode 1). Der Rückgabewert der Funktion ist das geöffnete OleDbconnection-Objekt.<\/p>\n Auf der Basis des Connection-Objekts können die DataLayer-Funktionen direkt auf die Tabellen der Access-Datenbank zugreifen. Die Funktion GetAnreden öffnet die Connection (s. Quellcode 2). Das StringBuilder-Objekt ist ein performanter Weg für den Zusammenbau von Zeichenketten. Die Append-Methode fügt ganz einfach den als Parameter übergebenen String an die bestehende Zeichenkette an. Die so zusammengesetzte SELECT-Anweisung kann zum Auffüllen eines DataAdapter-Objekts verwendet werden. Die Rückgabe der gelesenen Anreden erfolgt in Form eines DataTable-Objekts.<\/p>\n Die GetAdressen-Funktion funktioniert genauso wie die GetAnreden-Funktion. Nur die SELECT-Anweisung ist etwas aufwändiger (s. Quellcode 3). Sie stellt eine relationale Beziehung zwischen tblAdressen und tblAnreden her. Das entstehende DataTable-Objekt enthält zusätzlich zu den Adressen ein Feld für die Anrede.<\/p>\n Die AddAdress-Funktion verwendet ebenfalls ein StringBuilder-Objekt zur Bildung einer SQL-Anweisung (s. Quellcode 4). In diesem Fall handelt es sich um eine INSERT-INTO-Anweisung, die die Anlage eines neuen Datensatzes ermöglicht. Die Parameterliste der Funktion enthält eine Variable für jedes Feld, das an die tblAdressen-Tabelle angefügt werden soll.<\/p>\n Eine Besonderheit ist das Feld AnredeID. Wenn es den Wert 0 hat, dann soll dies als „keine Anrede“ interpretiert werden. In diesem Fall fügt die AddAdress-Funktion einen NULL-Wert in die Tabelle ein.<\/p>\n Auf die AddAdress-Funktion folgen die UpdateAddress- und die DeleteAdress-Funktionen.<\/p>\n Quellcode 3<\/b><\/p>\n <\/p>\n Quellcode 4<\/b><\/p>\n Sie setzen ebenfalls SQL-Anweisungen zusammen, die dann per Execute-Methode zur Ausführung gelangen (s. Quellcode 5 und 6).<\/p>\n Die Execute-Methode erhält ein auszuführendes SQL-Statement als StringBuilder-Objekt übergeben (s. Quellcode 7). Für die Ausführung des Objekts wird ein neues OleDbCommand-Objekt basierend auf der geöffneten DataLayer-Connection instanziert. Die ExecuteNonQuery-Methode führt die Aktualisierungsabfrage aus.<\/p>\n Die Quote-Funktion (s. Quellcode 8) ist bei der Bildung der SQL-Anweisungen erforderlich. Sie klammert einen String in Apostrophe. Falls der String bereits ein Apostroph enthält, wird es durch zwei aufeinander folgende Apostrophe ersetzt.<\/p>\n Die verschiedenen Methoden des Formulars teilen sich einige Variablen und eine Auflistung. Um diese Variablen zu definieren, sollten Sie unterhalb von<\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n die folgenden Anweisungen einfügen:<\/p>\n Die Variable m_ConnectionString speichert den ConnectionString; die Variable m_DataLayer bevorratet das DataLayer-Objekt, das von allen Methoden des Formulars verwendet werden kann. Die Variable m_Modus gibt Auskunft darüber, ob der Anwender gerade einen Datensatz anfügt oder aktualisiert.<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Quellcode 9<\/b><\/p>\n Beim öffnen des Formulars muss als Erstes das ListView-Steuerelement mit den Adressdaten gefüllt werden. Dazu sind folgende Schritte erforderlich:<\/p>\n Zur Durchführung dieser Aufgaben wechseln Sie in die Entwurfsansicht des Formulars. Klicken Sie doppelt auf einen leeren Bereich des Formulars, damit SharpDevelop den Prozedurrumpf für das Load-Ereignis einfügt.<\/p>\n Um das Load-Ereignis zu implementieren, fügen Sie den folgenden Programmcode in den Prozedurrumpf ein (s. Quellcode 9).<\/p>\n Die erste Anweisung definiert den ConnectionString für den Zugriff auf die Adressdatenbank. Es handelt sich hierbei um die Beispieldatenbank Adress00.mdb, die schon in verschiedenen Beiträgen dieses Werks verwendet wurde.<\/p>\n Das Programm erwartet die Datenbank in dem Verzeichnis, aus dem es gestartet wird. Anders gesagt: Sie sollten die Datenbank im gleichen Verzeichnis wie die EXE-Datei ablegen oder Sie passen den ConnectionString an das entsprechende Verzeichnis an.<\/p>\n Der Variablen m_DataLayer wird eine Instanz der DataLayer-Klasse zugewiesen. Diese Instanz wird für alle Datenzugriffe des Formulars verwendet.<\/p>\n Quellcode 10<\/b><\/p>\n Quellcode 11<\/b><\/p>\n Die Zuweisung von AnredeID an die Eigenschaft ValueMember des Steuerelements cmbAnredeID bewirkt, dass sich der Wert des Steuerelements durch den Wert des Feldes AnredeID definiert. Falls Sie also die Anrede Frau aus der Liste auswählen und Frau die AnredeID 5 hat, dann erhält das Kombinationsfeld den Wert 5. Die Eigenschaft DisplayMember definiert den Namen der in der Liste Kombinationsfeldes anzuzeigenden Spalte. Sowohl der ValueMember als auch der DisplayMember müssen in der Datenherkunft des Kombinationsfeldes vorhanden sein. Die Datenherkunft selbst wird mit der DataSource-Eigenschaft an die Tabelle tblAnreden gebunden.<\/p>\n Die Anzeige der Adressen erfolgt in einem ListView-Steuerelement. Steuerelemente dieses Typs können ihr Aussehen ähnlich flexibel verändern wie die Dateiansicht im Windows Explorer. Für die Anzeige der Adressen ist die Anzeige aller Spalten (View.Details) ohne Bilder oder Sonstiges erforderlich. Außerdem muss ein Mausklick stets nur einen Datensatz markieren (FullRowSelect = True, MultiSelect = False).<\/p>\n Die Prozedur SetListViewProperties setzt alle erforderlichen Eigenschaften zur Anzeige des ListView-Steuerelements (s. Quellcode 10).<\/p>\n Das ListView-Steuerelement soll nur ausgewählte Spalten anzeigen. Bei der Definition des Steuerelements müssen Sie die Spalten einzeln per Add-Methode hinzufügen. Die Methode gibt Ihnen die Möglichkeit, für jede Spalte auch gleich eine überschrift zu definieren. Die Methode AddHeader definiert alle überschriften des ListView-Steuerelements (s. Quellcode 11).<\/p>\n Die ShowData-Prozedur übernimmt die Anzeige der Adressen im ListView-Steuerelement (s. Quellcode 12). Die Prozedur bietet den Komfort, dass sie sich am Anfang die Nummer der im ListView-Steuerelement markierten Zeile merkt.<\/p>\n Die GetAdressen-Methode des DataLayer-Objekts liest die Adressdaten aus der Access-Datenbank.<\/p>\n Quellcode 12<\/b><\/p>\n Die Anzeige erfolgt in einer Schleife, die alle Zeilen des DataTable-Objekts durchläuft. Für jeden Datensatz wird ein Item-Objekt im ListView-Steuerelement hinzugefügt.<\/p>\n Die Struktur des Steuerelements ist insofern ungewöhnlich, als dass es keine Spaltenauflistung im eigentlichen Sinne gibt. Es ist vielmehr so, dass mit Ausnahme der ersten Spalte für jede im Header definierte Spalte pro Item ein SubItem hinzugefügt werden muss. Die mit AddHeader definierte Kopfzeile hat sechs Spalten. Pro Datensatz ist deshalb ein Item mit fünf SubItems erforderlich. Die SubItems werden dem Item-Objekt einfach per Add-Methode hinzugefügt.<\/p>\n Da es in der Einzelsatzansicht mehr Textfelder gibt, als das ListView-Steuerelement Spalten hat, benötigt das Programm einen Platz zum Speichern aller Datenfelder eines Datensatzes. Um diese Funktion möglichst einfach und flexibel zu implementieren, wird das Row-Objekt ganz einfach in der Tag-Eigenschaft eines ListView-Items abgelegt. Damit kann der vollständige Datensatz jederzeit abgerufen werden. <\/p>\n Am Ende der ShowData-Prozedur stellt das Programm fest, ob das ListView-Steuerelement Zeilen enthält.<\/p>\n Falls ja, kann es die vorher markierte Zeile wieder markieren.<\/p>\n <\/b><\/p>\n Bild 3: Dieses Formular kann die Adressen aus der Datenbank lesen und anzeigen.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 4: Mit einem Doppelklick auf ein Ereignis legen Sie eine neue Ereignisprozedur an.<\/span><\/b><\/p>\n Das bisher erstellte Programm können Sie unter der Voraussetzung starten, dass Sie den Aufruf der ClearRecord-Prozedur auskommentieren. Mit dem Betätigen der F5-Taste starten Sie das Programm und erhalten eine Anzeige wie in Bild 3.<\/p>\n Das Programm kann die Adressen der zugrunde liegenden Tabelle bisher zwar in dem ListView-Steuerelement anzeigen. Doch was passiert, wenn Sie eine der Adressen anklicken Nichts!<\/p>\n Um nun das zu erwartende Verhalten herbeizuführen, müssen Sie ein Ereignis abfangen, das bei einem Zeilenwechsel innerhalb des ListView-Steuerelements ausgelöst wird. <\/p>\n Gehen Sie dazu wie folgt vor:<\/p>\n Dadurch legt SharpDevelop, eine neue Ereignisprozedur an und verknüpft diese mit dem SelectedIndexChanged-Ereignis des ListView-Steuerelements.<\/p>\n In den automatisch generierten Prozedurrumpf geben Sie die folgenden Anweisungen ein:<\/p>\n Quellcode 13<\/b><\/p>\n Quellcode 14<\/b><\/p>\n Quellcode 15<\/b><\/p>\n Diese Prozedur wird immer dann ausgeführt, wenn im ListView-Steuerelement eine andere Zeile selektiert wird. Dies kann durch Anklicken mit der Maus, durch die Tastatur oder durch das Programm erfolgen.<\/p>\n Die Ereignisprozedur prüft, ob im ListView-Steuerelement eine Zeile selektiert ist. Falls ja, ändert die Prozedur den Formularmodus auf Update und ruft die Prozedur ShowRecord mit dem aktuell selektierten Datensatz als Parameter auf. Die Prozedur ShowRecord (s. Quellcode 13) zeigt die Einzelansicht des Datensatzes an.<\/p>\n Die ShowRecord-Funktion benötigt mehr Informationen als in den Spalten des ListView-Steuerelements angezeigt werden. Um diesem Fall vorzubeugen, wurde weiter oben das gesamte DataRow-Objekt in der Tag-Eigenschaft eines jeden Items hinterlegt. Die GetSelectedRow-Funktion ermittelt genau dieses DataRow-Objekt der aktuell im ListView-Steuerelement markierten Zeile und gibt es als Funktionswert zurück (s. Quellcode 14).<\/p>\n Besonders interessant ist die Zuweisung row = … In dieser Zeile wird das aus der Tag-Eigenschaft ausgelesene Objekt vom Typ Object implizit in ein DataRow-Objekt umgewandelt. Falls Sie das Programm mit Option Strict On kompilieren lassen, erhalten Sie an dieser Stelle eine Fehlermeldung. In diesem Fall müssen Sie die Typumwandlung explizit wie folgt veranlassen:<\/p>\n Falls kein Datensatz im ListView-Steuerelement selektiert ist, ändert die Ereignisprozedur den Formularstatus auf Null, und ruft die Prozedur ClearRecord auf (s. Quellcode 15). Die Prozedur ClearRecord leert den Anzeigebereich für die Einzelsatzdarstellung.<\/p>\n Beide Prozeduren, also ShowRecord und ClearRecord rufen am Ende die Prozedur ShowButtons (s. Quellcode 16) auf. Diese Prozedur blendet abhängig vom aktuellen Formularmodus die Befehlsschaltflächen zur Anlage, zur Bearbeitung und zum Löschen von Adressen ein und aus.<\/p>\n Quellcode 16<\/b><\/p>\n Wenn Sie das Programm jetzt starten, dann erhalten Sie natürlich Kompilierfehler. Der Grund besteht darin, dass Sie auf Schaltflächen Bezug nehmen, die noch gar nicht angelegt sind. Wenn Sie die entsprechenden Programmzeilen auskommentieren, dann startet das Programm wie in Bild 3. Das Einlesen und Anzeigen von Adressen funktioniert bereits. Derzeit fehlen aber noch die Schaltflächen zum Einfügen, ändern und Löschen von Datensätzen.<\/p>\n Um einem Button eine neue Ereignisprozedur zuzuweisen, brauchen Sie ihn nur doppelt anzuklicken. SharpDevelop fügt dann automatisch einen Prozedurrumpf ein, den Sie allerdings noch mit Inhalt füllen müssen. Die so entstandene Prozedur zur Anlage einer neuen Adresse sieht folgendermaßen aus:<\/p>\n In dem Bereich Windows Forms Designer generated code fügt SharpDevelop automatisch die folgende Programmzeile ein:<\/p>\n Diese Programmzeile verknüpft das Click-Ereignis der Schaltfläche mit der Ereignisprozedur. Die folgende Anweisung ändert den Modus des Formulars auf Insert:<\/p>\n In diesem Modus soll der Anwender Gelegenheit haben, die Daten für einen neu hinzuzufügenden Datensatz einzugeben. Damit ihn nichts dabei stört, leert ein Aufruf der Prozedur ClearRecord den Anzeigebereich für den Datensatz und ruft außerdem die Prozedur ShowButtons auf.<\/p>\n Die mit dem Button-Steuerelement btnSpeichern verknüpfte Ereignisprozedur soll einen Datensatz speichern. Dabei kann es sich um die Anlage eines neuen Datensatzes oder um die Aktualisierung eines bestehenden Datensatzes handeln. Je nachdem wird entweder die AddAdresse oder die UpdateAdresse-Methode der DataLayer-Klasse aufgerufen (s. Quellcode 17).<\/p>\n Quellcode 17<\/b><\/p>\n Falls die Speichern-Routine einen bestehenden Datensatz aktualisieren soll, benötigt sie den Primärschlüssel dieses Datensatzes. Dieser befindet sich aber nur in der Datenquelle des ListView-Steuerelements. Um ihn benutzen zu können, muss das DataRow-Objekt aus der Tag-Eigenschaft des aktuellen im ListView markierten Items ausgelesen werden. Genau diese Aufgabe übernimmt die GetSelectedRow-Prozedur.<\/p>\n Am Ende des Speicherns wird in jedem Fall die ShowData-Prozedur aufgerufen. Dieser Prozeduraufruf garantiert, dass die im ListView-Steuerelement angezeigten Daten mit den Daten der zugrunde liegenden Tabelle synchron sind.<\/p>\n Das Löschen eines Datensatzes erfordert nur noch wenig Programmcode. Zur Anlage der Ereignisprozedur klicken Sie einfach doppelt auf die Schaltfläche Löschen. Geben Sie dann die folgenden Anweisungen ein:<\/p>\n Die Löschroutine ermittelt den aktuell markierten Datensatz und übergibt diesen als Parameter an den DataLayer. Dort sorgt die DeleteAdress-Methode für das Löschen des Datensatzes. An der Oberfläche muss nur noch der Formularmodus auf Update gesetzt werden. Die Aktualisierung der Anzeige erledigt die ShowData-Prozedur.<\/p>\n Die letzte noch fehlende Ereignisprozedur soll das Programm beenden. Um sie einzugeben, führen Sie einen Doppelklick auf die Beenden-Schaltfläche durch. Geben Sie dann die folgenden Programmzeilen ein:<\/p>\n Der Aufruf der Dispose-Methode schließt das DataLayer-Objekt. Dies führt automatisch auch zum Schließen der offenen Connection. Die Anweisung Me.Close() schließt das aktuelle Formular und beendet damit die Anwendung.<\/p>\n Im vorliegenden Beitrag haben Sie erfahren, wie Sie mit .NET Windows-Formulare für den Zugriff auf in Datenbanken gespeicherte Daten ermöglichen. Das vorgestellte Formular ließe sich leicht um weitere Steuerelementtypen erweitern. Funktionell würde das Hinzufügen einer Suchfunktion Sinn machen und auch die Anzeige von per 1:n-Beziehung verknüpften Daten lässt sich hierauf aufbauen.<\/p>\n","protected":false},"excerpt":{"rendered":" Im ersten Teil dieses Beitrags haben Sie die Adressen aus einer Access-Datenbank in ein DataGrid-Steuerelement geladen. In diesem zweiten Teil steigen Sie tiefer in die Programmierung ein und erfahren, wie Sie Adressen aus einem Listensteuerelement auswählen und komfortabel in der Einzel-ansicht bearbeiten können.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[44000017,66012005,662005,44000027],"tags":[],"class_list":["post-55000265","post","type-post","status-publish","format-standard","hentry","category-NET","category-66012005","category-662005","category-Loesungen"],"yoast_head":"\nDas Formular benennen<\/h2>\n
Public Class MainForm<\/pre>\n
Public Class Adressen<\/pre>\n
Public Shared Sub Main\r\n Dim fAdressen As New Adressen\r\n fAdressen.ShowDialog()\r\nEnd Sub<\/pre>\n
Steuerelemente anordnen<\/h2>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n ![](\"..\/fileadmin\/_temp_\/{8FB327D6-6197-4E11-9099-0FC6907FEBCF}\/pic002.png\")
<\/p>\nImports System.Data.OleDb\r\nPublic Class DataLayer\r\n Implements System.IDisposable\r\n Dim m_CnnString As String \r\n Dim m_Cnn As OleDbConnection\r\n Public Sub New(ByVal ConnectionString As String)\r\n m_CnnString = ConnectionString\r\n End Sub\r\n Public Sub Dispose() \r\n Implements System.IDisposable.Dispose\r\n If Not m_Cnn Is Nothing Then\r\n m_Cnn.Close()\r\n m_Cnn.Dispose()\r\n m_Cnn = Nothing\r\n End If\r\n End Sub\r\n Private Function OpenConnection() As OleDbConnection\r\n If m_Cnn Is Nothing Then\r\n m_Cnn = New OleDbConnection(m_CnnString)\r\n m_Cnn.Open()\r\n End If\r\n End Function<\/pre>\n
Public Function GetAnreden() As DataTable\r\n OpenConnection()\r\n Dim tblAnreden As New DataTable\r\n Dim sb As New System.Text.StringBuilder\r\n sb.Append(\"SELECT tblAnreden.* FROM tblAnreden \")\r\n Dim adp As New OleDbDataAdapter(sb.ToString(), _ m_Cnn)\r\n adp.Fill(tblAnreden)\r\n adp.Dispose()\r\n Return tblAnreden\r\nEnd Function<\/pre>\n
Daten lesen<\/h2>\n
Adressen anlegen, ändern und löschen<\/h2>\n
Public Function GetAdressen() As DataTable\r\n OpenConnection()\r\n Dim tblAdressen As New DataTable\r\n Dim sb As New System.Text.StringBuilder\r\n sb.Append(\"SELECT tblAdressen.*, tblAnreden.Anrede FROM tblAnreden \")\r\n sb.Append(\"RIGHT JOIN tblAdressen ON tblAnreden.AnredeID = tblAdressen.AnredeID;\")\r\n Dim adp As New OleDbDataAdapter(sb.ToString(), m_Cnn)\r\n adp.Fill(tblAdressen)\r\n adp.Dispose()\r\n Return tblAdressen\r\nEnd Function<\/pre>\n
Public Function AddAdress(ByVal AnredeID As Integer, ByVal Vorname As String, _\r\n ByVal Nachname As String, ByVal Strasse As String, ByVal PLZ As String, _\r\n ByVal Ort As String, ByVal Telefon As String, ByVal Telefax As String) As Int32\r\n Dim sb As New System.Text.StringBuilder\r\n sb.Append(\"INSERT INTO tblAdressen \")\r\n sb.Append(\"(AnredeID, Vorname, Nachname, Strasse, PLZ, Ort, Telefon, Telefax) \")\r\n sb.Append(\"VALUES (\")\r\n If AnredeID = 0 Then\r\n sb.Append(\"NULL, \")\r\n Else\r\n sb.Append(AnredeID.ToString() + \", \")\r\n End If\r\n sb.Append(Quote(Vorname) + \", \")\r\n sb.Append(Quote(Nachname) + \", \")\r\n sb.Append(Quote(Strasse) + \", \")\r\n sb.Append(Quote(PLZ) + \", \")\r\n sb.Append(Quote(Ort) + \", \")\r\n sb.Append(Quote(Telefon) + \", \")\r\n sb.Append(Quote(Telefax) + \") \")\r\n Execute(sb)\r\nEnd Function<\/pre>\n
Public Function UpdateAdress(ByVal row As DataRow, ByVal AnredeID As Integer, _\r\n ByVal Vorname As String, ByVal Nachname As String, ByVal Strasse As String, _\r\n ByVal PLZ As String, ByVal Ort As String, ByVal Telefon As String, _\r\n ByVal Telefax As String) As Int32\r\n If (Not row Is Nothing) Then\r\n Dim AdressID As Integer\r\n AdressID = CInt(row.Item(\"AdressID\"))\r\n Dim sb As New System.Text.StringBuilder\r\n sb.Append(\"UPDATE tblAdressen SET \")\r\n If AnredeID = 0 Then\r\n sb.Append(\"tblAdressen.AnredeID = NULL, \")\r\n Else\r\n sb.Append(\"tblAdressen.AnredeID = \" + AnredeID.ToString() + \", \")\r\n End If\r\n sb.Append(\"tblAdressen.Vorname = \" + Quote(Vorname) + \", \")\r\n sb.Append(\"Nachname = \" + Quote(Nachname) + \", \")\r\n sb.Append(\"Strasse = \" + Quote(Strasse) + \", \")\r\n sb.Append(\"PLZ = \" + Quote(PLZ) + \", \")\r\n sb.Append(\"Ort = \" + Quote(Ort) + \", \")\r\n sb.Append(\"Telefon = \" + Quote(Telefon) + \", \")\r\n sb.Append(\"Telefax = \" + Quote(Telefax) + \" \")\r\n sb.Append(\"WHERE AdressID = \" + AdressID.ToString())\r\n Execute(sb)\r\n End If\r\nEnd Function<\/pre>\n
Public Sub DeleteAdress(ByVal row As DataRow)\r\n If (Not row Is Nothing) Then\r\n Dim AdressID As Integer\r\n AdressID = CInt(row.Item(\"AdressID\"))\r\n Dim sb As New System.Text.StringBuilder\r\n sb.Append(\"DELETE FROM tblAdressen \")\r\n sb.Append(\"WHERE AdressID = \" + AdressID.ToString())\r\n Execute(sb)\r\n End If\r\nEnd Sub<\/pre>\n
Public Class Adressen\r\nInherits System.Windows.Forms.Form<\/pre>\n
Private m_ConnectionString As String\r\nPrivate m_DataLayer As DataLayer\r\nPrivate m_Modus As Modus\r\nPrivate Enum Modus\r\nUpdate\r\nInsert\r\nNull\r\nEnd Enum<\/pre>\n
Private Sub Execute(ByVal sb As System.Text.StringBuilder)\r\n Dim cmd As OleDbCommand\r\n cmd = New OleDbCommand(sb.ToString, m_Cnn)\r\n cmd.ExecuteNonQuery()\r\n cmd.Dispose()\r\nEnd Sub<\/pre>\n
Private Function Quote(ByVal str As String)\r\n Return \"''\" & Microsoft.VisualBasic.Replace(str, \"''\", \"''''\") & \"''\"\r\nEnd Function\r\nEnd Class<\/pre>\n
Private Sub FrmAdressenLoad(sender As System.Object, e As System.EventArgs)\r\n m_ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _\r\n \"Data Source=\" + System.Environment.CurrentDirectory + \"\\Adress00.mdb\"\r\n m_DataLayer = New DataLayer(m_ConnectionString)\r\n Me.cmbAnredeID.DataSource = m_DataLayer.GetAnreden()\r\n Me.cmbAnredeID.ValueMember = \"AnredeID\"\r\n Me.cmbAnredeID.DisplayMember = \"Anrede\"\r\n SetListViewProperties()\r\n AddHeader()\r\n ShowData()\r\nEnd Sub<\/pre>\n
Die Load-Ereignisprozedur<\/h2>\n
Private Sub SetListViewProperties()\r\n With lstvAdressen\r\n .View = View.Details\r\n .LabelEdit = False\r\n .AllowColumnReorder = True\r\n .CheckBoxes = False\r\n .FullRowSelect = True\r\n .GridLines = True\r\n .Sorting = SortOrder.None\r\n .Activation = ItemActivation.Standard\r\n .HideSelection = False\r\n .MultiSelect = False\r\n .HoverSelection = False\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub AddHeader()\r\n With lstvAdressen.Columns\r\n .Add(\"Anrede\", 50, HorizontalAlignment.Left)\r\n .Add(\"Vorname\", 80, HorizontalAlignment.Left)\r\n .Add(\"Nachname\", 80, HorizontalAlignment.Left)\r\n .Add(\"Strasse\", 80, HorizontalAlignment.Left)\r\n .Add(\"PLZ\", 50, HorizontalAlignment.Left)\r\n .Add(\"Ort\", 80, HorizontalAlignment.Left)\r\n End With\r\nEnd Sub<\/pre>\n
Eigenschaften des ListView-Steuerelements<\/h2>\n
Kopfzeile<\/h2>\n
Daten im ListView-Steuerelement anzeigen<\/h2>\n
Private Sub ShowData()\r\n Try\r\n Dim iSelected As Integer\r\n If lstvAdressen.Items.Count > 0 Then\r\n iSelected = 0\r\n If lstvAdressen.SelectedItems.Count > 0 _ Then\r\n iSelected = lstvAdressen. _ SelectedItems.Item(0).Index\r\n End If\r\n End If\r\n Dim tblAdressen As New DataTable\r\n tblAdressen = m_DataLayer.GetAdressen()\r\n Dim row As DataRow\r\n Dim Item As ListViewItem\r\n lstvAdressen.Items.Clear()\r\n If tblAdressen.Rows.Count > 0 Then\r\n lstvAdressen.BeginUpdate()\r\n Item = New ListViewItem\r\n For Each row In tblAdressen.Rows\r\n Item = lstvAdressen.Items. _ Add(row.Item(\"Anrede\").ToString())\r\n With Item.SubItems\r\n .Add(row.Item(\"Vorname\").ToString())\r\n .Add(row.Item(\"Nachname\").ToString())\r\n .Add(row.Item(\"Strasse\").ToString())\r\n .Add(row.Item(\"PLZ\").ToString())\r\n .Add(row.Item(\"Ort\").ToString())\r\n End With\r\n Item.Tag = row\r\n Next\r\n lstvAdressen.EndUpdate()\r\n Else\r\n m_Modus = Modus.Null\r\n End If\r\n If lstvAdressen.Items.Count > 0 Then\r\n iSelected = System.Math.Min(iSelected, _ lstvAdressen.Items.Count - 1)\r\n lstvAdressen.Items(iSelected).Selected _ = True\r\n End If\r\n Catch ex As Exception\r\n MessageBox.Show(ex.Message)\r\n End Try\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{8FB327D6-6197-4E11-9099-0FC6907FEBCF}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{8FB327D6-6197-4E11-9099-0FC6907FEBCF}\/pic004.png\")
<\/p>\nAktuellen Datensatz anzeigen<\/h2>\n
If Me.lstvAdressen.SelectedItems.Count _ > 0 Then\r\n m_Modus = Modus.Update\r\n ShowRecord(GetSelectedRow)\r\nElse\r\n m_Modus = Modus.Null\r\n ClearRecord()\r\nEnd If\r\nPrivate Sub ShowRecord(ByVal row As DataRow)\r\n If (Not row Is Nothing) Then\r\n If row.Item(\"AnredeID\").ToString = \"\" Then\r\n Me.cmbAnredeID.SelectedValue = 0\r\n Else\r\n Me.cmbAnredeID.SelectedValue = _ row.Item(\"AnredeID\").ToString()\r\n End If\r\n Me.txtVorname.Text = row.Item(\"Vorname\").ToString()\r\n Me.txtNachname.Text = _ row.Item(\"Nachname\").ToString()\r\n Me.txtStrasse.Text = row.Item(\"Strasse\").ToString()\r\n Me.txtPLZ.Text = row.Item(\"PLZ\").ToString()\r\n Me.txtOrt.Text = row.Item(\"Ort\").ToString()\r\n Me.txtTelefon.Text = row.Item(\"Telefon\").ToString()\r\n Me.txtTelefax.Text = row.Item(\"Telefax\").ToString()\r\n End If\r\n ShowButtons()\r\nEnd Sub<\/pre>\n
Private Function GetSelectedRow() As DataRow\r\n Dim row As DataRow\r\n If lstvAdressen.SelectedItems.Count > 0 Then\r\n row = lstvAdressen.SelectedItems.Item(0).Tag\r\n End If\r\n Return row\r\nEnd Function<\/pre>\n
Private Sub ClearRecord()\r\n Me.cmbAnredeID.SelectedItem = Nothing\r\n Me.txtVorname.Text = \"\"\r\n Me.txtNachname.Text = \"\"\r\n Me.txtStrasse.Text = \"\"\r\n Me.txtPLZ.Text = \"\"\r\n Me.txtOrt.Text = \"\"\r\n Me.txtTelefon.Text = \"\"\r\n Me.txtTelefax.Text = \"\"\r\n ShowButtons()\r\nEnd Sub<\/pre>\n
row = DirectCast( _ lstvAdressen. _ SelectedItems. _ Item(0).Tag, DataRow)<\/pre>\n
Leere Anzeige<\/h3>\n
Private Sub ShowButtons()\r\n Select Case m_Modus\r\n Case Modus.Insert\r\n Me.btnSpeichern.Text = \"&Anfügen\"\r\n Me.btnSpeichern.Visible = True\r\n Me.btnNeueAdresse.Visible = False\r\n Me.btnLöschen.Visible = False\r\n Case Modus.Update\r\n Me.btnSpeichern.Text = _ \"&Speichern\"\r\n Me.btnSpeichern.Visible = True\r\n Me.btnNeueAdresse.Visible = True\r\n Me.btnLöschen.Visible = True\r\n Case Modus.Null\r\n Me.btnSpeichern.Visible = False\r\n Me.btnNeueAdresse.Visible = True\r\n Me.btnLöschen.Visible = False\r\n End Select\r\nEnd Sub<\/pre>\n
Schaltflächen anlegen<\/h2>\n
Adresse anlegen<\/h2>\n
Private Sub BtnNeueAdresseClick(sender _ As System.Object, _ e As System.EventArgs)\r\n m_Modus = Modus.Insert\r\n ClearRecord()\r\nEnd Sub<\/pre>\n
AddHandler Me.btnNeueAdresse.Click,\r\nAddressOf Me.BtnNeueAdresseClick<\/pre>\n
m_Modus = Modus.Insert<\/pre>\n
Datensatz speichern<\/h2>\n
Private Sub BtnSpeichernClick(sender As System.Object, e As System.EventArgs)\r\n If m_Modus = Modus.Insert Then\r\n m_DataLayer.AddAdresse(Me.cmbAnredeID.SelectedValue, Me.txtVorname.Text, _\r\n Me.txtNachname.Text, Me.txtStrasse.Text, Me.txtPLZ.Text, Me.txtOrt.Text, _\r\n Me.txtTelefon.Text, Me.txtTelefax.Text)\r\n Else\r\n m_DataLayer.UpdateAresse(GetSelectedRow(), Me.cmbAnredeID.SelectedValue, _\r\n Me.txtVorname.Text, Me.txtNachname.Text, Me.txtStrasse.Text, _\r\n Me.txtPLZ.Text, Me.txtOrt.Text, Me.txtTelefon.Text, Me.txtTelefax.Text)\r\n End If\r\n m_Modus = Modus.Update\r\n ShowData()\r\nEnd Sub<\/pre>\n
Datensatz löschen<\/h2>\n
m_DataLayer. _ DeleteAresse(GetSelectedRow())\r\nm_Modus = Modus.Update\r\nShowData()<\/pre>\n
Das Programm beenden<\/h2>\n
m_DataLayer.Dispose()\r\nMe.Close()<\/pre>\n