Galileo Computing < openbook > Galileo Computing - Professionelle Bücher. Auch für Einsteiger.
Professionelle Bücher. Auch für Einsteiger.

Inhaltsverzeichnis
1 Einführung
2 Grundlagen
3 Fehlerbehandlung
4 Erweiterte Grundlagen
5 Objektorientierte Programmierung
6 Wichtige Klassen in .NET
7 Weitere Elemente eines Windows-Programms
8 Datenbank-Anwendungen mit ADO.NET
9 Internet-Anwendungen mit ASP.NET
10 Zeichnen mit GDI+
11 Neues in Visual Basic 2008
12 Beispielprojekte
A Installation
B Lösungen der Übungsaufgaben
Stichwort

Download:
- ZIP, ca. 8,4 MB
Buch bestellen
Ihre Meinung?

Spacer
 <<   zurück
Einstieg in Visual Basic 2008 von Thomas Theis
Inkl. zahlreicher Beispiele und Uebungen
Buch: Einstieg in Visual Basic 2008

Einstieg in Visual Basic 2008
geb., mit DVD
442 S., 24,90 Euro
Galileo Computing
ISBN 978-3-8362-1192-5
Online bestellenJetzt online bestellen
* versandkostenfrei in (D) und (A)
Pfeil 8 Datenbank-Anwendungen mit ADO.NET
  Pfeil 8.1 Was sind relationale Datenbanken?
    Pfeil 8.1.1 Beispiel »Lager«
    Pfeil 8.1.2 Indizes
    Pfeil 8.1.3 Relationen
    Pfeil 8.1.4 Übungen
  Pfeil 8.2 Anlegen einer Datenbank in MS Access
    Pfeil 8.2.1 Aufbau von MS Access
    Pfeil 8.2.2 Datenbank-Entwurf in MS Access 2007
    Pfeil 8.2.3 Übungen
  Pfeil 8.3 Datenbankzugriff mit Visual Basic
    Pfeil 8.3.1 Beispiel-Datenbank
    Pfeil 8.3.2 Ablauf eines Zugriffs
    Pfeil 8.3.3 Verbindung
    Pfeil 8.3.4 SQL-Befehl
    Pfeil 8.3.5 Auswahlabfrage
    Pfeil 8.3.6 Aktionsabfrage
  Pfeil 8.4 SQL-Befehle
    Pfeil 8.4.1 Auswahl mit Select
    Pfeil 8.4.2 Ändern mit Update
    Pfeil 8.4.3 Löschen mit Delete
    Pfeil 8.4.4 Einfügen mit Insert
  Pfeil 8.5 Ein Verwaltungsprogramm
    Pfeil 8.5.1 Initialisierung
    Pfeil 8.5.2 Alle Datensätze sehen
    Pfeil 8.5.3 Einen Datensatz einfügen
    Pfeil 8.5.4 Einen Datensatz ändern
    Pfeil 8.5.5 Einen Datensatz löschen
    Pfeil 8.5.6 Einen Datensatz suchen
  Pfeil 8.6 Verbindung zu MySQL
    Pfeil 8.6.1 ODBC-Treiber
    Pfeil 8.6.2 Datenquelle
    Pfeil 8.6.3 Datenbankzugriff mit Visual Basic
    Pfeil 8.6.4 .NET-Treiber
  Pfeil 8.7 Verbindung zu MS SQL Server 2005
    Pfeil 8.7.1 Anlegen einer Datenbank
    Pfeil 8.7.2 Datenbankzugriff mit Visual Basic


Galileo Computing - Zum Seitenanfang

8.7 Verbindung zu MS SQL Server 2005  Zur nächsten ÜberschriftZur vorigen Überschrift

SQL-Server

Sollte Ihnen MS Access nicht zur Verfügung stehen, so gibt es noch weitere Möglichkeiten. Bei MS SQL Server 2005 handelt es sich um ein serverbasiertes Datenbank-Management-System. Zunächst soll die Erstellung einer SQL Server 2005-Datenbank mit einer Tabelle erläutert werden. Anschließend wird gezeigt, wie man mit Visual Basic 2008 auf eine MS SQL Server 2005-Datenbank zugreift.

Bei der Installation der Visual Basic 2008 Express Edition kann man die MS SQL Server 2005 Express Edition direkt mit-installieren. Dies ist auch nachträglich noch durch einen erneuten Aufruf des Installationsprogramms möglich.


Galileo Computing - Zum Seitenanfang

8.7.1 Anlegen einer Datenbank  Zur nächsten ÜberschriftZur vorigen Überschrift

