 |
Hilfreiches :: Datenbankanbindung per ODBC (3/4)
Im folgenden werde ich auf grundlegende Eigenschaften des Moduls eingehen und der nächsten Seite ein konkretes Beispiel entwickeln.
|
1. Einbindung
|
Um das Modul nutzen zu können muß man es das Script einbinden, dies erfolgt durch:
use Win32::ODBC ;
Wichtig hierbei ist , die Groß-/Kleinschreibung.
|
|
2. DB-Connection |
Als nächstes ist ein neues Objekt anzulegen und eine Verbindung auzubauen, Dazu bracht man den vorher angegebenen Namen der Datenquelle:
$db = new Win32::ODBC('PerlBSP') ;
Der Variablenname kann beliebig gewählt werden, es muß aber eine Variable sein, die noch nicht definiert ist, sonst erhält man eine Fehlermeldung.
|
|
3. DB-Zugriff |
Nachdem ein neues Datenbankobjekt erstellt wurde kann man auf die Datenbank zugreifen.
Feldernamen
@FelderNamen=$db->
FieldNames() ;
Felderanzahl
$FelderAnzahl=$#FelderNamen+1 ;
Datenzugriff
($Feld1, $Feld2) = $db->
Data("Feld1", "Feld2") ;
@Felder = $db->
Data ;
%Felder = $db->
DataHash("Feld1", "Feld2") ;
%Felder = $db->
DataHash ;
Bevor aber auf Felder zugegriffen werden kann, muß per SQL-Statement ein Teil der Daten oder alle Daten ausgewählt werden.
Datenselection
$db->
Sql("SELECT * FROM Tabelle1") ;
Nun kann das Ergebnis per while ausgelesen werden.
$Spalten=$#FelderNamen+1 ;
while (
$db->
FetchRow()
) {
undef %Daten ;
%Daten = $db->
DataHash();
for ($iTemp = 0; $iTemp < $Spalten; $iTemp++){
print "$Daten{$FelderNamen[$iTemp]}\n";
}
}
|
|
4. Schließen |
Und da wir ordentliche Programmierer sind, schließen wir auch ganz ordentlich die Verbindung, wenn wir fertig sind.
$db->
Close() ;
|
Das ist alles, was man für eine einfache Datenbankanbindung braucht. Alle Methoden des Objekts können in der Dokumentation nachlesen werden, die mit dem Archiv geliefert wird.
Kommentare
03.11.2003 - 13:49 | johann | înfo@mediaconsults.de
gibts denn schon scripts die dieses modul nutzen ? so zum üben und so..... kann ich dan... 
17.02.2003 - 23:00 | uta | elfriede007@web.de
Diese Kurzreferenz finde ich gut und verständlich. Man muss nicht erst sonst wieviele Seit...
25.07.2002 - 23:36 | Oliver | info@methfessel-com.de
@Ulrike probier es mal mit einer if-Schleifer: $db->SQL("SELECT * FROM ..."); $i...
26.02.2002 - 15:02 | Ulrike | ulialleinzuhaus@aol.com
Was mach ich wenn die datenbank leer ist und ich ne anzeige haben will in der Form von: "I...
Kommentar anfügen
|
|
|
