Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]901[/thread]

Tutorial / How-To für MySql-Daten Web Tool gesucht

Leser: 1


<< >> 2 Einträge, 1 Seite
rk-ger
 2007-03-10 13:12
#9738 #9738
User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]
Ich habe eine Mysql Datenbank mit 20 Feldern.
Nach 6 Feldern davon (allein oder zusammen) muss ich suchen.
Dass Suchergebnis soll alle 20 Felder anzeigen. Danach, in der selben Spalte, sollen zwei Buttons oder Links angezeigt werden. Der eine Link führt zu einer URL die aus Teilen der Datenbanktreffer zusammengebaut wird, der zweite Button soll die betreffende Zeile in einen speziellen Edit-Modus versetzen, bei dem 5 bestimmte Felder geändert und hinterher wieder abgespeichert werden können.

Kennt jemand ein Tutorial, ein How-To oder ein fertiges Modul für diese Art von Aufgabe? Ich stehe ein wenig unter Druck. Ich habe sowas noch nie gemacht und mein Chef will das am Mittwoch auf die Cebit mitnehmen. Jede Hilfe ist sehr willkommen.
renee
 2007-03-10 14:11
#9739 #9739
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ist aber sehr früh ;-)

Ein ganz einfaches Skript (ungetestet):

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use CGI;
use FindBin;
use HTML::Template::Compiled;

my $query = CGI->new();
my %params = $query->Vars();

unless($params{action}){
    $query->redirect("/formular.cgi");
}
else{
    my $results = do_query(%params);
    print $query->header();
    my $template = HTML::Template::Compiled->new(
            filename => $FindBin::Bin . '/results.tmpl',
    );
    $template->param(RESULTS => $results);
    print $template->output();
}

sub do_query{
    my (%params) = @_;

    my $dbh = DBI->connect('DBI:mysql:tabelle:host','user','passwd') or die $DBI::errstr;
  
    my $stmt = "SELECT * FROM tabelle WHERE Spalte1 = ? OR Spalte2 = ? OR Spalte3 = ? OR Spalte4 = ? OR Spalte5 = ? OR Spalte6 = ?";
    my $sth = $dbh->prepare($stmt) or die $dbh->errstr;
    $sth->execute( ($params{search}) x 6) or die $dbh->errstr;

    my $results = $sth->fetchall_hashref();
    return $results;
}


formular.html:
Code: (dl )
1
2
3
4
5
6
7
8
9
<html>
<body>
<form action="/cgi-bin/script.cgi" method="post">
  <input type="hidden" name="action" value="1">
  <input type="text" name="search">
  <input type="submit">
</form>
</body>
</html>


results.tmpl
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
<html>
<body>
  <table>
  <TMPL_LOOP NAME=RESULTS>
      <tr>
        <td><TMPL_VAR NAME=Spalte1></td>
        ...
        <td><TMPL_VAR NAME=Spalte20></td>
        <td><a href="<TMPL_VAR NAME=ZUSAMMENGEBAUTERLINK ESCAPE=HTML>">Link</a></td>
  </TMPL_LOOP>
  </table>
</body>
</html>



Das mal als Grundlage... Du musst halt Pfade und Spaltennamen noch anpassen...

Viel Spass!
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/
<< >> 2 Einträge, 1 Seite



View all threads created 2007-03-10 13:12.