Datenbankanbindung an Access - Neuling! (Datenbanken und Verzeichnisdienste)

[thread]14605[/thread]

Datenbankanbindung an Access - Neuling!

Leser: 23

Articles: hide open all | hide show old branches

+23 replies
Gast Tobi

2010-02-07 14:38

Hallo zusammen,

ich soll als Aufgabe in meiner Ausbildung ein Perl Makro zu schreiben welches sich mit einer Datenbank verbinden soll (Bin absoluter Neuling im Umgang mit PERL). Leider kriege ich es nicht wirklich hin deswegen stelle ich hier mal die Frage ;-)

Das Perl Makro soll die Access 2007 Datenbank öffnen, den Import einer Datei ausführen und danach die Datenbank wieder schließen. Idealerweise soll noch eine Überprüfung stattfinden, die guckt ob ein gewissen Wert in der Tabelle überschritten wurde - sollte dies der Fall sein soll eine E-Mail an eine Adresse geschickt werden.

Leider bin ich im Internet nicht fündig geworden, ich hoffe hier kann mir jemand helfen.

Danke schonmal im vorraus!
- renee
  
  2010-02-07 14:55
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Hallo Tobi,
  
  als generellen Einstieg für die Anbindung von Datenbanken haben wir diesen Artikel.
  
  Was meinst Du genau mit "Import einer Datei"? Wie sieht die Datei aus? Wie würde man den Import "manuell" machen? Muss man da direkt mit Access arbeiten, oder kann man beim Aufruf von Access einfach einen Dateinamen angeben?
  
  Zum Thema E-Mail haben wir z.B. diesen Artikel.
  
  Weitere Fragen? Einfach fragen...
  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/
- +5 replies
- GwenDragon
  
  2010-02-07 15:01
  User since
  2005-01-17
  14562 Artikel
  Admin1
  1) Soll deine Anwendung auf Windows laufen?
  2) Ist ODBC verwendbar?
  Das sollte erst geklärt werden.
  
  Ganz kurz und brutal:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $dsn = "Datenbank"; my $dbh = Win32::ODBC->new("DSN=$DSN"); # zu Datenbank verbinden my $sql = "SELECT * FROM Tabellenname"; # deine SQL-Abfrage if($db->Sql($sql_string)) { # Abfrage war erfolgreich # dein weiterer Programmcode } $db->Close(); # Verbindung zu Datenbank schließen
  
  ;
  Siehe auch: Win32-ODBC
  
  Bei Unverständis bitet weiter fragen.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +4 replies
  - renee
    
    2010-02-07 15:04
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Ich persönlich würde DBI mit DBD::ODBC verwenden. Dann lernt man gleich das "richtige" Modul kennen und bleibt portabler...
    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/
    - +3 replies
    - GwenDragon
      
      2010-02-07 15:36
      
      User since
      2005-01-17
      14562 Artikel
      Admin1
      
      Portabler? DBD::ODBC setzt ODBC voraus, was unter Linux nicht immer gegeben ist, kostenpflichtig oder korrekt läuft.
      Es kommt ja auf das System an, auf dem gearbeitet wird. Deswegen meine Fragestellung.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +2 replies
      - renee
        
        2010-02-07 15:39
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Mit portabler meinte ich eher portabel zwischen DB-Systemen. Wenn man von Access auf MySQL umsteigt, dann ist es viel weniger Code, den man anpassen muss. Sorry für die Unklarheit...
        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/
        
        GwenDragon
        
        2010-02-07 15:49
        
        User since
        2005-01-17
        14562 Artikel
        Admin1
        
        hast schon recht, damit dass es sinnvoller ist, DBI zu verwenden wenn es Zieldatenbanken von verschiedenen Herstellern sind.
        
        Nur war das ja im Grunde genommen nicht die Fragestellung des Posters.
        Du hasr also schon Schritte weiter gedacht. ;)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +5 replies
- Funnybone
  
  2010-02-07 15:23
  User since
  2010-02-07
  8 Artikel
  BenutzerIn
  Erstmal danke für die ganzen Antworten, ich habe mir direkt mal mail:sender angeguckt und DBI + ODBC überschlagen.
  
  @renee:
  Eine Textdatei soll mit einer Importspezifikation in eine Datenbank eingefügt werden. Die Textdatei "test.txt" hat zB eine Zeile mit dem Inhalt "0000000Hallo0000000wie00000gehts0000". In der Datenbank wird dann mit der Spezifikation festgelegt die sagt welchen Teil der Zeile ich importieren will also nur "Hallo" "wie" und "gehts" und in welches Feld das ganze gepackt werden soll. Mit einem VBA Makro importiert Access dann den Inhalt der Datei also das "Hallo" "wie" gehts" in eine Tabelle.
  Sieht mit dem VBA Makro so aus:
  
  Code: (dl )
  
  DoCmd.TransferText acImportDelim, "Name der Importspezifikation", "Name der Tabelle", ""
  
  @GwenDragon:
  Ja, ODBC ist möglich und es soll unter Windows laufen!
  
  Danke für die schnellen Antworten :-)
  - +4 replies
  - renee
    
    2010-02-07 15:30
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Wenn der Import dann über ein VBA-Makro gemacht werden soll, dann musst Du Access richtig "fernsteuern". Da bietet sich das Modul Win32::OLE an.
    
    Bei Perlmonks gab es mal einen Thread mit ähnlichem Ziel: http://www.perlmonks.org/?node_id=715473
    
    Noch ein Link zum Thema Win32::OLE und Access:
    http://www.justskins.com/forums/microsoft-access-a...
    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/
    - +3 replies
    - Funnybone
      
      2010-02-09 08:14
      
      User since
      2010-02-07
      8 Artikel
      BenutzerIn
      
      Okay habe jetzt was geschrieben, was ansich funktioniert:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      use strict; use warnings; use Win32::OLE; my $access; my $datei = "D:\\TEST\test.accdb"; $access = Win32::OLE->GetActiveObject('Access.Application'); $access->OpenCurrentDatabase($datei); $access->{DoCmd}->RunMacro("Import");
      
      Das Problem ist, dass das nur funktioniert wenn die Datenbank bereits offen ist - wie schreibe ich denn das sich die Datenbank öffnet und schließt anstatt das sie geöffnet sein muss?
      - +2 replies
      - renee
        
        2010-02-09 09:28
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Mach mal
        
        Code (perl): (dl )
        
        $access = Win32::OLE->new('Access.Application');
        
        statt
        
        Code (perl): (dl )
        
        $access = Win32::OLE->GetActiveObject('Access.Application');
        
        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/
        
        Funnybone
        
        2010-02-09 09:33
        
        User since
        2010-02-07
        8 Artikel
        BenutzerIn
        
        Ah, perfekt funktioniert!
