3
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease 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 08: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
Hi,
hatte einen benutzer DSN erstellt habe jetzt ein System DSN erstellt.
Wie kann ich denn ne SQL abfrage oder ähnliches starten?
hatte einen benutzer DSN erstellt habe jetzt ein System DSN erstellt.
Wie kann ich denn ne SQL abfrage oder ähnliches starten?
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
