Tabellen und Abfragen einer Access-DB: als Excelblätter exportieren (Datenbanken und Verzeichnisdienste)

Crian

2007-02-20 10:12

User since
2003-08-04
5872 Artikel
ModeratorIn

Geht das mit Perl? Hat jemand vielleicht ein Schnippsel dafür?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2007-02-20 19:24

User since
2003-08-04
14371 Artikel
ModeratorIn

Klar geht das mit Perl ;) Zur Abfrage benutzt Du CPAN:

DBI und für das Erstellen der Excel-Dateien einfach CPAN:

Spreadsheet::SimpleExcel oder CPAN:

Spreadsheet::WriteExcel.

So verbindet man sich mit einer Access-Datenbank...

Code: (dl )

my $dbh = DBI->connect("DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb); dbq=C:\\Pfad\\zur\\DB.mdb",$user,$pass,{RaiseError => 0, PrintError => 0});

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/

Crian

2007-02-21 10:52

User since
2003-08-04
5872 Artikel
ModeratorIn

Hmm. Ich kenn diese komische Access nur von der Benutzerseite. Da kann man rechtsklicken auf die Abfragen/Tabellen und diese 'Exportieren...' direkt ins passende Format. Dabei scheint eine besondere "Magie" gewoben zu werden, da die Tabellen und Excelsheets irgendwie noch einen Zusammenhang zu haben scheinen.

Deshalb hatte ich gehofft, man könnte sich dieses Herumgeklicke sparen. Aber wenn ich das alles einzeln nachprogrammiere kann ich dafür ziemlich lange herumklicken... na mal sehen, auf jeden Fall schönen Dank.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2007-02-21 17:54

User since
2003-08-04
14371 Artikel
ModeratorIn

Vielleicht kannst Du was mit CPAN:

Win32::OLE machen...

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/

Crian

2007-02-22 10:15

User since
2003-08-04
5872 Artikel
ModeratorIn

Ja und genau dazu hatte ich gehoft jemand hätte vielleicht schon was, Access und Excel sind ja nicht so ausgefallene Programme. na mal schauen.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2007-02-22 10:34

User since
2003-08-04
14371 Artikel
ModeratorIn

Schau mal auf win32.perl.org. Dort findest Du Beispiele zu CPAN:

Win32::OLE bzw. etliche Links zu Ressourcen...

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/

Strat

2007-02-22 12:22

User since
2003-08-04
5246 Artikel
ModeratorIn

1. Daten von Access abfragen: hier wuerde ich auch DBI + DBD::ODBC verwenden (siehe 1. Post von Renee)
2. Excel schreiben: recht einfach geht's mit CPAN:

Spreadsheet::WriteExcel; allerdings kann das nicht alle Excel-Sachen. CPAN:

Win32::OLE ist ein klein wenig schwieriger, weil man das Excel-Objektmodell kennen sollte...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2007-02-23 12:46

User since
2003-08-04
5872 Artikel
ModeratorIn

Habt schönen dank ich werd mich dann mal auf den Seiten und bei den Modulen umsehen.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite