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

CGI+HTML+DB durchsuchen+TXT generieren (Seite 5)



<< |< 1 2 3 4 5 6 7 8 9 >| >> 85 Einträge, 9 Seiten
pq
 2006-12-14 11:11
#9177 #9177
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
[quote=lolipop 999,12.12.2006, 19:31]
Code: (dl )
1
2
3
4
  my $sqlStatement = qq~SELECT Tabelle1.Kundennummer, Tabelle1.Name,
    Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 USING(Kundennummer)

  my $sth = &FireSql($dbh, $sqlStatement);
[/quote]
bist du sicher, dass du nicht was anderes als programmieren willst?
und besorg dir mal einen vernuenftigen editor, mit dem auch *du*
schnell siehst, dass das print-statement hier nicht abgeschlossen ist.
vielleicht buchst du einfach nen freelancer, der dir das programmiert,
was du moechtest? dann kannst du deine zeit vielleicht sinnvoller nutzen.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
pq
 2006-12-14 11:13
#9178 #9178
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
[quote=lolipop 999,13.12.2006, 18:26]aber ich weiß nicht wie ich hier eine else schleife mache[/quote]
es gibt keine "else schleife", genausowenig wie es if-schleifen gibt.
man hoert das aber durchaus oefter. gibt es da irgendein buch, das
jeder schueler lesen muss, wo das drinsteht?
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
lolipop 999
 2006-12-14 20:29
#9179 #9179
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Tut mir leid das ich das alles nicht ganz checke

kann mir aber wer sagen wie ich noch diesen else zweig dazu machen kann

danke für die Hilfe lolipop 999
renee
 2006-12-14 20:49
#9180 #9180
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
#! f:/Perl/bin/perl

use strict;
use CGI qw(:standard);
use DBI;
use CGI::Carp qw/fatalsToBrowser/;

my $dbh = DBI->connect('DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb); dbq=Kunden.mdb') or die $DBI::errstr;

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

print $cgi->header();

if   ( exists $params{suchanfrage} ) {   &Suche    ($cgi, \%params)  }
elsif( exists $params{eintrag}     ) {   &Eintragen($cgi, \%params)  }
else{
    print 'Ich weiß nicht, was ich machen soll';
}
                               

print $cgi->end_html();

# ------------------------------------------------------------

sub Suche {
 my ($cgi, $params) = @_;



   $cgi->start_html('Antwort');

   my $sqlStatement = qq~SELECT Tabelle1.Kundennummer, Tabelle1.Name,
    Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 USING(Kundennummer)~;

     my $sth = &FireSql($dbh, $sqlStatement);

 if ($sth->rows < 1) {
     print $cgi->p("Keine Daten gefunden");
     return;
 } # if

 print qq~
<center>
<h1>Suchergebnis:</h1>
<hr />
<table border="2">
<tr>
 <td width="200"><b>Kundennummer:</b></td>
 <td width="200"><b>Adresse:</b></td>
 <td width="200"><b>Name:</b></td>
 <td width="200"><b>Telefonnummer:</b></td>
 <td width="200"><b>Rechnungsbetrag:</b></td>
</tr>\n~;

 while( my @data = $sth->fetchrow() ) {
     printf qq~
<tr>
 <td><b>%s</b></td>
 <td><b>%s</b></td>
 <td><b>%s</b></td>
 <td><b>%s</b></td>
</tr>\n~,
   @data[0..3];

 } # while
} # Suche
# ------------------------------------------------------------
sub Eintragen {
    print 'Ich will was eintragen';
} # Eintragen
# ------------------------------------------------------------

# ------------------------------------------------------------
sub FireSql {
    my ($dbh, $sqlStatement, @values) = @_;

    my $sth = $dbh->prepare($sqlStatement)
            or die "Error: couldn't prepare sql: $DBI::errstr\n$sqlStatement\n";

    $sth->execute(@values)
          or die "Error: couldn't execute sql: $DBI::errstr\n$sqlStatement\n";

    return ($sth);
} # FireSql
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/
lolipop 999
 2006-12-14 21:08
#9181 #9181
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
so jetzt bring er mir das

Ich weiß nicht, was ich machen soll

leider nur mehr nicht

danke für die Hilfe

lolipop 999
topeg
 2006-12-14 22:35
