Access Datenbank mit Perl auslesen und komplett an eine HTML Seite a

[Torsten]

Es hat geklappt

DANKE!!!

Das neue Script sieht jetzt so aus:

#!/perl/bin/perl.exe

$os = "WINDOWS";

$max_rows = 10;
$rows = 0;
use CGI;
$cgi = new CGI;
use Win32::ODBC;
$DSN="stamm";
$db=new Win32::ODBC("DSN=stamm");

$sql_string = "SELECT * FROM Stellenplan";

@FelderNamen = $db->FieldNames();
$spalten = @FelderNamen;

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'),
          chop;
    print "<table border cellspacing=0><tr>";
    print "<table border cellspacing=0><tr>";
    for (@FelderNamen){
      print "<th>", $_, "</th>";
    }
    print "</tr><br>";
    # Und nun den Rest der Tabelle
    # FetchRow() gibt 0, wenn keine weiteren Daten anliegen
    while ($db->FetchRow() and $rows < $max_rows){
      print "<tr>";
      undef %Daten ;
      %Daten = $db->DataHash();
      $rows++;
      for ($i = 0; $i < $spalten; $i++){
        if ($Daten{$FelderNamen[$i]} gt ''){
          print "<td>", $Daten{$FelderNamen[$i]}, "</td>";
        }
        else{
          print "<td>-frei-</td>";
        }
      }
      print "</tr>";
    }
    print "</table>",
    $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();
  }