nicht angemeldet
Hallo Tichy,
kann jemand bestimmte perl-scripts empfehlen, bzw. gibt es schon leicht anpassbare c/c++ loesungen?
wie wäre es mit diesem Beispiel (Perl liest eine MDB-Access-Tabelle)
---cut--->
use Win32::ODBC; # Modul einbinden
print "Content-Type: text/html\n\n" ;
print "
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 3.2 Final//EN'>
<HTML>
<HEAD>
<TITLE>Adressen über ODBC</TITLE>
</HEAD>
<BODY bgcolor='white'>";
print "<h1>Privatadressen</h1><hr>";
die i.f. zu öffnende MDB hat 1 Tabelle: adres
$db = new Win32::ODBC('ADR') ; # Objekt anlegen
$db->Sql("
SELECT NAME, VORNAME, STRASSE, PLZ, ORT, TELEFON FROM adres
WHERE NAME like 'B%'
ORDER BY NAME
");
@FelderNamen = $db->FieldNames() ;
Spaltenanzahl ermitteln
$spalten=$#FelderNamen+1 ;
print "<h3>Alle Namen mit 'B'</h3>";
Ausgabe der Daten in eine HTML-Tabelle
print "<table border=1 cellspacing=0>\n";
print "<tr>\n";
for (@FelderNamen)
{
print "<td>", $_, "</td>\n"; # Die Feldüberschriften nicht vergessen
}
print "</tr>\n";
while ($db->FetchRow())
{
print "<tr>\n";
undef %Daten ;
%Daten = $db->DataHash();
for ($i = 0; $i < $spalten; $i++)
{
if ($Daten{$FelderNamen[$i]} gt '')
{
print "<td>", $Daten{$FelderNamen[$i]}, "</td>\n";
}
else
{
print "<td><font color='#ff8040'>Nicht Angegeben</font></td>\n";
}
}
print "</tr>\n";
}
print "</table>\n";
print "<hr>";
print "<h3>Alle Namen mit 'R'</h3>";
$db->Sql("
SELECT NAME, VORNAME, STRASSE, PLZ, ORT, TELEFON FROM adres
WHERE NAME like 'R%'
ORDER BY NAME
");
print "<table border=1 cellspacing=0>\n";
print "<tr>\n";
for (@FelderNamen)
{
print "<td>", $_, "</td>\n"; # Die Feldüberschriften nicht vergessen
}
print "</tr>\n";
while ($db->FetchRow())
{
print "<tr>\n";
undef %Daten ;
%Daten = $db->DataHash();
for ($i = 0; $i < $spalten; $i++)
{
if ($Daten{$FelderNamen[$i]} gt '')
{
print "<td>", $Daten{$FelderNamen[$i]}, "</td>\n";
}
else
{
print "<td><font color='#ff8040'>Nicht Angegeben</font></td>\n";
}
}
print "</tr>\n";
}
print "</table>\n";
$db->Close() ;
print "</BODY></HTML>";
<---cut---<
Quelle:
<a href=""></a>
Viele Grüße, Rolf