Поиск максимального значения +1

← →
Шакал © (2007-05-31 15:59) [0]

Помогите плиз
Нужно в поле эдит вставить цифру на 1 больше максимальной столбце
бд ацесс
пробовал так
edit1.text:=dat.ADOQ.SQL.Add("select max (id) from kadry");
не выходит :(

← →
Desdechado © (2007-05-31 16:04) [1]

> пробовал так
А в песочнице совочком?

Хоть бы справку почитал, что ли, что делают эти методы.
И демок полно в "C:\Program Files\Borland\Delphi7\Demos\Db\"

← →
clickmaker © (2007-05-31 16:04) [2]

а в акцессе разве нету полей типа "счетчик" или autoincrement?

← →
Loginov Dmitry © (2007-05-31 16:08) [3]

> не выходит

тужся больше. Глядишь и выйдет )))

← →
Плохиш © (2007-05-31 16:08) [4]

> Шакал © (31.05.07 15:59)

Ну вот, ещё один решил чтение книг форумом заменить...

← →
Шакал © (2007-05-31 16:10) [5]

> а в акцессе разве нету полей типа "счетчик" или autoincrement?

в акцессе есть...но в таблицы можно только один счетчик ставить, а он у мну уже для другого использован

← →
Сергей М. © (2007-05-31 16:10) [6]

> Шакал © (31.05.07 15:59)

> не выходит

Вазелином смажь

← →
DiamondShark © (2007-05-31 16:13) [7]

> а он у мну уже для другого использован

чую дурной запах нехорошей постановки

← →
Шакал © (2007-05-31 16:13) [8]

> И демок полно в "C:\Program Files\Borland\Delphi7\Demos\Db\

там все папки пустые :( видать дельфя некашерная...

← →
Сергей М. © (2007-05-31 16:14) [9]

В сад.

← →
Elen © (2007-05-31 16:14) [10]

> edit1.text:=dat.ADOQ.SQL.Add("select max (id) from kadry");

Интересно, это весь код или... Ато вообще-то его кроме прописывания еще и выполнить надо.

← →
clickmaker © (2007-05-31 16:15) [11]

> edit1.text:=dat.ADOQ.SQL.Add("select max (id) from kadry");

это вообще даже компилироваться не должно по идее...

← →
Шакал © (2007-05-31 16:16) [12]

> Ато вообще-то его кроме прописывания еще и выполнить надо.

id.Value:=dat.ADOQ.SQL.Add("select max (id) from kadry");
dat.ADOQ.ExecSQL;

← →
Правильный Вася (2007-05-31 16:18) [13]

методом трех П ?
пол - потолок - палец?

← →
Плохиш © (2007-05-31 16:18) [14]

> Elen © (31.05.07 16:14) [10]

> clickmaker © (31.05.07 16:15) [11]

Серьёзные подтянулись... Пацанчик просто всех развлекает :-D

← →
clickmaker © (2007-05-31 16:19) [15]

> [14] Плохиш © (31.05.07 16:18)

а что, серьезные - так уж и развлечься нельзя? )

← →
Сергей М. © (2007-05-31 16:21) [16]

> Пацанчик просто всех развлекает

У него "не выходит" !

Это уже не "развлечение"...

Больно ведь)

А delphimaster.ru - это, как известно, служба "911"

← →
Шакал © (2007-05-31 16:25) [17]

> Пацанчик просто всех развлекает :-D

ага и контрольная шутка
edit1.text:=dat.ADOQ.SQL.Add("select max (id) from kadry")+1;
:-!

← →
Elen © (2007-05-31 16:26) [18]

> Плохиш © (31.05.07 16:18) [14]

Просто интересно стало... )

> Шакал © (31.05.07 16:16) [12]

И это все?

← →
DrAndrey © (2007-05-31 16:27) [19]

> Пацанчик просто всех развлекает :-D
Нет, он издевается.

← →
Шакал © (2007-05-31 16:28) [20]

> Нет, он издевается.

однозначно нет....думайте что хотите, ушел в библиотеку книжку читать

← →
Сергей М. © (2007-05-31 16:29) [21]

> ага и контрольная шутка

Ага, шутка некомпилируемая в принципе

← →
Шакал © (2007-05-31 16:30) [22]

> Ага, шутка некомпилируемая в принципе
>

нифига, отлично компилируется и даже 1 вставляет в этит поле

← →
Сергей М. © (2007-05-31 16:30) [23]

> ушел в библиотеку книжку читать

Неужели про "Репку" ?!

← →
Шакал © (2007-05-31 16:31) [24]

> Неужели про "Репку" ?!

ну не про дельфиже....

← →
Elen © (2007-05-31 16:34) [25]

> нифига, отлично компилируется и даже 1 вставляет в этит
> поле

Круто.

← →
DrAndrey © (2007-05-31 16:34) [26]

ADOCommand.Execute - это фунция? Возвращает что?

← →
Сергей М. © (2007-05-31 16:35) [27]

Господи, ниспошли клизму рабу твоему, Шакалу (c), бо не ведает он чем полезным ему заняться !

← →
Плохиш © (2007-05-31 16:35) [28]

> DrAndrey © (31.05.07 16:34) [26]
> ADOCommand.Execute - это фунция? Возвращает что?

А в справке что написано?

← →
Плохиш © (2007-05-31 16:37) [29]

> Сергей М. © (31.05.07 16:35) [27]

Да ладно, сделай 10 минут перерыва ;-)

← →
Шакал © (2007-05-31 16:39) [30]

> ADOCommand.Execute

ты где вобще это взял???

← →
Шакал © (2007-05-31 16:40) [31]

> Сергей М.

я дельфи изучаю 2 недели тока, многого незнаю...нечего так набрасыватся.блин

← →
Сергей М. © (2007-05-31 16:42) [32]

> Шакал © (31.05.07 16:40) [31]

> изучаю 2 недели

А врать при этом научился гораздо раньше)

← →
Плохиш © (2007-05-31 16:42) [33]

> я дельфи изучаю

Афигенная шутка :-))

← →
DrAndrey © (2007-05-31 16:43) [34]

> ADOCommand.Execute

>ты где вобще это взял???

Я подсказываю, а ты действительно издеваешся!
Выполни запрос, получи рекордсет, обратись к нужному полю, получи своё max (id) и прилепи к нему единицу.

← →
Шакал © (2007-05-31 16:43) [35]

Конференция для начинающих, а также для тех, кому сложно объяснить чего он хочет. Просьба к участникам быть взаимовежливыми, профессионалам отдельная просьба - быть снисходительными.

пошли вы сами....

← →
Elen © (2007-05-31 16:44) [36]

> Шакал © (31.05.07 16:39) [30]

Я одного не пойму с чего ты взял что метод Add вернет тебе результ? Это ж тебе не Фокспро.
Вот цитата из справки :

Adds a string at the end of the list.

function Add(const S: string): Integer; virtual;

Description

Call Add to add a string to the end of the list. Add returns the index of the new string.

Так что оно хоть и компилится но выдает тебе количество строк твоей sql команды. А то что ты хош делается совсем по другому.

← →
Сергей М. © (2007-05-31 16:47) [37]

> Шакал © (31.05.07 16:43) [35]

Прекрати врать и демонстрировать идиотский доморощенный сленг - будет тебе, как и обещано, "снисходительность".

← →
Шакал © (2007-05-31 16:48) [38]

> Прекрати врать

идея вру?

← →
Плохиш © (2007-05-31 16:48) [39]

> Шакал © (31.05.07 16:43) [35]
> Конференция для начинающих

Это не для тебя конференция.

← →
Шакал © (2007-05-31 16:50) [40]

> Это не для тебя конференция.

а куда мне в профессионалы податься???

← →
Сергей М. © (2007-05-31 16:51) [41]

> идея вру?
>

итам где приводишь заведомо некомпилируемый код.

← →
Шакал © (2007-05-31 16:52) [42]

все комилируется...проверь...
вот корректность выполнения, это да.....

← →
Сергей М. © (2007-05-31 16:52) [43]

> куда мне в профессионалы податься?

Появится КетмАрь - он тебе подскажет куда)

← →
Сергей М. © (2007-05-31 16:53) [44]

> все комилируется...проверь

Все. Уймись.

← →
Шакал © (2007-05-31 16:55) [45]

да и ладно....обосрали блин по всякому...впитал..спасибо....
и без вас разберусь....

← →
DrAndrey © (2007-05-31 16:55) [46]

Уважаемый товарищ Шакал. Для решения проблемы Вам необходимо не только написать текст SQL-запроса, но и выполнить его, получив результирующий набор данных, обратитесь к fields[0] и получите его значение (value), в последствии Вы можете прибавить к нему 1, таким образом получите "цифру на 1 больше максимальной столбце
бд ацесс..."

← →
Сергей М. © (2007-05-31 16:56) [47]

> обосрали блин по всякому

мы старались)

← →
Правильный Вася (2007-05-31 17:17) [48]

> > обосрали блин по всякому

не подставляйся
и не упорствуй в заблуждениях

← →
Anatoly Podgoretsky © (2007-05-31 21:47) [49]

> Шакал (31.05.2007 16:43:35) [35]

Конференция для начинающих!!!

← →
Anatoly Podgoretsky © (2007-05-31 21:52) [50]

> Сергей М. (31.05.2007 16:35:27) [27]

Кетмар скажет

← →
Шакал © (2007-06-01 09:29) [51]

Бин люди...всю ночь читал книги, много думал ;)....
А РЕШЕНИЯ ТАК И НЕ НАШЁЛ :-(
нашёл функцию succ - хорошая функция...а вот как макс значение найти так и ненашел....

← →
Loginov Dmitry © (2007-06-01 09:40) [52]

> нашёл функцию succ - хорошая функция...

Так ты и учишь Pascal: эта функция харошая - пойдет. Эта функция не подойдет - она плахая.

← →
Шакал © (2007-06-01 09:43) [53]

> эта функция харошая - пойдет. Эта функция не подойдет -
> она плахая.

Это ты щас с кем разговаривал???

← →
Сергей М. © (2007-06-01 09:44) [54]

> РЕШЕНИЯ ТАК И НЕ НАШЁЛ

А оно между тем прямо перед носом - сначала нужно выполнить свормированный тобой SQL-запрос, и только после его выполнения получать результаты.

У тебя где в коде хоть что-либо напоминающее попытку запуска запроса на выполнение (Open, Active) ? Нет этого) .. Ну так а что же ты тогда хочешь, если запрос твой не выполнен ?

← →
SlymRO © (2007-06-01 09:45) [55]

Удалено модератором

← →
Шакал © (2007-06-01 09:54) [56]

dat.ADOQ.SQL.Clear;
i:=dat.ADOQ.SQL.Add("select max(id) from kadry");
dat.ADOQ.ExecSQL;
id.Value:=succ(i);
dat.ADOQ.SQL.Clear;
dat.ADOQ.SQL.add("select * from kadry");
dat.ADOQ.open;

Вот полностью весь код...подставляется значение 1...т.е. запрос возвращает 0 :(

← →
SlymRO © (2007-06-01 09:59) [57]

ААААА!! вот кто виндус напесал! бей его!
dat.ADOQ.SQL.Clear; dat.ADOQ.SQL.Add("select max(id) from kadry"); dat.ADOQ.Open; id.Value:=dat.ADOQ.Fielsd[0].Value+1;

← →
Loginov Dmitry © (2007-06-01 10:01) [58]

Может, всеже книжку какую почитаешь? Ну вот что ты этим хочешь добиться:
i:=dat.ADOQ.SQL.Add("select max(id) from kadry");
?
В пустой список TStrings будет добавлена строка, и функция Add вернет ее индекс 0. Но какое отношение это имеет к базе данных?

← →
Сергей М. © (2007-06-01 10:07) [59]

> Шакал © (01.06.07 09:54) [56]

with dat.ADOQ do begin
SQL.Text := "select max(id)+1 from kadry";
Open;
id.Value := Fields[0].Value;
end;

← →
SlymRO © (2007-06-01 10:08) [60]

try
:Цыкл
Книга.Open;
try
while not IQ>0 do
Книга.Read;
except
Книга.Перевернуть;
Goto Цыкл;
end;
except
on MozgNotFound: self.УбитьсяАпСтену;
end;

← →
Loginov Dmitry © (2007-06-01 10:19) [61]

Книга.Перевернуть; не мешало бы взять в отдельный защищенный блок.

← →
ANB © (2007-06-01 10:20) [62]

> "select max(id) from kadry"

Некузяво. Надо сначала таблицу залочить иначе в сетевом режиме 2 юзера смогут получить одинковое ID + 1

← →
Шакал © (2007-06-01 10:29) [63]

> with dat.ADOQ do begin
> SQL.Text := "select max(id)+1 from kadry";
> Open;
> id.Value := Fields[0].Value;
> end;

Вы будете смеяться, но ему поле id не найти....

← →
SlymRO © (2007-06-01 10:37) [64]

DROP TABLE kadry;

← →
Сергей М. © (2007-06-01 10:42) [65]

> ему поле id не найти

Кому "ему" ?

Что за объект id ? Откуда он у тебя начал фигурировать в программе ?

← →
Шакал © (2007-06-01 10:50) [66]

Запросу :)
ID это числовое поле в таблице kadry

← →
Loginov Dmitry © (2007-06-01 11:02) [67]

> Вы будете смеяться, но ему поле id не найти....

В [60] сказано, что нужно делать.

← →
Сергей М. © (2007-06-01 11:06) [68]

> Шакал © (01.06.07 10:50) [66]

А причем здесь "поле эдит" ?

← →
Шакал © (2007-06-01 11:25) [69]

> А причем здесь "поле эдит" ?

ну я ща вместо эдит RXspinedit вставил

← →
Шакал © (2007-06-01 11:46) [70]

> DROP TABLE kadry;

чё ты за код написал, у меня теперь все время пишет table kadry not found
:^(

← →
Loginov Dmitry © (2007-06-01 11:56) [71]

Сделай Format C: и оно вернется

← →
Сергей М. © (2007-06-01 11:57) [72]

> RXspinedit вставил

Куда "вставил" ?

Как RXspinedit связан с объектом id ?

← →
Шакал © (2007-06-01 11:58) [73]

> Сделай Format C: и оно вернется

забыл сказать что надо под дос загрузится :-Ь

← →
Шакал © (2007-06-01 11:59) [74]

> Куда "вставил" ?
>
> Как RXspinedit связан с объектом id ?
>

на форму....
значение RXspinedit заносится в таблицe kadry в поле id

← →
Сергей М. © (2007-06-01 12:02) [75]

> значение RXspinedit заносится в таблицe kadry в поле id

Ну так прежде чем значение из RXspinedit будет куда-то заноситься, оно сначала должно там оказаться каким-то образом !

Вот и заноси туда это значение:

RXspinedit.Value := Fields[0].Value;

Неужто это так сложно дотумкать самостоятельно ?

← →
Правильный Вася (2007-06-01 12:08) [76]

одно из двух:
1. банальный развод
2. банальный тормоз
оба варианта бесперспективны, зачем ведетесь

← →
Шакал © (2007-06-01 12:11) [77]

> RXspinedit.Value := Fields[0].Value;

id.value:=Fields[0].Value;

тоже самое...имя у RXspinedit = id

← →
Шакал © (2007-06-01 12:13) [78]

> одно из двух:
> 1. банальный развод
> 2. банальный тормоз
> оба варианта бесперспективны, зачем ведетесь

Ну конечно, Вы участвовали в шоу разведи мастеров дельфи, всем спасибо за участие :-D

А серьезно...ну не получается у меня.....попросил помощи...а вы головойапстену....

← →
Сергей М. © (2007-06-01 12:20) [79]

> тоже самое

Что "тоже самое" ?)

← →
Шакал © (2007-06-01 12:26) [80]

> RXspinedit.Value := Fields[0].Value;
>
> id.value:=Fields[0].Value;

имя объекта RXspinedit - id

← →
Плохиш © (2007-06-01 12:29) [81]

> Шакал © (01.06.07 12:26) [80]

Скажи, чё тебе от нас надо-то?

← →
Сергей М. © (2007-06-01 12:31) [82]

> имя объекта RXspinedit - id
>

Это мы уже поняли)

Ну и ?

← →
Шакал © (2007-06-01 12:36) [83]

написал так
edit1.text:=inttostr(dat.ADOQ.Fields[0].Value);
ругается
could not convert variant of type (Null) into type (integer)

← →
Loginov Dmitry © (2007-06-01 12:40) [84]

edit1.text := dat.ADOQ.Field[0].AsString

← →
Плохиш © (2007-06-01 12:40) [85]

> could not convert variant of type (Null) into type (integer)

Таблица пустая.

← →
sniknik © (2007-06-01 12:44) [86]

> Таблица пустая.
или поле

← →
Сергей М. © (2007-06-01 12:44) [87]

Ну ругается, и что ?

Значит dat.ADOQ.Fields[0].Value действительно равно Null.

← →
boriskb © (2007-06-01 12:46) [88]