#9182 #9182
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Den Parametter "suchanfrage" oder "eintrag" an des script übergeben?
Über den Browser so ( bitte den Pfad anpassen! ):
Code: (dl )
http://server/cgi-bin/scriptname.pl?suchanfrage=1
\n\n

<!--EDIT|topeg|1166128591-->
renee
 2006-12-14 23:42
#9183 #9183
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Na, dann solltest Du jetzt wissen, warum vorher keine Ausgabe im Browser war...

Wenn keine Parameter gesetzt sind, dann werden die Bedingungen nie war...

Du solltest Dir erstmal Grundlagen des Programmierens aneignen!
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/
lolipop 999
 2006-12-16 09:44
#9184 #9184
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Hallo

Danke für die Hilfe

Jetzt bekomme ich folgenden error:

Error: couldn't prepare sql: [Microsoft][ODBC Microsoft Access Driver] Syntaxfehler in FROM-Klausel. (SQL-42000)(DBD: st_prepare/SQLPrepare err=-1)
SELECT Tabelle1.Kundennummer, Tabelle1.Name,
Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 USING(Kundennummer)

danke für die Hilfe

lolipop 999
lolipop 999
 2006-12-16 10:46
#9185 #9185
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Hallo

Habe es jetzt ein bischen anders gemacht

und zwar über ein html:

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
<HTML>
    <HEAD>
    <TITLE>Eingabeformular</TITLE>
    </HEAD>

<BODY>
<H1><CENTER>Rechnung</CENTER></H1>

<FORM Action="f:/Apache2/cgi-bin/suche.pl" Method="post">
<HR>
Geben Sie bitte <B>beide</B> Suchbegriffe ein:
    <TABLE>
        <TR>
            <TD>name:</TD>
            <TD><INPUT TYPE="text" name="name"></TD>
        </TR>
        <TR>
            <TD>kundennummer:</TD>
            <TD><INPUT TYPE="text" name="kundennummer"></TD>
        </TR>
    </TABLE>
    
<HR>
<INPUT TYPE="submit" name="suchanfrage" value="Suche starten">
<INPUT TYPE="reset" value="Zur&uuml;cksetzen">
<HR>
<P>Wenn Sie einen neuen Datensatz in die Datenbank<BR>
eintragen wollen, klicken Sie bitte <A HREF="formular2.html">hier.</A>
</P>

</FORM>
</BODY>
</HTML>


Mit diesem HTML kann man den eintrag suchen in DB suchen

da kommt der Fehler Browser kann F nicht ausführen

Mit diesem code kann man einen neuen eintrag in die DB machen

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
38
<HTML>
    <HEAD>
    <TITLE>Eingabeformular</TITLE>
    </HEAD>

<BODY>
<H1><CENTER>Neuer Datensatz</CENTER></H1>

<FORM Action="/cgi-bin/suche.pl" Method="post">
<HR>
Tragen Sie die neuen Daten ein (bitte alle Felder ausfüllen):
<TABLE>
    <TR>
        <TD>Kundennummer:</TD>
        <TD><INPUT TYPE="text" name="kundennummer"></TD>
    </TR>
    <TR>
        <TD>Adresse:</TD>
        <TD><INPUT TYPE="text" name="adresse"></TD>
    </TR>
    <TR>
        <TD>Name:</TD>
        <TD><INPUT TYPE="text" name="name"></TD>
    </TR>
    <TR>
        <TD>Telefonnummer:</TD>
        <TD><INPUT TYPE="text" name="telefonnummer"></TD>
    </TR>
</TABLE>
<HR>
<INPUT TYPE="submit" name="eintrag" value="Datensatz eintragen">
<INPUT TYPE="reset" value="Zur&uuml;cksetzen">
<HR>
<P>Zur <A HREF="formular1.html">Suchabfrage.</A>
</P>
</FORM>
</BODY>
</HTML>


und dieses ist für die DB:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
#!f:/Perl/bin/perl -w

use strict;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;

my $DBH = DBI->connect('DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb); dbq=Kunden.mdb') or die $DBI::errstr;
my $STH;
my $CGI;
my $antwort;

$CGI = new CGI();




### Suche oder Eintrag ###

if ($CGI->param("suchanfrage")){
suche($CGI, $DBH, $STH);
}
elsif($CGI->param("eintrag")){
eintragen($CGI, $DBH, $STH);
}


### Start Subroutine Suche ###

