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

← →
Шакал © (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]

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

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

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

> DROP TABLE kadry;

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

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

> RXspinedit вставил

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

> тоже самое

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

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

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

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