- +11 replies
- Funnybone
  
  2010-02-09 10:29
  
  User since
  2010-02-07
  8 Artikel
  BenutzerIn
  
  Könnte ich mit win:32 ole zB auch sagen, dass Access eine Abfrage drucken soll?
  - +10 replies
  - renee
    
    2010-02-09 10:41
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Ja, mit Win32::OLE kann man auf alle Funktionalitäten der Anwendung zugreifen. Probier mal, Deine Aktionen mit dem Makrorekorder aufzunehmen. Und poste dann den VB-Code hier...
    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/
    - +9 replies
    - Funnybone
      
      2010-02-09 11:19
      
      User since
      2010-02-07
      8 Artikel
      BenutzerIn
      
      Habe das jetzt einfach so gemacht:
      
      Quote
      $access->{ActivePrinter} = "FreePDF XP";
      
      $access->{DoCmd}->OpenQuery("Abfrage_1");
      $access->{DoCmd}->Printout;
      
      mit ActivePrinter wollte ich den Drucker festlegen den das Programm benutzt, leider nimmt er trotzdem nicht FreePDF sondern den normalen hier eingestellten Drucker :-(
      
      Bin iwie ganz begeistert von Perl, ist ja echt cool was man so alles damit machen kann!
      - +8 replies
      - renee
        
        2010-02-09 11:48
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Bin mir jetzt nicht ganz sicher (kann es im Moment nicht testen), aber mach den Printout-Aufruf mal so:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        $access->{DoCmd}->Printout( { ActivePrinter => "FreePDF XP", }, );
        
        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/
        
        +7 replies
        
        Funnybone
        
        2010-02-09 13:05
        
        User since
        2010-02-07
        8 Artikel
        BenutzerIn
        
        Funktioniert leider nicht. Er gibt zwar keinen Fehler aus, gedruckt wird aber auch nichts.
        Ansich funktioniert das Ganze übrigens wenn ich FreePDF XP als Standarddrucker eingerichtet habe - aber ich möchte den PDF Drucker nur für die Access Datei benutzen nicht immer als Standard anhaben.
        
        +4 replies
        
        renee
        
        2010-02-09 13:13
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Dann kann ich auch nur raten...
        
        Ist der Name, den Du angegeben hast auch der Name wie er in der Systemsteuerung eingetragen ist?
        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/
        
        +3 replies
        
        Gast Funnybone
        
        2010-02-09 13:22
        
        Ja da heißt er auch so. Hat Perl vlt Probleme mit dem Leerzeichen?
        
        +2 replies
        
        pktm
        
        2010-02-09 13:48
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Mh, probiers mal aus. Kannst du den Drucker so umbenennen, dass er keine Leerzeichen mehr im Namen hat?
        http://www.intergastro-service.de (mein erstes CMS :) )
        
        Funnybone
        
        2010-02-09 13:55
        
        User since
        2010-02-07
        8 Artikel
        BenutzerIn
        
        Ja leider keine Veränderung
        
        +2 replies
        
        GwenDragon
        
        2010-02-09 14:07
        
        User since
        2005-01-17
        14562 Artikel
        Admin1
        
        Was wird denn im Fehlerfall angezeigt, wenn du sowas als Code nimmst:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        $access->{DoCmd}->Printout( { ActivePrinter => "FreePDF XP", }, ) or die Win32::OLE->LastError();
        
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        Funnybone
        
        2010-02-09 14:32
        
        User since
        2010-02-07
        8 Artikel
        BenutzerIn
        
        Code: (dl )
        
        Win32::OLE(0.1709) error 0x80020006: "Unbekannter Name" "ActivePrinter" in GetIDsOfNames for "Printout" at C:\Data\user\Desktop\druck.pl line 12.
        
        Bezieht sich unbekannter Name auf den Drucker, oder auf "ActivePrinter"?
        Wenns sich auf den Drucker bezieht ist es seltsam, denn der Name stimmt 1:1 überein..

View all threads created 2010-02-07 14:38.