© W.-F. Riekert, 27.05.99Web-Datenbank-Anbindung mit ODBCS. 2
D ie E m a il -D a te nb a n k
© W.-F. Riekert, 27.05.99Web-Datenbank-Anbindung mit ODBCS. 3O DB C -S c h n it ts te ll e
© W.-F. Riekert, 27.05.99Web-Datenbank-Anbindung mit ODBCS. 4B e n u tz un g d e r W e b -S c h n itt s te ll e z u r E m a il -D a te nb a n k
© W.-F. Riekert, 27.05.99Web-Datenbank-Anbindung mit ODBCS. 5K e rn d es P e rl -S k ri p ts z u r D a te nb a n ka b fr a g e v ia O D B C
$DSN="email"; if (!($db=new Win32::ODBC($DSN))) { print "Error:" . Win32::ODBC::Error() . "\n"; } else { $SqlStatement = "SELECT Name, Vorname, Email FROM Adressen WHERE Name LIKE \'" . $feldinhalt{name} . "%\'"; if ($db->Sql($SqlStatement)) { print "Error: " . $db->Error() . "\n"; } else { while($db->FetchRow()) { %Data = $db->DataHash(); print "<b> $Data{'Vorname'} $Data{'Name'} </b> <A HREF = mailto:$Data{'Email'}><$Data{'Email'}></A> <br> \n"; } } $db->Close(); }$feldinhalt{name} enthält den eingegebenen Suchstring