Opened by Ronaldl at 2003-09-20 10:04
User since
2003-09-09
28 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-09
28 Artikel
BenutzerIn
Ich lade den datensatz über eine suchroutine in ein Formular.
Dort ändre ich daten und übergebe eine artikelid. Diese kommt auch im "sub speichern" an. Aber abspeichern macht er nicht !! Hat da jemand eine Idee ??
Dort ändre ich daten und übergebe eine artikelid. Diese kommt auch im "sub speichern" an. Aber abspeichern macht er nicht !! Hat da jemand eine Idee ??
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
# ----------------------------------------------------------------------
sub anzeigen
{
my ($buch,$zu, $wo1) = @_;
my ($dbh, $sth, $ref, $anz);
$dbh = WebDB::connect();
$sth = $dbh->prepare ("SELECT ArtID, Reihenfolge, ArtNr, ArtGruppe, ArtNGruppe, ArtTitel, ArtText, ArtPreis, ArtMWSt, ArtRabatt, ArtEigenschaften, ArtBildklein, ArtBildgross FROM shop1_artikel_1 WHERE $wo1 LIKE '$buch' '$zu' ");
$sth->execute ();
while (my $ref = $sth->fetchrow_hashref ()){
my %hash = %{$ref};
print start_form (-action => url ()),
table (
Tr (
td ("ArtID:"),
td (textfield (-name => 'ArtIDA',
-size => 15,
-value => $hash{'ArtID'}))
),
Tr (
td ("ArtNr:"),
td (textfield (-name => "name",
-size => 15,
-value => $hash{'ArtNr'}))
),
Tr (
td ("ArtGruppe"),
td (textfield (-name => "name",
-size => 5,
-value => $hash{'ArtGruppe'}))
),
Tr (
td ("ArtNGruppe"),
td (textfield (-name => "name",
-size => 5,
-value => $hash{'ArtNGruppe'}))
),
Tr (
td ("ArtTitel:"),
td (textfield (-name => "name",
-size => 60,
-value => $hash{'ArtTitel'}))
),
Tr (
td ("ArtText:"),
td (textarea (-name => "name",
-cols => 60, -rows => 4,
-value => $hash{'ArtText'}))
),
Tr (
td ("ArtPreis:"),
td (textfield (-name => "name",
-size => 15,
-value => $hash{'ArtPreis'}))
),
Tr (
td ("ArtMWSt:"),
td (textfield (-name => "name",
-size => 15,
-value => $hash{'ArtMWSt'}))
),
Tr (
td ("ArtRabatt:"),
td (textfield (-name => "name",
-size => 15,
-value => $hash{'ArtRabatt'}))
),
Tr (
td ("ArtEigenschaften:"),
td (textfield (-name => "name",
-size => 15,
-value => $hash{'ArtEigenschaften'}))
),
Tr (
td ("ArtBildklein:"),
td (textfield (-name => "name",
-size => 25,
-value => $hash{'ArtBildklein'}))
),
Tr (
td ("ArtBildgross:"),
td (textfield (-name => "name",
-size => 25,
-value => $hash{'ArtBildgross'}))
),
),
br (),
submit (-name => "aktion", -value => "Speichern"),
" ",
submit (-name => "aktion", -value => "Daten Löschen"),
end_form ();
print p hr();
}
}
# ----------------------------------------------------------------------
sub speichern
{
my $dbh;
my $sth;
my $ref;
my ($IDA) = @_;
print $IDA; # hier kommt noch der Richtige wert an.
$dbh = WebDB::connect();
$dbh->do ("REPLACE INTO shop1_artikel_1 (Reihenfolge, ArtNr, ArtGruppe, ArtNGruppe, ArtTitel, ArtText, ArtPreis, ArtMWSt, ArtRabatt, ArtEigenschaften, ArtBildklein, ArtBildgross)"."VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", undef, param ("name"), param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"));
$sth = $dbh->prepare ( "SELECT * FROM shop1_artikel_1 WHERE ArtID = $IDA ");
$sth->execute ();
$ref = $sth->fetchrow_hashref ();
$sth->finish ();
$dbh->disconnect ();
}
#--------------------------------------------------------------------------
THX ,bis bald Ronald