Opened by lolipop 999 at 2006-12-03 10:38
User since
2006-04-07
150 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-07
150 Artikel
BenutzerIn
Hallo
Habe es jetzt ein bischen anders gemacht
und zwar über ein 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
und dieses ist für die DB:
Nur leider funktioniert das ganze nicht.
ich komm nicht mal über das 1 Formular drüber
danke für die Hilfe
lolipop 999
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ü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ü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