> Шакал ©

Я так автомобили чиню :)

по балону пнул - не помогло, бибикнул - тоже не заводится :))

← →
Сергей М. © (2007-06-01 12:46) [89]

> Таблица пустая

Таблица непустая, иначе при обращении к заначению поля возникло бы исключение а-ля "нет текущей записи"

← →
Шакал © (2007-06-01 12:48) [90]

edit1.Text:=dat.ADOQ.Fields[0].AsString;
пустое поле edit получилось

> [89] Сергей М. © (01.06.07 12:46)

насколько я знаю, max() может вернуть null только, если не нашел ни одной записи по условию или таблица и вправду пустая

> пустое поле edit получилось

Ну дык..
Балона то 4 - не по всем пинал :)

> Сергей М. © (01.06.07 12:46) [89]
>
> > Таблица пустая
>
>
> Таблица непустая, иначе при обращении к заначению поля возникло
> бы исключение а-ля "нет текущей записи"

У него вроде запрос "select max(id)...", он всегда возвращает минимум одну запись... или я уже нить ветки проспал :-)

> насколько я знаю, max() может вернуть null только, если
> не нашел ни одной записи по условию или таблица и вправду
> пустая

в таблице две записи со значения ми id 1, 2

> пустое поле edit получилось

И ?

Выводы-то сделал ?

> в таблице две записи со значения ми id 1, 2

Врешь.

При этих условиях max(id) обязательно вернет 2, но никак не Null

← →
Правильный Вася (2007-06-01 12:56) [97]

> .попросил помощи...а вы головойапстену....

помощи просят, когда все умеешь, но не хватает некоторых нюансов
и просят направления, где почитать
а ты читать не желаешь, хотя еще в первых постах тебя отправили читать справку по компонентам, которые ты используешь методом НЕнаучного тыка

отсюда логичный вывод: или не умеешь думать, или порезвиться пришел
оба случая клинические

> Выводы-то сделал ?

не вернулся результат запроса?

> в таблице две записи со значения ми id 1, 2

такие варианты
1. не в той таблице
2. не в той базе
3. ты что-то неправильно делаешь
4. ты просто прикалываешься тут над всеми

выбирай

> не вернулся результат запроса?

Ага, вероломству запроса нет предела - ушел, обещал, понимаешь ли, вернуться, и не вернулся... Вот ведь зараза какая !)

Если бы он не вернулся, ты бы сейчас хныкал об другом, мол, че за ошибка такая-то)...

> насколько я знаю, max() может вернуть null только, если не нашел ни одной записи по условию или таблица и вправду пустая
наверняка не все движки похоже работают но jet еще возвращает null если значение поля (все) = null.

> 4. ты просто прикалываешься тут над всеми
самый вероятный вариант ИМХО. "включил дурочку". а после скажет - "ничего вы не понимаете, помочь не можете, уйду я от вас. а еще мастера!"

> а после скажет - "ничего вы не понимаете, помочь не можете,
> уйду я от вас. а еще мастера!"

Когда ж этот "после" придёт?

да быстрее бы уж... заждались ;о).

Ну вот скажите мне, что не правильно....

dat.ADOQ.Close;
dat.ADOQ.SQL.Clear;
dat.ADOQ.SQL.Add("select max(id) from kadry");
dat.ADOQ.ExecSQL;
edit1.Text:=dat.ADOQ.Fields[0].AsString;
dat.ADOQ.Close;
dat.ADOQ.SQL.Clear;
dat.ADOQ.sql.Add("select * from kadry");
dat.ADOQ.open;

ведь вот эта строка "dat.ADOQ.sql.Add("select * from kadry");" - в дбгриде отображается корректно, все записи, включая id...

> [104] Шакал © (01.06.07 15:26)
> Ну вот скажите мне, что не правильно....

Ну тогда объясни, почему у тебя в одном случае ExecSQL, а в другом open?

Сказка, блин, про белого бычка)

Ну какого лешего ты опять влупил ExecSQL ?

Ты и вправду придурок или совсем плох здоровьем ?)

dat.ADOQ.Close;
dat.ADOQ.SQL.Clear;
dat.ADOQ.SQL.Add("select max(id) from kadry");
dat.ADOQ.open;
edit1.Text:=dat.ADOQ.Fields[0].AsString;
dat.ADOQ.Close;
dat.ADOQ.SQL.Clear;
dat.ADOQ.sql.Add("select * from kadry");
dat.ADOQ.open;

