Access Datenbank Zugriff aus einem thread - #194014 (Graphische Oberflächen)

GwenDragon

2021-10-14 13:48

User since
2005-01-17
14533 Artikel
Admin1

Warum schießt du das Programm mit die() bei Problemen des ODBC ab?

Code: (dl )

1
2
3

Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType,("DSN=$DSN", "Description=MAO Win32 ODBC Test DSN for Perl", "DBQ=$Dir", "DEFAULTDIR=$Dir", "UID=", "PWD=")) or die "ConfigDSN(): Could not add temporary DSN" . Win32::ODBC::Error();

$db=new Win32::ODBC($DSN) or die "couldn't ODBC $DSN because ", Win32::ODBC::Error(), "\n";

Warum logst du nicht was da hakt?

Code: (dl )

my $rv = Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType,("DSN=$DSN", "Description=MAO Win32 ODBC Test DSN for Perl", "DBQ=$Dir", "DEFAULTDIR=$Dir", "UID=", "PWD="));
if (not $rv) {
  # Log mit deiner eigener Funktion schreiben
  LogMe ( "ConfigDSN(): Could not add temporary DSN" . Win32::ODBC::Error() );
  # hier weiterer Code was in deiner App geschehen soll bei Fehlern
}

$db=new Win32::ODBC($DSN);
if (not $dbh) {
  LogMe ( "couldn't ODBC $DSN because " . Win32::ODBC::Error() . "\n" );       
  # hier weiterer Code was in deiner App geschehen soll bei Fehlern
}

Last edited: 2021-10-14 13:50:55 +0200 (CEST)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel