perl und Mysql
Hi @ all,
bin gerade dabei mit Perl etwas zu Spielen,
nun möchte ich ne Verbindung mit Mysql aufbauen aber irgendwie mag dass net so.
Habe den Myodbc treiber installiert und benutze Win32::ODBC.
bekomme keine Fehlermeldung aber auch nichts anders.
Was mache ich falsch???
Thx im Voraus
bin gerade dabei mit Perl etwas zu Spielen,
nun möchte ich ne Verbindung mit Mysql aufbauen aber irgendwie mag dass net so.
Habe den Myodbc treiber installiert und benutze Win32::ODBC.
use Win32::ODBC;
$DriverType = "MySQL ODBC 3.51 Driver";
$DSN = "SQL1DSN";
$DataBase = "test.db";
bekomme keine Fehlermeldung aber auch nichts anders.
Was mache ich falsch???
Thx im Voraus
Please also mark the comments that contributed to the solution of the article
Content-Key: 37787
Url: https://administrator.de/contentid/37787
Printed on: April 19, 2024 at 14:04 o'clock
3 Comments
Latest comment
hallöchen,
hast du die DSN auch unter Windows eingetragen???
Und es muss eine System DSN sein.
und eigentlich musst du keine DB angeben das übernimmt ja ODBC für dich.
bei fragen melden
mfg godlike P
hast du die DSN auch unter Windows eingetragen???
Und es muss eine System DSN sein.
und eigentlich musst du keine DB angeben das übernimmt ja ODBC für dich.
bei fragen melden
mfg godlike P
so dürfte das klappen:
mfg godlike P
#!/usr/bin/perl -w
# Wir verwenden ein Windows-spezifisches Perl-ODBC-Modul
use WIN32::ODBC;
# Wir wollen uns etwas disziplinieren beim Einsatz von Perl
use strict;
# ======================================================================
# Variablen
# ======================================================================
# Es muß eine System-DSN mit dem unten stehenden Namen definiert sein
my $DSN = "datasourcename";
# Unser Bezeichner zum Zugriff auf eine geöffnete Datenbankinstanz
my $db_user = "user";
my $db_pass = "pass";
# Hier landen die jeweils zurück gegebenen Zeilen
my %Zeile;
$DB = new Win32::ODBC($DSN);
my $sql_stmt = "select * from table";
$DB->Sql($sql_stmt);
while($DB->FetchRow()){
%Zeile = $DB->DataHash();
print $Zeile{"spalte1"}."\t".$Zeile{"spalte2"};
}
$DB->Close();
mfg godlike P