Если там ставлю open Пишет что поле ID не найдено
???

> Пишет что поле ID не найдено

Раз пишет, значит так и есть.

> Раз пишет, значит так и есть.

Но этот запрос dat.ADOQ.sql.Add("select * from kadry"); выводит данные в дбгрид..и там поле ID отображается!!!!!!!!!!!!!!!!!!!!

а ты попробуй сделать select id, ...

> а ты попробуй сделать select id, ...

хм...написал так
dat.ADOQ.Close;
dat.ADOQ.SQL.Clear;
dat.ADOQ.sql.Add("select id from kadry");
dat.ADOQ.open;

выдал ошибку что не найдено следующее поле в таблице!!!!!!!!!!!!!!!!!!!

и о чем это нам говорит? :)

> выдал ошибку что не найдено следующее поле в таблице

Раз выдал, значит его там действительно нет.

вариант №2 - ты просто придурок, и тебе - в очередь за рецептом к Кетмарю)

dat.ADOQ.sql.Add("select id, field2 from kadry");

Ошибка что не найдено следующее поле..и т.д.

А написал в запрос все поля, показал в грид все нормально

> [111] Шакал © (01.06.07 15:45)

А если не экономить на компонентах и добавить еще пару квериков.
dat.ADOQ1.Close; dat.ADOQ1.SQL.Text:="select max(id) from kadry"; dat.ADOQ1.open; edit1.Text:=dat.ADOQ1.Fields[0].AsString; dat.ADOQ2.Close; dat.ADOQ2.sql.Text:="select * from kadry"; dat.ADOQ2.open;

> Сергей М.

я тебя не оскорблял..зачем ты так

> Шакал © (01.06.07 15:49) [117]

А врать с твоей стороны - не оскорбление ?)

> dat.ADOQ.sql.Add("select id, field2 from kadry");
>
> Ошибка что не найдено следующее поле..и т.д.

Выполнение ЭТОЙ строчки НЕ может привести к ЭТОЙ ошибке.
Ври да не завирайся !

> Выполнение ЭТОЙ строчки НЕ может привести к ЭТОЙ ошибке.
>
> Ври да не завирайся !

я клянусь он так пишет

> он так пишет

Кто "он" ?

Что отладчик говорит при пошаговой трассировке ?

Блин....а через новый квери пошло...!!!!!8)
dat.ADOQueryID.Close;
dat.ADOQueryID.SQL.Clear;
dat.ADOQueryID.SQL.Add("select max(id)+1 from kadry");
dat.ADOQueryID.open;
edit1.Text:=dat.ADOQueryID.Fields[0].AsString;

Всем огромное спасибо, хоть Вы меня и оскорбляли, но действительно сильно помогли, я 3 дня над этим бился....а дело как всегда на 3 мин было....

> Шакал © (01.06.07 15:53) [119]

В редакторе формы кликаешь на своём кверике дважды мышакана и в открывшемся окне удалёешь к чёртовой матери все поля, которые ты туда по своему скуподумию нафигачил...

> Плохиш

у меня через этот редактор fields настроины поля которые должен показывать дбгрид

Я бы ему и метлу не доверил...

> хоть Вы меня и оскорбляли, но действительно сильно помогли

Ну пока дыню тебе в очко не закатишь, ты ж не пошевелишься ?)

> я 3 дня над этим бился

Бедняга)

Бился, блин, бился Иван-Царевич с ворогом несметным 3 дня и 3 ночи, и не знал он, что победить сие полчище можно было в 3 секунды, имея на вооружении не меч и кайло-кувадлу, а гораздо более мощно-волшебное оружие - меч-кладенец, известный также как "встроенный в Делфи Отладчик"

))

Плохишь ща я скомпилирую прогу (она правда еще не доканца доделана) ссылку дам посмотришь как мастер....

http://porhovpost.jino-net.ru/1/prg.rar

Моя первая программа...:) так что не судите строго....
и надо будет дописать если упомянутая выше таблица пустая, что бы 1 вставлял.....

Кликнул на ссылку тока чтобы посмотреть размер... Ну ты блондин одназначна или всех остальных на них считаешь... низнакомый экзек качать сирано что поднимать мыло в бане в кругу низнакомых людей

Поиск максимального значения +1 Найти похожие ветки