Opened by lolipop 999 at 2006-04-24 17:53
User since
2006-04-07
150 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-07
150 Artikel
BenutzerIn
Hallo
Habe jetzt ein script zusammengestellt. Vielleicht könnt ihr mir jetzt besser weiterhelfen mit meinem Problem.
irgendwie funktioniert das mit dem code einfügen bei mir nicht
mfg
lolipop
Edit Dubu: Code-Tags spendiert. (Wenn du es über die Buttons machst: Erst auf "Code" klicken, dann Code eingeben, dann nochmal auf "Code*" klicken.)\n\n
<!--EDIT|Dubu|1146304419-->
Habe jetzt ein script zusammengestellt. Vielleicht könnt ihr mir jetzt besser weiterhelfen mit meinem Problem.
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
#!d:/Programme/Perl/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $DBH;
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("nachname");
my $abteilung = param("abt");
$DBH = DBI->connect("DBI:CSV:Kunden.mdb=c:/Programme/ApacheGroup/Apache/cgi-bin")
or die "Konnte keine Verbindung zur Datenbank herstellen:$!";
$STH = $DBH->prepare("SELECT Tabelle1.Kundennummer, Tabelle1.Name, Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle2 JOIN Tabelle1 WHERE Tabelle2.Kundennummer = Tabelle1.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[3];
print qq§<TR>\n<TD><B>$kundennummer</B></TD>\n<TD>$adrese</TD>\n<TD>$name</TD>\n<TD>$telefonnummer</TD>\n</TR>\n§;
</BODY>
</HEAD>
$DBH->disconnect;
}
irgendwie funktioniert das mit dem code einfügen bei mir nicht
mfg
lolipop
Edit Dubu: Code-Tags spendiert. (Wenn du es über die Buttons machst: Erst auf "Code" klicken, dann Code eingeben, dann nochmal auf "Code*" klicken.)\n\n
<!--EDIT|Dubu|1146304419-->