sub suche{

my $nachname = param("name");
my $abteilung = param("kundennummer");


$STH = $DBH->prepare("SELECT * FROM Kunden Tabelle1.Kundennummer, Tabelle1.Name,Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 USING(Kundennummer)")
                or die "Konnte SQL-Statement nicht bereitstellen:$!";


$STH->execute()
            or die "Ausfuehren nicht moeglich:$!";


### Treffer ###

if ($STH->rows != 0){

print <<HERE_TEXT1;
Content-type:text/html

<HTML>
<HEAD>
<TITLE> Antwort </TITLE>
</HEAD>

<BODY>
<CENTER>
<H1>Suchergebnis:</H1>
<HR>
<TABLE BORDER>
<TR>
<td width="200"><b>Kundennummer:</b></td>
<td width="200"><b>Adresse:</b></td>
<td width="200"><b>Name:</b></td>
<td width="200"><b>Telefonnummer:</b></td>
<td width="200"><b>Rechnungsbetrag:</b></td>
</TR>

HERE_TEXT1




my @data;

while (@data = $STH->fetchrow_array()) {
    my $kundennummer = $data[0];
    my $adresse = $data[1];
    my $name = $data[2];
    my $telefonnummer = $data[3];
    my $Rechnungsbetrag = $data[4];            



print qq§<TR>\n<TD><B>$kundennummer</B></TD>\n<TD>$adresse</TD>\n<TD>$name</TD>\n<TD><B>$telefonnummer</B></TD>\n<TD>$rechnungsbetrag</TD>\n</TR>\n§;



}

print qq§</TABLE>\n<P><A HREF =\"../formular1.html\">Neue Suche!</A></P>\n<HR>\n
        </CENTER>\n</BODY>\n</HTML>§;


}

### Keine Treffer ###

else {

print <<HERE_TEXT2;
Content-type:text/html

<HTML>
<HEAD>
<TITLE>Antwort</TITLE>
</HEAD>
<BODY>
<P>Leider brachte die Suche nach '$name' keine Ergebnisse!</P>
<HR>
<P><A HREF =\"../formular1.html\">Neue Suche!</A></P>
</BODY>
</HTML>

HERE_TEXT2
}
$STH->finish();
$DBH->disconnect;
}                
### Ende Subroutine Suche ###

### Start Subroutine Eintragen ###

sub eintragen{

my ($kundennummer, $adresse, $name, $telefonnummer, $rechnungsbetrag)= (param('kundennummer'), param('adresse'), param('name'),param('telefonnummer'), param('rechnungsbetrag'));


$STH = $DBH->do("INSERT INTO Kunden VALUES ('$kundennummer','$adresse','$name','$telefonnummer','rechnungsbetrag')")
                or die "Konnte SQL-Statement nicht bereitstellen:$!";


print <<HERE_TEXT3;
Content-type:text/html

<HTML>
<HEAD>
<TITLE> Antwort </TITLE>
</HEAD>

<BODY>
<H4>Datenbankeintrag:</H4>
<HR>
<P><B>$kundennummer</B>, $adresse, $name, $telefonnummer, $rechnungsbetrag</P>
<HR>
<P><A HREF =\"../formular2.html\">Neuer Eintrag!</A></P>
<HR>
</BODY>
</HEAD>

HERE_TEXT3

$DBH->disconnect;

}     
#Ende Subroutine Eintragen


Nur leider funktioniert das ganze nicht.

ich komm nicht mal über das 1 Formular drüber

danke für die Hilfe

lolipop 999
renee
 2006-12-16 12:43
#9186 #9186
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=lolipop 999,16.12.2006, 08:44]Hallo

Danke für die Hilfe

Jetzt bekomme ich folgenden error:

Error: couldn't prepare sql: [Microsoft][ODBC Microsoft Access Driver] Syntaxfehler in FROM-Klausel. (SQL-42000)(DBD: st_prepare/SQLPrepare err=-1)
SELECT Tabelle1.Kundennummer, Tabelle1.Name,
Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 USING(Kundennummer)

danke für die Hilfe

lolipop 999[/quote]
Dann schreib das SQL-Statement mal so:
[sql]SELECT Tabelle1.Kundennummer, Tabelle1.Name,
Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer[/sql]
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 3 4 5 6 7 8 9 >| >> 85 Einträge, 9 Seiten



View all threads created 2006-12-03 10:38.