Entwickler-Ecke :: Thema anzeigen - mySQL Datensatz löschen/ändern

Nikola - Di 07.01.03 18:16

Hi,
Gestern habe ich die Table neu aufgebaut und dann neu mit Daten gefüllt,
da nach eine Zeile gelöscht die sich nicht Ändern lies da nach ging's wider :P jedoch nicht lange :cry: alle Benutzer werden gleichnamig angemeldet Einstellung der Anmeldung: Host: 192.168.100.4, Port: 3306, DatabaseName : BDEDATEN, username: root das ganze unter
Windows 2000 Server, 70 user
Aufbau der Table:

Quelltext

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:

  Statement:='';
  Query1.Close;
  Query1.SQL.Clear;
  Statement := 'CREATE TABLE L_Lager2  ( Legierung           CHAR(15) NOT NULL, ' +
                                       'Aussen               FLOAT NOT NULL, ' +
                                       'Wand                 FLOAT NOT NULL, ' +
                                       'Laenge_von           INTEGER NOT NULL, ' +
                                       'Laenge_bis           INTEGER NOT NULL, ' +
                                       'Nummer               INTEGER NOT NULL, ' +
                                       'Werk                 CHAR(1) NOT NULL, ' +
                                       'ausWerk              CHAR(1) default NULL, ' +
                                       'ausLaufkarte         INTEGER default NULL, ' +
                                       'Lager                CHAR(1) default NULL, ' +
                                       'LagerOrt             CHAR(7) default NULL, ' +
                                       'Festigkeit           CHAR(2) default NULL, ' +
                                       'LieferDatum          DATE default NULL, ' +
                                       'LieferantNummer      INTEGER default NULL, ' +
                                       'ChargeNummer         CHAR(35) default NULL, ' +
                                       'MengeKg              INTEGER default NULL, ' +
                                       'RestMenge            INTEGER default NULL, ' +
                                       'ChargeEigenschaftOK  CHAR(11) default NULL, ' +
                                       'ChargeNummer_OK      CHAR(2) default NULL, ' +
                                       'KontrollDatum        DATE default NULL, ' +
                                       'BenutzerName         CHAR(20) default NULL, ' +
                                       'KorekturDatum        DATE default NULL, ' +
                                       'Kontroliert_von_user CHAR(25) default NULL, ' +
                                       'Korektur_von_user    CHAR(25) default NULL, ' +
                                       'Al_   CHAR(8) default NULL, ' +
                                       'As_   CHAR(8) default NULL, ' +
                                       'C_    CHAR(8) default NULL, ' +
                                       'Co_   CHAR(8) default NULL, ' +
                                       'Cr_   CHAR(8) default NULL, ' +
                                       'Cu_   CHAR(8) default NULL, ' +
                                       'Fe_   CHAR(8) default NULL, ' +
                                       'Mn_   CHAR(8) default NULL, ' +
                                       'Zn_   CHAR(8) default NULL, ' +
                                       'Ni_   CHAR(8) default NULL, ' +
                                       'Sn_   CHAR(8) default NULL, ' +
                                       'S_    CHAR(8) default NULL, ' +
                                       'P_    CHAR(8) default NULL, ' +
                                       'Si_   CHAR(8) default NULL, ' +
                                       'Pb_   CHAR(8) default NULL, ' +
                                       'Zr_   CHAR(8) default NULL, ' +
                                       'PRIMARY KEY (Legierung,Aussen,Wand,Laenge_von,Laenge_bis,Nummer,Werk), ' +
                                       'KEY sNummer(Nummer,Werk),'+
                                       'KEY mNummer(Nummer),'+
                                       'KEY lager(Legierung,Aussen,Wand,Laenge_von,Laenge_bis,Werk)) TYPE=MyISAM';
  Query1.SQL.Add(Statement);
  Query1.ExecSQL;

und hier meine äderung an der table

Quelltext

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:

      // im L_LAGER.DB Menge von Charge 1 aus RestMenge abzihen //
      if (StrToIntDef(Label21.Caption,0)>0) then
      begin
        if L_Lager.FindKey([Label13.Caption,Label3.Caption,Label5.Caption,
        Label39.Caption,Label40.Caption,Label21.Caption,msWerk]) then
        begin
          L_Lager.Edit;
          GewichtCopy:=L_Lager.FieldByName('RestMenge').AsInteger;
          L_Lager.FieldByName('RestMenge').AsInteger:=GewichtCopy-CopyCharge1Gewicht;
          try
            L_Lager.Post;
          except
            on E: EInvalidOperation do
            begin
              MessageDlg(E.Message, mtInformation, [mbOK], 0);
              raise;
            end;
          end;
        end;
      end;
      // im L_LAGER.DB Menge von Charge 2 aus RestMenge abzihen //
      if (StrToIntDef(Label22.Caption,0)>0) then
      begin
        if L_Lager.FindKey([Label13.Caption,Label3.Caption,Label5.Caption,
        Label39.Caption,Label40.Caption,Label22.Caption,msWerk]) then
        begin
          L_Lager.Edit;
          GewichtCopy:=L_Lager.FieldByName('RestMenge').AsInteger;
          L_Lager.FieldByName('RestMenge').AsInteger:=GewichtCopy-CopyCharge2Gewicht;
          try
            L_Lager.Post;
          except
            on E: EInvalidOperation do
            begin
              MessageDlg(E.Message, mtInformation, [mbOK], 0);
              raise;{ nochmaliges Auslösen der Exception }
            end;
          end;
        end;
      end;
      // im L_LAGER.DB Menge von Charge 3 aus RestMenge abzihen //
      if (StrToIntDef(Label23.Caption,0)>0) then
      begin
        if L_Lager.FindKey([Label13.Caption,Label3.Caption,Label5.Caption,
        Label39.Caption,Label40.Caption,Label23.Caption,msWerk]) then
        begin
          L_Lager.Edit;
          GewichtCopy:=L_Lager.FieldByName('RestMenge').AsInteger;
          L_Lager.FieldByName('RestMenge').AsInteger:=GewichtCopy-CopyCharge3Gewicht;
          try
            L_Lager.Post;
          except
            on E: EInvalidOperation do
            begin
              MessageDlg(E.Message, mtInformation, [mbOK], 0);
              raise;{ nochmaliges Auslösen der Exception }
            end;
          end;
        end;
      end;

kann es sein das nur eine Zeile gesperrt ist, und wie krieg ich es raus
mein Problem ist hauptsächlich das ich keine Erfahrung mit mySQL habe
da das ganze prog in paradox gewesen ist hat alles func. Die anderen
48 Tabellen habe ich diese Probleme jedoch nicht
mfg

Nikola

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!