"Numeric value out of range." (Sybase SQL Anywhere 5.5)

Tak mám tu hodiť 300 riadkov zdrojáku v Delphi (je to len čisto to, čo vkladá do databázy), tú databázovú procedúru a dátové typy jednotlivých stĺpcov (je ich 46) tabuľky, do ktorej to vkladám?

to dej na uloz.to v textovém souboru s příponou .txt

Tak už som to všetko dal na Problem.txt

Dal som tam celú procedúru Vklad, ktorú potom 2-krát využívam v programe. Dal som ju tam celú hlavne, aby ste sa mohli pozrieť na deklarácie premenných. Potom sa mrknite hlavne za poznámku // Pre Crystal Reports, pretože kód pred ňou bezproblémovo funguje a robí, čo má.

Inak procedúra frmZaklad.NacitanieSQL robí toto:

procedure TfrmZaklad.NacitanieSQL(Prikaz: String);
  begin
    with DataModule1.ADOQuery do begin
      SQL.Clear;
      SQL.Add(Prikaz);
      Active := true;
    end;
  end;

Ďalej procedúra frmZaklad.VykonanieSQL robí toto:

procedure TfrmZaklad.VykonanieSQL(Prikaz: String); 
  begin
    with DataModule1.ADOCommand do begin
      CommandText := Prikaz;
      Execute;
    end;
  end;

A nakoniec funkcia frmZaklad.BodkaNaCiarku robí toto:

function TfrmZaklad.BodkaNaCiarku(C: String): Currency;
  var
    i: Integer;
  begin
    for i := 1 to Length(C) do begin
      if (C[i] = '.') then C[i] := ',';
    end;
    BodkaNaCiarku := StrToCurr(C);
  end;

Môžete mi z toho zdrojáku poradiť? ...

A jsi si jisty, ze vsechny polozky pole Doby[] jsou naplnene? V tom cyklu je ruzne preskakujes.

Zjisti si aspon, co tam posilas. Prece neni problem odrokovat program a precist si ri tom hodnoty promennych, ktere ti jsou jako parametry.

Aha, díky. Ja som tam všade mal premennú i, potom som ten cyklus celý prepisoval a zamenil som aj to, čo som nemal. Idem vyskúšať.

Ak je problém vo volaní uloženej procedúry (a nie je k dispozícii nejaký profiler), tak by som na tvojom mieste postupoval nejako takto:

- Zmenil by som telo uloženej procedúry tak, aby nerobila vôbec nič (napríklad namiesto INSERT INTO t(c1,c2) VALUES (?,?) by som dal SELECT ? AS c1,? AS c2). Ak by to stále padalo, tak by som postupne odstraňoval parametre procedúry - až kým by to neprestalo padať.

- V prípade, že by to po zrušení tela procedúry začalo fungovať, tak by som postupne menil procedúru tak, aby namiesto parametrov vkladala nejaké konštanty, ktoré určite ide do tabuľky vložiť - až kým by to neprestalo padať.

Ďalší postup by závisel od dátového typu problémového parametra a hodnoty, s ktorou sa procedúra volá.

PS: Zdrojový kód som zatiaľ nepozeral.

Díky, idem skúsiť. Síce mi to zaberie množstvo času, ale lepšie ako hľadať na Googli niečo, čo mi vlastne vôbec nemusí pomôcť.

Tak problém je vyriešený. Díky všetkým, ale hlavne autorovi PSPadu, ktorý to s Delphi naozaj umí.