Thread Speichern geht nicht: Datensatz ändern - speichern geht nicht (32 answers)
Opened by Ronaldl at 2003-09-20 10:04

Ronaldl
 2003-09-21 13:16
#33617 #33617
User since
2003-09-09
28 Artikel
BenutzerIn
[Homepage] [default_avatar]
HAllo Format_c habe da ein Problem,
die daten kommen nicht an.
Hier mal der Relwante Code

Das Formular in dem Ich die DAzten ändere:
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
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();
}

}
# ----------------------------------------------------------------------


Der Aufruf von der Funktion Speichern:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
elsif ($aktion eq "speichern")
{         my $ArtIDA = param('ArtIDA');
          my $dat1 = param{'ArtNr'};
          my $dat2 = param{'ArtGruppe'};
          my $dat3 = param{'ArtNGruppe'};
          my $dat4 = param{'ArtTitel'};
          my $dat5 = param{'ArtText'};
          my $dat6 = param{'ArtPreis'};
          my $dat7 = param{'ArtMWSt'};
          my $dat8 = param{'ArtRabatt'};
          my $dat9 = param{'ArtEigenschaften'};
          my $dat10 = param{'ArtBildklein'};
          my $dat11 = param{'ArtBildgross'};
         speichern("$dat1","$dat2","$dat3","$dat4","$dat5","$dat6","$dat7","$dat8","$dat9","dat10","dat11","$ArtIDA");


Die Subroutine Speichern:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub  speichern
{
# Objekt erstellen falls noch nicht geschehen
my $cgi = CGI->new();
# Alle Parameter ins Hash %v
my %v = $cgi->Vars();
my $dbh;
my $sth;
my $ref;
my ($da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA) = @_;


$dbh = WebDB::connect();
$dbh->do ("UPDATE shop1_artikel_1 SET ArtNr ='$da1',ArtGruppe ='$da2',ArtNGruppe ='$da3', ArtTitel ='$da4',ArtText ='$da5',ArtPreis ='$da6',ArtMWSt ='$da7',ArtRabatt ='$da8',ArtEigenschaften ='$da9',ArtBildklein ='$da10',ArtBildgross ='$da11' WHERE ArtID = '$IDA'");

$dbh->disconnect ();
print "Der Datenstz mit der ArtikelID $IDA wurde gespeichert";
print "$da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA"; 
}
#--------------------------------------------------------------------------

Print gibt mir dann folgendes aus :
Der Datenstz mit der ArtikelID 33 wurde gespeichert,,,,,,,,,dat10,dat11,33

woran liegt das ??\n\n

<!--EDIT|Ronaldl|1064137490-->
THX ,bis bald Ronald

View full thread Speichern geht nicht: Datensatz ändern - speichern geht nicht