Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2012-07-22 09:46:51 ЛС | профиль | цитата
filyaxxxcom,
code_28553.txt
или даже так:
Add(EditMultiEx,15808322,24,52)
{
WorkCount=#60:doGreateTables=Создать новую базу данных (при необходимости)|
Width=265
Height=207
VOffset=46
link(doGreateTables,13830266:doEvent1,[])
}
Add(Message,3443707,180,112)
{
Caption="Error SQLite!"
}
Add(DSC_Query,2615330,105,217)
{
@Hint=#27:проверка существования базы|
SQL="SELECT COUNT (*) FROM log1"
DSManager="parent.main_SQLite"
AddHint(-22,-22,174,13,@Hint)
}
Add(DSC_Exec,5380334,83,63)
{
@Hint=#25:создание таблиц log1 log2|
SQL="BEGIN;

CREATE TABLE IF NOT EXISTS log1 (str TEXT, str_full TEXT);
CREATE TABLE IF NOT EXISTS log2 (str TEXT, str_full TEXT);
DELETE FROM log1;
DELETE FROM log2;

COMMIT;"
DSManager="parent.main_SQLite"
link(onError,13168367:doWork1,[(151,76)])
AddHint(41,-7,147,13,@Hint)
}
Add(Hub,13830266,42,98)
{
link(onEvent1,5380334:doExec,[(69,104)(69,69)])
link(onEvent2,730742:doExec,[])
}
Add(HubEx,13168367,147,112)
{
link(onEvent,3443707:doMessage,[])
}
Add(DSC_Exec,10449706,63,217)
{
SQL="BEGIN;
DELETE FROM log1;
DELETE FROM log2;
COMMIT;"
DSManager="parent.main_SQLite"
}
Add(DSC_Exec,730742,84,105)
{
SQL="VACUUM"
DSManager="parent.main_SQLite"
link(onError,13168367:doWork2,[])
}
Но это мелочи.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_28553.txt [1.6KB] [425]
Голосовали:filyaxxxcom