etreu

require('adodb-2.20/adodb.inc.php'); /* $g_db_* enthalten die Verbindungsinformationen host: dein_server[:port] als String user: account als String password: Passwort als String name: Name der Datenbank als String */ $g_db = NewADOConnection($g_db_system); // z.B. mysql -> hier dann oracle oder so eingeben $connected = $g_db->Connect($g_db_host, $g_db_user, $g_db_password, $g_db_name); [/PHP] Am besten du speicherst diesen Ausschnitt in einer extra Datei. Diese bindest du in jedem Script ein, dass auf die Datenbank zugreift. Ausserhalb von Funktionen kannst du mittels $g_db zugreifen, innerhalb must du deine variable erst noch mit global $g_db bekannt machen.

Beispiel aus der CPAN-Doku: $sth = $dbh->prepare("INSERT INTO table(foo,bar,baz) VALUES (?,?,?)"); while(<CSV>) { chomp; my ($foo,$bar,$baz) = split /,/; $sth->execute( $foo, $bar, $baz ); } [/PHP]

Du musst noch die adodb-Klassen runterladen, die Verbindung einrichten ét voilà .

DESC <tablename>;

Ich würde die Funktionen nehmen, aber nicht direkt. Schau dir mal den Link an: phplens - adodb Einfache API. Einfacher Austausch der Datenbank möglich.

write.php <?php $filename = "datei"; $action = $_POST['action']."\n"; //ggf \r\n $fp = fopen($filename, "w"); if ($fp) { fwrite($fp, $action, strlen($action)); if ($fp) fclose($fp); } else echo "Kommando konnte nicht geschrieben werden. Kein Zugriff auf die Datei"; ?> [/PHP] In deine HTML-Datei baust du folgendes noch mit ein: [PHP] <form action="write.php" target="_blank" methode="POST" > <input type="submit" name="action" value="vor"> weitere Buttons: <input type="submit" name="action" value="zurück"> <input type="submit" name="action" value="salto"> ... </form>

Nimm doch ne log()-Funktion. http://java.sun.com/j2ee/sdk_1.3/techdocs/api/javax/servlet/GenericServlet.html#log(java.lang.String)

ORDER BY dt_aname, dt_sname;

System.out.println() geht normalerweise auf die Konsole. Also keine Datei.

Du kannst so oft angegriffen werden, bis du tot bist. Logisch, oder? Ich denke du kannst jedem Tag einmal umgebracht werden, d.h. alle 6 Stunden. Wenn du dich also 3 richtige Tage nicht einloggst, dann könnte man dich theoretisch 12 mal umbringen. Füttern? Womit denn? Was frisst es denn?

Nur einmal pro Tag einloggen, dann wirst du auch "nur" einmal getötet. Jedes mal wenn du dich schlafen legst, bietest du eine neue Chance. Was kann es denn?

<input type="submit" name="action" value="vor" /> So bekommt die Variable $action den Wert "vor". Den kannst du dann in die Datei schreiben.

Das kann ich mir aber irgendwie gar nicht vorstellen? Prüfe mal mit telnet, welche Header du zurückbekommst. telnet server 80 HEAD /datei.name HTTP/1.1[ENTER] host: server[ENTER] [ENTER] Ich kann mir nicht vorstellen, dass hier das Encoding festegesetzt wird.

Vielleicht passt auch die Where-Bedingung nicht. Da ist dann die Abfrage erfolgreich, aber eben ohne sichtbares Ergebnis. Kannst du mal die generierten Abfragen posten?

Deine Variable heist $add. Willst du ein Insert oder ein Update machen?

Das möchte ich aber auch meinen. Wenn es trotzdem nicht klappen will: Hier werden Sie geholfen! :bimei

Versuche es mal OHNE Semikolon in der SQL-Anweisung. Vielleicht hast du in den Werten auch irgendwo ein einfaches Anführungszeichen drin stehen. Was sagt denn die Fehlermeldung?

GET /pfad/zu/deiner.datei HTTP/1.1\r\n Host: Hostname\r\n \r\n

Im Head der Seite folgendes einfügen: <meta http-equiv="content-type" content="text/html; charset=UTF-8">

Verdammt noch mal! Scheint es erst seit Perl 5.8 zu geben. Hatte das Beispiel genutzt: http://www.perldoc.com/perl5.8.0/lib/Switch.html. Muss man eben etwas umschreiben: while (($wert = shift @eintrag)) { $pos++; if ($pos == 1) { # case 1 $sql .= "'$wert'"; } else if ($pos == 2) { # case 2 $sql .= "'$wert'"; } else { $wert =~ s/,/./; $sql .= $wert; } # ... weiter wie gehabt [/PHP]

da fehlte noch : use Switch;

Machen wir das Ganze ebend etwas komplizierter while(<CVSFILE>) { @eintrag = split(/;/,$_); my $value; my $sql = ""; my $pos = 0; while (($value = shift @eintrag)) { switch (++$pos) { case 1 {$sql .= "'$value'";} case 2 {$sql .= "'$value'";} else {$value =~ s/,/./; $sql .= $value} } if ($eintrag > 0) { $sql .= ", "; } } $sql = "insert into temps values (" .$sql . ")"; print "\nSQL: $sql \n"; my $sth = $dbh->do($sql) or die $dbh->errstr; } [/PHP]

Must nur den richtigen Sport finden. Dann geht der Rest von ganz alleine.

@eintrag = split(/;/,$_); my $value; my $sql = "insert into temps values "; while (($value = shift @eintrag)) { $sql .= "'$value'"; if ($eintrag > 0) { $sql .= ", "; } } my $sth = $dbh->prepare($sql) or die $dbh->errstr; $sth->execute(); [/PHP]

my @liste; my @eintrag; my $file = "dateiname"; open(CVSFILE,$file); while (<CVSFILE>) { @eintrag = split(/;/,$_); # hier den Eintrag in die Datenbank vornehmen } close(CVSFILE); [/PHP] Ich hoffe mal es klappt. Habe ewig nichts mehr mit Perl zu tun gehabt. [OT] Wieso nimmt man eigentlich unter Windows Perl um auf eine Access-DB zuzugreifen? :confused: [/OT]