Schrift
[thread]3762[/thread]

datenbanken anzeigen lassen



<< |< 1 2 >| >> 13 Einträge, 2 Seiten
kale_1990
 2007-01-10 18:04
#35075 #35075
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
hallo, ich möchten einen datenbankexplorer in perl(mit tk) schreibne in dem man zwischen den verscheidenen vorhandenen datenbanken auswählen kann(wie die funktion bei mysql "show databases"...wie kann ich das aus perl heraus machne von einem bestimmten host die datenbanken anzeigen zu lassen(z.b. localhost)??
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
GwenDragon
 2007-01-10 18:10
#35076 #35076
User since
2005-01-17
14748 Artikel
Admin1
[Homepage]
user image
Geht es darum, wie du in Perl auf die Datenbank zugreifst oder wie du in Perl-TK die Benutzeroberfläche machst?
renee
 2007-01-10 18:23
#35077 #35077
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Vielleicht hilft Dir dieses PDF weiter - und natürlich die Doku von CPAN:DBI. Dort steht wie Du alle möglichen Befehle über CPAN:DBI abschicken kannst...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
kale_1990
 2007-01-10 23:43
#35078 #35078
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
ich weiß wie ich auf eine bestimmte datenbank zugreife, ich weiß wie ich die benutzeroberfläche gestallte ich weiß nur nicht wie ich herausfinde was alles für datenbanken auf einem bestimmten server laufen!

edit: das heißt ich brauch den befehl den ich im kommandozeilentool "mysql" auch hab und der lautet "show databases"\n\n

<!--EDIT|kale_1990|1168465671-->
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
kale_1990
 2007-01-11 00:10
#35079 #35079
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
so hallo, hab ein wenig rumprobiert und bin auf das ergebnis meiner frage gekommen....man muss einer zu einer beliebigen datenbank auf dem jeweiligen server und dann das statement ganz normal absetzen wie auch in dem commandlinetool "mysql"...hier mein code zur ermittlung der datenbanken auf einem bestimmten server:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w

use strict;

use DBI();

my $db_name;
my $dbh = DBI->connect("DBI:mysql:database=dbname;host=localhost",
"username", "Password",
{ 'RaiseError' => 1 });

my $sth = $dbh->prepare("SHOW DATABASES");
$sth->execute();

while($db_name = $sth->fetchrow_array( ))
{
print "$db_name\n";
}

aber trotzdem danke für eure antworten
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
sid burn
 2007-01-11 01:37
#35080 #35080
User since
2006-03-29
1520 Artikel
BenutzerIn

user image
Ich hab nur ganz kurz in die Doku von DBI geschaut (10sec) und dabei folgendes gefunden. Sollte eigentlich das sein was du suchst. Vor allem sollte es dann auch unabhängig vom verwendeten DBMS sein.

Quote
data_sources

@ary = $dbh->data_sources();
@ary = $dbh->data_sources(\%attr);

Returns a list of data sources (databases) available via the $dbh driver's data_sources() method, plus any extra data sources that the driver can discover via the connected $dbh. Typically the extra data sources are other databases managed by the same server process that the $dbh is connected to.

Data sources are returned in a form suitable for passing to the "connect" method (that is, they will include the "dbi:$driver:" prefix).

The data_sources() method, for a $dbh, was added in DBI 1.38.
\n\n

<!--EDIT|sid burn|1168472301-->
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
kale_1990
 2007-01-11 18:04
#35081 #35081
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
ja das hab ich auch gefunden, nur mit der verwendung war ich mir nicht ganz im klaren...englisch ist nicht so mein ding :cool:
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
renee
 2007-01-11 18:12
#35082 #35082
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Naja, an @ary = $dbh->data_sources(); ist jetzt nicht sooooo viel Englisch :p
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
kale_1990
 2007-01-13 15:21
#35083 #35083
User since
2006-09-12
104 Artikel
BenutzerIn
[default_avatar]
ja schon klar aber um das ausführen zu können muss man ja auch erst mal mit ner datenbank verbunden sein ("$dbh->....") oder wo soll der jetzt die datenbanken suchen?
THERE'S MORE THAN ONE WAY TO DO IT - TMTOWTDI

EASY THINGS SHOULD BE EASY - HARD THINGS SHOULD BE POSSIBLE
renee
 2007-01-13 16:02
#35084 #35084
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ja, machst Du bei Deiner Lösung aber auch...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 >| >> 13 Einträge, 2 Seiten



View all threads created 2007-01-10 18:04.