Eine Datenbank kann direkt in einer Anwendung innerhalb der Visual Basic 2008 Express Edition erzeugt und benutzt werden. Nachfolgend wird als Beispiel die MS SQL Server 2005 Datenbank firma mit der Adresse personen in einer Windows-Anwendung angelegt. Sie ist mit Struktur und Inhalt bereits als MS Access-Datenbank bekannt.

Folgende Schritte sind notwendig:

  • Zunächst erzeugt man über das Menü DateiNeuProjektWindows Forms-Anwendung eine neue Windows-Anwendung mit einem selbst gewählten Namen (z. B. p0804) und speichert diese.
  • Man ruft über das Menü ProjektNeues Element hinzufügen das Dialogfeld Neues Element hinzufügen auf.

    Datenbank hinzufügen

  • Darin wählt man den Typ Dienstbasierte Datenbank und trägt als Namen firma.mdf ein. Nach Betätigen des Buttons Hinzufügen gelangt man auf eine Seite, auf der man darauf aufmerksam gemacht wird, dass man soeben eine neue Datenbank mit einem leeren DataSet anlegt. Hier muss nur noch das Anlegen beendet werden, und im Solution Explorer (Projektmappen-Explorer) erscheint die neue Datenbank:

    Abbildung 8.46  Eine neue Datenbank

  • Rufen Sie nun den Datenbank-Explorer über das Menü AnsichtDatenbank-Explorer auf.

    Hierarchie-Baum

  • Im Datenbank-Explorer klappen Sie den Hierarchie-Baum Datenverbindungen über die Datenbank firma.mdf bis zur Ebene Tabelle auf.

    Abbildung 8.47  Ansicht im Datenbank-Explorer

  • Klicken Sie mit der rechten Maustaste auf Tabelle und wählen Sie im Kontextmenü Neue Tabelle hinzufügen aus.
  • Tragen Sie den Primärschlüssel für das Feld personalnummer ein, indem Sie in der betreffenden Zeile das Kontextmenü über die rechte Maustaste aufrufen und den Menüpunkt Primärschlüssel festlegen auswählen.
  • Rufen Sie anschließend den Hauptmenüpunkt DateiTable1 speichern auf und geben Sie in dem erscheinenden Dialogfeld den Tabellennamen (personen) ein.

    Abbildung 8.49  Geänderte Struktur der Datenbank

    Tabellendaten

  • Klicken Sie mit der rechten Maustaste auf die Tabelle personen, und wählen Sie im Kontextmenü Tabellendaten anzeigen aus.
  • Es erscheint eine weitere Registerkarte mit einer Eingabemaske. Tragen Sie hier die Daten der Tabelle personen wie folgt ein:

    Abbildung 8.50  Inhalt der Tabelle personen

  • Nach dem Eintrag des letzten Datensatzes kann man die beiden Registerkarten für Struktur und Daten wieder schließen. Die Datenbank firma ist nun vollständig angelegt.

Galileo Computing - Zum Seitenanfang

8.7.2 Datenbankzugriff mit Visual Basic  topZur vorigen Überschrift

Der Ablauf eines Zugriffs erfolgt ähnlich wie für MS Access-Datenbanken. Nachfolgend werden eine Auswahlabfrage und eine Aktionsabfrage durchgeführt. Die Unterschiede zum Zugriff auf eine MS Access-Datenbank werden besonders hervorgehoben.

Zunächst das Ergebnis der Auswahlabfrage:

Abbildung 8.51  Auswahlabfrage

Der zugehörige Code lautet:

Public Class frm0804 
   Private Sub cmdSehen_Click( ... ) Handles ... 
      Dim con As New SqlClient.SqlConnection 
      Dim cmd As New SqlClient.SqlCommand 
      Dim reader As SqlClient.SqlDataReader 
 
      Try 
         con.ConnectionString = _ 
            "Data Source=.\SQLEXPRESS;" _ 
               & "AttachDbFilename=C:\...\Visual Studio" _ 
               & "2008\Projects\p0804\p0804\firma.mdf;" _ 
               & "Integrated Security=True;" 
         cmd.Connection = con 
         cmd.CommandText = "select * from personen" 
         con.Open() 
 
         reader = cmd.ExecuteReader() 
         lstTab.Items.Clear() 
         Do While reader.Read() 
            lstTab.Items.Add(reader("name") & " # " _ 
               & reader("vorname") & " # " _ 
               & reader("personalnummer") & " # " _ 
               & reader("gehalt") & " # " _ 
               & reader("geburtstag")) 
         Loop 
         reader.Close() 
         con.Close() 
      Catch ex As Exception 
         MsgBox(ex.Message) 
      End Try 
    End Sub 
