Pomysl troche przeciez idx_tw to skrot myslowy
| mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
| Działanie na dużych bazach https://forum.mix-soft.pl/viewtopic.php?f=15&t=1215 |
Strona 1 z 1 |
| Autor: | edward [ 2009-09-22, 12:57 ] |
| Tytuł: | Działanie na dużych bazach |
Witam, Mam następujący problem w Handel Premium. Muszę przeglądać kilka baz (m.in SM, TW, BP) i zapisywać niektóre dane do pliku. Problem w tym że te bazy są bardzo duże np. jedna z nich ma ok. 100MB i nie wiem jak sobie poradzić żeby się nie zawieszał. Do przeglądania baz używam pętli while. Na poczatku ustawiam int bufor = tw.getrec(FS) a pozniej w kazdym przebiegu petli bufor = tw.getrec(NX) i w taki sposob analogicznie przegladam cale te bazy (niektore zagniezdzone w innych) i potrzebne dane zapisuje sobie do tablicy. Dla wersji demo z malymi bazami to dziala jednak zawiesza sie w przypadku wspomnianych duzych baz. Jak mozna zapobiec temu albo jak zablokowac dzialanie raportu gdy nastapi jakis blad (aktualnie mam tylko obsluge bledow baz baseError (nrBazy, 4))? Z góry dziękuję za pomoc. Pozdrawiam |
|
| Autor: | rafal [ 2009-09-22, 14:07 ] |
| Tytuł: | |
Każdy raport można przerwać wciskając Esc na klawiaturze. Jeżeli nie możesz w ten sposób przerwać swojego raportu zastanowiłbym się nad tym czy dobrze go napisałeś. Pokaż go to coś poradzimy. Możesz jeszcze się zastanowić czy użycie FS i NX jest konieczne czy tez nie mógłbyś wesprzeć się jakimś kluczem. |
|
| Autor: | edward [ 2009-09-22, 14:09 ] |
| Tytuł: | |
Esc nie podziala bo sie totalnie zawiesza Symfonia. W takim razie jeszcze sam sprobuje sobie poradzic jesli nie podolam to wkleje kod wieczorem lub jutro rano. |
|
| Autor: | edward [ 2009-09-23, 12:11 ] |
| Tytuł: | |
Nadal zawiesza mi sie Symfonia dla duzych baz danych. Wklejam kod: Kod: #define fsoForAppending 8 dispatch fso = "Scripting.FileSystemObject" dispatch f long licz long ile Record defr String dana1[10] String dana2[10] Float dana3 EndRec Int nrBazy=Open "sciezka\\51tw.dat" For Base "TW" BaseError ("sciezka\\51tw.dat", 4) ile = GetRecordCount(nrBazy) Close nrBazy Close nrBazy2 Close nrBazy3 defr Tbl(ile) limit 20000 baseSM sm sm.SetKey("id") sm.SetKeySeg("id",1) baseBP bp bp.SetKey("id") bp.SetKeySeg("id",1) baseTW tw tw.SetKey("id") tw.SetKeySeg("id",1) long err1 = bp.getrec(FS) long err2 = sm.getrec(FS) long err3 = tw.getrec(FS) licz = 1 while err3 == 0 && licz < ile if tw.getfield("costam") == "10" then err2 = sm.getrec(FS) while err2 == 0 if sm.getfield("costam2") == 100 && tw.getfield("id") == sm.getfield("idtw") then err1 = bp.getrec(FS) while err1 == 0 if sm.getfield("idtw") == bp.getfield("idtw") then //dopisywanie do tabeli potrzebnych danych endif err1 = bp.getrec(NX) wend endif err2 = sm.getrec(NX) wend endif licz += 1 err3 = tw.getrec(NX) wend // zapisanie danych z tabeli do pliku przy czym bazy TW i SM maja ok 15MB a baza BP ponad 100MB help |
|
| Autor: | Jarek75 [ 2009-09-23, 14:13 ] |
| Tytuł: | |
Jak już kiedyś pisałem, z coma należy pod Symfonią korzystać tylko wtedy, kiedy nie da się osiągnąć porządanego efektu innymi sposobami. |
|
| Autor: | barnie [ 2009-09-23, 21:34 ] |
| Tytuł: | |
widać gołym okiem że nieźle się w tym kodzie zapętliłeś. latasz bo tych tabelach niepotrzebnie po kilka (tysięcy) razy od początku do końca. no i ciekawe po co Ci ta baza BP? zacznij używać indeksów. |
|
| Autor: | edward [ 2009-09-24, 08:23 ] |
| Tytuł: | |
mniej wiecej idea jest taka zeby znalezc w bazie BP zamowienia na towary ktore spelniaja pewne warunki tzn. dla ktorych stan magazynowy np = 10 i jeszcze w bazie TW dany towar musi spelniac jakis warunek - stad to zapetlanie. co dokladniej masz na mysli z tymi indeksami? Jak inaczej mam wyciagnac te wszystkie zamowienia spelniajace pewne zalozenia(ktore sa w innych powiazanych bazach)? |
|
| Autor: | Jarek75 [ 2009-09-24, 08:52 ] |
| Tytuł: | |
Trudno tutaj coś poradzić. Barnie oczywiście ma rację. Jesteś początkującym programistą, a tutaj dają rady specyficzne dla Symfonii. Poczytaj sobie jakąś książkę o bazach danych, potem helpa, postudiuj przykłady itp. Indeksy, to komendy SetKey, SetKeySeg, GetRec(GE). Multum przykładów również na tym forum. |
|
| Autor: | edward [ 2009-09-24, 09:37 ] |
| Tytuł: | |
moim zdaniem indeksy nie rozwiaza problemu. Podobny odrobine problem jest tutaj: http://forum.mojasymfonia.pl/viewtopic.php?t=910 odpowiedz rafala mowi o tym ze nie da sie inaczej przejrzec bazy jak rekord po rekordzie w celu wyszukania potrzebnych wartosci |
|
| Autor: | rafal [ 2009-09-24, 13:10 ] |
| Tytuł: | |
Jeden z pomysłów to: 1. Wyszukaj towary w bazie SM które spełniają Twój warunek i wpisz ich id do zmiennej typu MapValue. Możesz lecieść FS, NX lub z użyciem klucza idx_kod_stnz (pod kątem ilości) 2. Przeszukaj bazę BP za pomocą klucza idx_tw porównuj to co znalazłeś w BP z zawartością MapValue dzięki temu lecisz po bazach tylko jeden raz 3. W miedzyczasie czytasz bazę TW za pomocą klucza idx_id i EQ I już. Odczujesz znaczne przyśpieszenie. Jakieś 1000 razy :) |
|
| Autor: | edward [ 2009-09-24, 13:57 ] |
| Tytuł: | |
dzieki, wyprobuje Twoja metode. Napisz mi tylko jeszcze czym jest to idx_tw. W bazie nie ma takiego pola. |
|
| Autor: | wrob [ 2009-09-24, 14:41 ] |
| Tytuł: | |
Pomysl troche przeciez idx_tw to skrot myslowy
|
|
| Autor: | rafal [ 2009-09-24, 19:10 ] |
| Tytuł: | |
przykład użycia klucza idx_tw w bazie BP Wypisuje wszystkie rekordy z bazy BP zawierające szukany towar. Kod: baseBP bp bp.SetKey("tw") bpSetKeySeg("idtw", 65536) err = bp.GetRec( GE ) while err == 0 if bp.GetField("idtw") != 65536 then exit print using "Pozycja o ID = %l zawiera szukany towar."+lf, bp.GetField("id") err = bp.GetRec( NX ) wend |
|
| Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|