Eine solche Testumgebung lokal eingerichtet ermöglicht das Vertrautmachen mit der Problematik "SQL mit PERL/CGI" und erleichtert somit die nächsten Schritte, etwa die Anbindung eines MS-SQL-Servers an das Intranet.

Eine komplette Einführung mit einer umfangreichen Dokumentation und FAQ zum Modul Win32::ODBC gibt natürlich der Autor Dave Roth selbst auf seiner ODBC-Page. Auf dieser Site stellt Dave Roth u.a. eine hervorragend gemachte PowerPoint-Presentation über ODBC zur Verfügung die auch downgeloadet werden kann.

Systemvoraussetzungen

Als Grundlage für diesen Beitrag diente:

• Eine WinNT-Workstation 4.0
• MS-Access97
• Active PERL " version 5.005_02 built for MSWin32-x86-object"
• Das Modul "Win32-ODBC" VERSION="0,03,0,0"
• HTTPd "Apache/Win32, 1.3.9."

Einrichten der Datenquelle

Bevor mit dem Win32::ODBC-Modul auf eine Datenquelle zugegriffen werden kann, muss diese als System-DSN (Data Source Name) erstellt werden. ODBC: Open Data Base Connectivity - ist eine spezielle Schnittstelle über die von verschiedenen Anwendungen aus (z.B.: PERL) auf Datenquellen zugegriffen werden kann. Die Datenquelle kann entweder über die Systemsteuerung ODBC oder über ein Script erstellt werden. Warum muss es ein System-DSN sein? Nun, der Webserver (auch httpd: HTTP-Dämon genannt) läuft als Systemdienst. Ein Systemdienst kann mit einer Benutzer-DSN nichts anfangen. Ein SQL-Statement in einem PERL/CGI-Script eingebettet, würde in einem solchen Fall fehlschlagen.

Über ODBC-Setup in der Systemsteuerung

Zum Einrichten der Datenquelle in der Systemsteuerung auf das Icon "ODBC" klicken:

Wichtig ist dann die Auswahl des Registers "System-DSN":

... und dann die Schaltfläche "Hinzufügen" klicken. Es erscheint nun eine Auswahl der zur Verfügung stehenden ODBC-Treiber:

Den Treiber für MS-Access auswählen und weiter gehts mit der Auswahl der Datenbankdatei...

Mit der Auswahl der MS-Access-Datenbankdatei "nordwind.mdb" ist das ODBC-Setup abgeschlossen und die Datenquelle "nordwind" erstellt:

Mit PERL

Die Datenquelle kann genausogut mit einem Script erstellt werden, das Modul "Win32::ODBC" bietet hierfür auch Methoden an. Als Erstes soll ein einfaches Script vorgestellt werden, welches alle zur Verfügung stehenden ODBC-Treiber mittels der Methode "Drivers()" auflistet:

use Win32::ODBC;
%drivers = Win32::ODBC::Drivers();
foreach $driver (sort keys %drivers){
  print "Driver = $driver\n";
}

Dieses kleine Script liefert also eine Liste der zur Verfügung stehenden ODBC-Treiber und zeigt auch deren richtige Schreibweise. Die richtige Schreibweise ist in dem folgendem zweiten Script wichtig, mit welchem die Datenquelle eingerichtet wird:

# Eine ODBC Datenquelle erstellen
# Dieses Scrip als CGI über den Webserver starten
# Wenn der Server als System-Dienst läuft,
# wird somit ein System-DSN erstellt
use Win32::ODBC;
$DriverType = "Microsoft Access-Treiber (*.mdb)";
$DSN = "nordwind";
$Description = "Test Datenbank";
$DataBase = "Nordwind.mdb";
$dir="c:\\programme\\Microsoft Office\\Office\\Beispiel";
if(Win32::ODBC::ConfigDSN(ODBC_ADD_DSN,
	$DriverType,
	("DSN=$DSN",
	$Description,
	"DBQ=$dir\\$DataBase",
	"DEFAULTDIR=$dir",
	"UID=", "PWD="))){
  print "content-type:text/html\n\n";
  print "Konfiguration des DSN: $DSN erfolgreich!\n";
}
else{
  print "content-type:text/html\n\n";
  print "Fehler beim Erstellen der Datenquelle $DSN\n";
  Win32::ODBC::DumpError();
  die;
}

Installation des Win32::ODBC-Moduls

Der Autor des Modul' s Win32::ODBC Dave Roth beschreibt in seiner PowerPoint-Presentation die Installation des Moduls wie folgt:

• Create the directory c:\perl\lib\auto\win32\odbc
• Copy ODBC.PLL into the new directory
• Copy ODBC.PM into c:\perl\lib\win32

Andererseits ist mit dem Perl Package Manager "PPM" die Installation des Win32::ODBC-Moduls ganz leicht. Nachdem das ZIP-File von ActiveState/Packages/zips downgeloadet wurde, wird dieses mit einem geeignetem Packer (WinZip, PowerZip oder WinCommander) in ein beliebiges Verzeichnis entpackt. In diesem Verzeichnis finden sich sodann die folgenden Dateien bzw. das Verzeichnis:

• [x86] (Verzeichnis)
• Win32-ODBC.ppd (Datei)
• Readme (Datei)

Erste Schritte

Win32::ODBC-Objekterstellung