[ ... ] 
End Class

Zur Erläuterung:

    SqlClient

  • Die Objekte der Klassen SqlConnection, SqlCommand und SqlDataReader aus dem Namespace SqlClient entsprechen den Objekten der Klassen OleDbConnection, OleDbCommand und OleDbReader aus dem Namespace OleDb.
  • Diese Objekte werden für Datenbanken des Typs MS SQL-Server benötigt.
  • In der Eigenschaft ConnectionString steht:
  • Data Source=.\SQLEXPRESS, hier wird der Name des MS SQL-Servers angegeben.
  • AttachDbFilename=C:\...\Visual Studio 2008 \ Projects \ p0804 \ p0804 \ firma.mdf, hier wird der Dateiname der Datenbank mit absolutem Pfadnamen (zum Projektverzeichnis) angegeben. Dieser ist hier nur mit drei Punkten angedeutet, er lautet auf jedem Rechner anders und muss entsprechend eingetragen werden.
  • Integrated Security=True, damit wird erreicht, dass die Windows-Authentifizierung zum Zugriff auf den MS SQL-Server verwendet wird.
  • Der restliche Ablauf ist gleich geblieben.

Das Ergebnis der Aktionsabfrage (nach anschließendem Betätigen des Buttons Sehen) zeigt Abbildung 8.52:

Abbildung 8.52  Aktionsabfrage

Der Code (ebenfalls in p0804) lautet:

Public Class frm0804 
[ ... ] 
   Private Sub cmdÄndern_Click( ... ) Handles ... 
      Dim con As New SqlClient.SqlConnection 
      Dim cmd As New SqlClient.SqlCommand 
      Dim anzahl As Integer 
 
      Try 
         con.ConnectionString = _ 
            "Data Source=.\SQLEXPRESS;" _ 
            & "AttachDbFilename=C:\...\Visual Studio" _ 
            & "2008\Projects\p0804\p0804\firma.mdf;" _ 
            & "Integrated Security=True;" 
         cmd.Connection = con 
         cmd.CommandText = _ 
            "update personen set gehalt = gehalt * 1.05" 
         con.Open() 
 
         anzahl = cmd.ExecuteNonQuery() 
         MsgBox("Anzahl Datensätze geändert: " & anzahl) 
         con.Close() 
      Catch ex As Exception 
         MsgBox(ex.Message) 
      End Try 
   End Sub 
End Class

Zur Erläuterung:

  • Bei dieser Abfrage wird selbstverständlich kein Reader benötigt, da es sich um eine Aktionsabfrage ohne Abfrage-Ergebnis handelt.


Ihr Kommentar

Wie hat Ihnen das <openbook> gefallen? Wir freuen uns immer über Ihre freundlichen und kritischen Rückmeldungen.






 <<   zurück
  Zum Katalog
Zum Katalog: Einstieg in Visual Basic 2008






Einstieg in Visual Basic 2008
bestellen
 Ihre Meinung?
Wie hat Ihnen das <openbook> gefallen?
Ihre Meinung

 Buchtipps
Zum Katalog: Visual Basic 2008






 Visual Basic 2008


Zum Katalog: Einstieg in Visual C++ 2008






 Einstieg in
 Visual C++ 2008


Zum Katalog: Einstieg in Visual C# 2008






 Einstieg in
 Visual C# 2008


Zum Katalog: Visual C# 2008






 Visual C# 2008


Zum Katalog: Visual C# - Video-Training






 Visual C# -
 Video-Training


Zum Katalog: Einstieg in PHP 5 und MySQL 5






 Einstieg in PHP 5
 und MySQL 5


 Shopping
Versandkostenfrei bestellen in Deutschland und Österreich
InfoInfo





Copyright © Galileo Press 2008
Für Ihren privaten Gebrauch dürfen Sie die Online-Version natürlich ausdrucken. Ansonsten unterliegt das <openbook> denselben Bestimmungen, wie die gebundene Ausgabe: Das Werk einschließlich aller seiner Teile ist urheberrechtlich geschützt. Alle Rechte vorbehalten einschließlich der Vervielfältigung, Übersetzung, Mikroverfilmung sowie Einspeicherung und Verarbeitung in elektronischen Systemen.


[Galileo Computing]

Galileo Press, Rheinwerkallee 4, 53227 Bonn, Tel.: 0228.42150.0, Fax 0228.42150.77, info@galileo-press.de