#!c:/Perl/bin/perl.exe -wuse strict;
use DBI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use db_lib;
my $db ="F:/Eigene Dateien/Eigene Datenquellen/gasverbrauch.fdb";
my $input = new CGI;
my $knd_id = $input->param("knd_id");
my $status_temp = $input->param("status_temp");
my $Monat = $input->param("Monat");
my $Jahr = $input->param("Jahr");
my $dbh = connect_db($db);
my $q = "UPDATE VERBRAUCH SET TEMP_STATUS = '$status_temp'
WHERE (KUNDE_ID = $knd_id AND MONAT = $Monat AND JAHR = $Monat);";
do_query($q,$dbh);
disconnect_db($dbh);
# Verbindung zur Datenbank herstellen
sub connect_db {
my $db = $_[0];
# Verbindungsdaten
my $SQL_Driver = "InterBase";
my $SQL_Host="localhost";
my $SQL_User="SYSDBA";
my $SQL_Passw="masterkey";
my $dbh = DBI->connect("DBI:$SQL_Driver:$db", $SQL_User, $SQL_Passw, \%err_attr)or mess_out("Kann keine Verbindung zum MySQL-Server aufbauen");
return $dbh;
}
# Verbindung trennen
sub disconnect_db {
my $dbh = $_[0];
$dbh->disconnect;
return 1;
}
# Abfrage ohne Ergebnismenge
sub do_query {
my $query = $_[0];
my $dbh = $_[1];
my $res = $dbh->do($query)or mess_out("Kann Abfrage nicht ausfuehren");
return $res;
}
# Ausgabe von Fehlermeldungen
sub mess_out {
my $mess = $_[0];
die "$mess\nError $DBI::err ($DBI::errstr)\n";
}
Problem mit UPDATE Befehl für Firebird-Datenbank