use Win32::ODBC; # Modul einbinden
$db = new Win32::ODBC("DSN=nordwind"); # Erstellung eines Objekts

Sofern für die Datenquelle ein Benutzername und ein Passwort erforderlich sind, kann der folgende Syntax Verwendung finden:

$db = new Win32::ODBC("DSN=XBASE;UID=interaktiv;PWD=interaktiv;")

Das Erstellen der Verbindung zur Datenquelle kann auch in eine Fehlerbehandlung eingeschlossen werden, indem der Rückgabewert wie folgt ausgewertet wird:

if(!($db = new Win32::ODBC("DSN=XBASE;UID=interaktiv;PWD=interaktiv;"))){
  print "Fehler beim Verbinden mit $DSN\n";
  print "Fehler: " . Win32::ODBC::Error() . "\n";
  exit;
}

Sql-Statements

SQL stellt dem Benutzer einen Sprachschatz zur Verfügung mit dessen Vokabeln er alle erdenklichen Abfragen und Manipulationen an Datenbanken vornehmen kann:

"SELECT Anrede, Vorname, Nachname FROM Personal
WHERE Geburtsdatum > #01/01/1960#"

"INSERT INTO Artikel
VALUES (9999, 'Puffbohnen', 29, 5, 'Sack', '10', 10000, 1, 10000, 0)"

"DELETE FROM Artikel WHERE [Artikel-Nr] = 9999"

"DROP TABLE Kunden"

SELECT artikel.Artikelname, lieferanten.Firma
FROM artikel, lieferanten
WHERE artikel.[Lieferanten-Nr] = lieferanten.[Lieferanten-Nr]
ORDER BY 2

# $db ist das weiter oben erstellte Objekt der Datenquelle
$sql_string = ("SELECT * FROM Lieferanten");
$db->Sql($sql_string);

  FieldNames() # Spaltenüberschriften ermitteln
  FetchRow()   # Nächster Datensatz...
  DataHash()   # liefert den Record als Hash: ('FeldName','Wert',...)
  Error()      # Fehlerausgabe
  Close()      # Datenbank schließen

<HTML>
<HEAD>
<TITLE>SQL auf Nordwind</TITLE>
</HEAD>
<BODY>
<H2>SQL auf MS Access "Nordwind.MDB"</H2>
<FORM ACTION="/cgi-bin/nordwind.pl" METHOD="post">
<pre>
Alle Artikel zeigen:
<INPUT TYPE="Radio" NAME="default" VALUE="Artikel">
Alle Kunden zeigen:
<INPUT TYPE="Radio" NAME="default" VALUE="Kunden">
Alle Lieferanten zeigen:
<INPUT TYPE="Radio" NAME="default" VALUE="Lieferanten">
</pre>
SQL Statement eingeben:
<p>
<TEXTAREA NAME="sql_eingabe" COLS="100" ROWS="12"></TEXTAREA>
<p>
Max Zeilen:
<SELECT NAME="max_rows">
<OPTION VALUE="10">10
<OPTION VALUE="50">50
<OPTION VALUE="100">100
<OPTION VALUE="200">200
</SELECT>
<INPUT TYPE="Submit"><INPUT TYPE="reset">
</FORM>
</BODY>
</HTML>

#!perl
use CGI;            # CGI-Modul einbinden
$cgi = new CGI;
use Win32::ODBC;    # ODBC-Modul einbinden
$db = new Win32::ODBC("DSN=nordwind"); # Objekt erstellen
$max_rows = 2; # Max Zeilen die später ausgegeben werden
$rows = 0;
# Parameter auslesen
$max_rows = $cgi->param('max_rows');
$vordef = $cgi->param('default');
if($vordef){
  $sql_string = ("select * from $vordef");
}
else{
  $sql_string = $cgi->param('sql_eingabe');
}

if(! $db->Sql($sql_string)){
  @FelderNamen = $db->FieldNames();  # Feldnamen
  $spalten = @FelderNamen;           # Spaltenanzahl ermitteln
  #Ausgabe der Daten in den Browser (Tabelle)
  print	$cgi->header,
        $cgi->start_html('Ergebnis der SQL - Abfrage'),
        $cgi->h2('Ergebnis der SQL - Abfrage'),
        $cgi->h5($sql_string),
        "Maximal angezeigte Zeilen: ", $max_rows;
  print "<table border cellspacing=0>\n";
  # Die Überschriften nicht vergessen
  print "<tr>\n";
  for (@FelderNamen){
    print "<th>", $_, "</th>\n";
  }
  print "</tr>\n";
  # Und nun den Rest der Tabelle
  # FetchRow() gibt 0, wenn keine weiteren Daten anliegen
  while ($db->FetchRow() and $rows < $max_rows){
    print "<tr>\n";
    undef %Daten ;
    %Daten = $db->DataHash();
    $rows++;
    for ($i = 0; $i < $spalten; $i++){
      if ($Daten{$FelderNamen[$i]} gt ''){
        print "<td>", $Daten{$FelderNamen[$i]}, "</td>\n";
      }
      else{
        print "<td>Nicht Angegeben</td>\n";
      }
    }
    print "</tr>\n";
  }
  print "</table>\n",
  $cgi->end_html;
  $db->Close() ;
}
else{
  print $cgi->header,
        $cgi->start_html('Fehler im SQL Statement'),
        $cgi->h2('Fehler im SQL Statement'),
        $cgi->p,
        $db->Error();
}