von Jeff Nowicky
Visual Basic (VB) ist eine einfach zu bedienende PC-Entwicklungsumgebung. Wird sie mit ODBC (Open Database Connectivity) und der AS/400 kombiniert, können sehr leistungsfähige Client-/Server-Anwendungen damit erstellt werden. Aber fangen wir klein an: Folgen Sie uns bei einer schrittweisen Anleitung zur Verwendung der VB-Datenbank-Steuerelemente und von ODBC zum Zugriff auf eine AS/400-Datenbank. Sie lernen, wie man eine Abfrage ausführt, wie eine Aktions-Abfrage gestartet wird, und wie die Commit-Steuerung eingesetzt wird. Wir verwenden Windows 95, die Visual Basic 4.0 Enterprise Edition und Client Access für Windows 95 für die Beispielanwendungen. Sie benötigen entweder die Professional- oder die Enterprise-Edition von Visual Basic, um mit den Beispielanwendungen arbeiten zu können.
Vorbereitungen
Bevor wir uns mit den Anwendungen befassen können, müssen einige vorbereitende Arbeiten durchgeführt werden. Wir arbeiten in unserem Beispiel mit einer interaktiven SQL-Sitzung, aber wenn Sie kein interaktives SQL haben, können Sie auch mit DDS und DFU arbeiten. Wir erstellen eine einfache Namens-Datenbank mit zwei Feldern (Vorname und Nachname) und geben einige Werte ein. Dazu sind folgende Anweisungen erforderlich:
1. Starten Sie eine AS/400-Sitzung.
2. Geben Sie in einer Befehlseingabezeile »strsql« ein.
3. Geben Sie ein »create collection data«, und drücken Sie EINGABE.
4. Geben Sie ein »create table data/names (last_name char(20) not null with default, first_name char(10) not null with default)«, und drücken Sie EINGABE.
5. Geben Sie ein »insert into data/names values(‚Doe‘, ‚John‘)«, und drücken Sie EINGABE.
6. Geben Sie ein »insert into data/names values(‚Smith‘, ‚Mary‘)«, und drücken Sie EINGABE.
Als nächstes konfigurieren wir eine ODBC-Datenquelle, mit der wir auf unsere Namens-Datenbank zugreifen können. Dazu sind folgende Arbeitsschritte nötig:
1. Öffnen Sie, ausgehend vom Windows 95-Desktop den Client Access-Ordner, indem Sie auf »Start, Programme, Client Access« klicken.
2. Klicken Sie im Client Access-Ordner auf »ODBC-Verwaltung«.
3. Klicken Sie im Dialogfenster „Datenquellen“ auf „Hinzufügen…“.
4. Im Dialogfeld „Neue Datenquelle erstellen“ wählen Sie den „Client Access ODBC-Treiber (32-bit) und klicken auf „OK“.
5. Wählen Sie im Client Access ODBC-Setup die Registerkarte „Allgemein“, und geben Sie die erforderlichen Werte wie folgt ein:
Datenquelle: Data System: Systemname Benutzer-ID: Benutzer-ID (Systemname steht für den Namen Ihres Systems und Benutzer-ID für Ihre Benutzer-ID) 6. Wählen Sie die Registerkarte „Server“, geben Sie im Feld „Standardbibliotheken“ die Bibliothek „DATA“ an, und wählen Sie „Commit immediate(*NONE)“ im Feld „Commit-Modus“. Klicken Sie auf OK, und schließen Sie das Fenster. Jetzt sind wir so weit, daß wir einige Anwendungen erstellen können.
AS/400-Datenbankabfrage:
Unsere erste Anwendung führt eine einfache Datenbank-Abfrage aus. Sie wird mit folgenden Schritten aufgebaut:
1. Starten Sie Visual Basic und beginnen Sie ein neues Projekt.
2. Legen Sie für die Form folgende Eigenschaften fest: Caption: Auswahlabfrage Name: frmSelectQuery
3. Wählen Sie das Steuerelement „Data“ aus der Werkzeugsammlung, und plazieren Sie es in der Form.
4. Legen Sie für das Steuerelement „Data“ folgende Eigenschaften fest: Caption: datNames Connect: ODBC DatabaseName: Data Name: datNames Options: 64 RecordSource: select * from names Visible: False
5. Wählen Sie das Steuerelement „DBGrid“ aus der Werkzeugsammlung, und plazieren Sie es in der Form.
6. Legen Sie für das Steuerelement „DBGrid“ folgende Eigenschaften fest: Caption: Namen DataSource: datNames Name: dbgNames
7. Starten Sie das Programm. Die von Ihnen eingegebenen Namen sollten in der Tabelle erscheinen.
8. Löschen Sie die Eigenschaft „DatabaseName“ aus dem Steuerelement „Data“, und starten Sie das Programm noch einmal. Sie werden zur Auswahl einer ODBC-Datenquelle aus einer Liste aufgefordert. Auf diese Weise können Sie leicht eine Anwendung erstellen, die mit verschiedenen Datenquellen arbeitet. Gratulation! Sie haben eine AS/400 Client-/Server-Datenbankanwendung mit VB und ODBC geschrieben, die unter Windows 95 läuft. (Die Oberfläche sollte so ähnlich wie in Abbildung 1 aussehen.) Nicht schlecht für fünf Minuten Zeitaufwand! AS/400-Datenerfassungs-Anwendung Die eben erstellte Anwendung führt eine Auswahlabfrage aus. Als nächstes wollen wir eine Anwendung erstellen, die eine Aktionsabfrage enthält (d.h. eine Abfrage, die eine Aktion wie z.B. Hinzufügen ausführt). Mit folgenden Schritten erstellen Sie eine einfache
AS/400-Datenerfassungs-Anwendung:
1. Starten Sie Visual Basic und beginnen Sie ein neues Projekt.
2. Legen Sie für die Form folgende Eigenschaften fest: Caption: Aktionsabfrage Name: frmActionQuery
3. Wählen Sie das Steuerelement „CommandButton“ aus der Werkzeugsammlung, und plazieren Sie es in der Form.
4. Legen Sie für das Steuerelement „CommandButton“ folgende Eigenschaften fest: Caption: Hinzufügen Name: cmdInsert
5. Wählen Sie das Steuerelement „TextBox“ aus der Werkzeugsammlung, und plazieren Sie es in der Form.
6. Legen Sie für das Steuerelement „TextBox“ folgende Eigenschaften fest: Name: txtFirstName TEXT: (leer lassen – kein Text)
7. Wählen Sie noch einmal das Steuerelement „TextBox“ aus der Werkzeugsammlung, und plazieren Sie es in der Form.
8. Legen Sie für das Steuerelement „TextBox“ folgende Eigenschaften fest: Name: txtLastName TEXT: (leer lassen – kein Text)
9. Lassen Sie sich durch Doppelklicken auf die Form deren Code anzeigen. Wählen Sie im Editor Objekt: (Allgemein) und Prozedur: (Deklarationen). Geben Sie folgenden Code ein: Dim dbs As Database
10. Wählen Sie im Editor Objekt: Form und Prozedur: Load. Geben Sie folgenden Code ein: Set dbs = Workspaces(0), OpenDatabase („“, False, False, ODBC)
11. Wählen Sie im Editor Objekt: cmdInsert und Prozedur: Click. Geben Sie folgenden Code ein: dbs.Execute „insert into names values(‚“ & txtLastName.Text & „‚ “ & „,“ & “ ‚“ & txtFirstName.Text & „‚)“, dbSQLPassThrough
12. Starten Sie die Anwendung. Geben Sie einen neuen Namen in die Felder ein, und klicken Sie auf „Hinzufügen“.
13. Versuchen Sie, mit Hilfe der Abfrage-Anwendung eine Eingabeprüfung zu realisieren.
Viel Spaß bei der Arbeit!
übersetzt von Matias Spateneder
Da der Artikel zu lang war vollständig ins Internet zu setzen finden Sie den letzten Abschnitt mit der Überschrift:
AS/400-Datenerfassungs-Anwendung mit Commit-Steuerung
im Juni Heft von NEWS/400
Michael Hellriegel ist 2. Vorsitzender von COMMON Deutschland und freiberuflicher Systemberater und seit 1981 im Bereich der Anwendungsentwicklung und Systemsteuerung auf den IBM Systemen /38 und AS/400 tätig.
Sie können ihn per E-Mail erreichen unter CompuServe 74711,101.
Ähnliche Artikel:
