[АНЯ17]

не хочет работать

Код:

while not adq.Eof do //Ложь- когда цикл будет на последней строчке таблицы,если запрос ничего не вернет в цикл не зайдет
begin//С таким циклом не надо никаких First и last
adq.fields[0].asstring //- тут ваш район
adq.fields[1].asstring //- тут пол для конкретного района
adq.fields[2].asstring //- тут количество по конкретному полу и району
adq.next;//Я надеюсь что в ваших районах всегда хотя бы по 1 мужчине и женщине есть..поэтому
//строки в таблице всегда будут парными =)
end;
 

вот мая проектчик

[Alegun]

Оффтоп:
А вы что, на Лазаре пишете? Проблемы с кодировкой в сборке

[АНЯ17]

На Делфи а что та не то написала код? я с верхушка скопировала она не хочет работать

[M.A.D.M.A.N.]

Сообщение от АНЯ17

На Делфи а что та не то написала код? я с верхушка скопировала она не хочет работать

[Alegun]

Неа, не компилится ваш шедевр, может не та версия ADSybase for D7 у меня, скачал 8.1, а у вас какая?

[АНЯ17]

у мя версия 9,10.

думаю не все программист и использовают, они тока нашли акссес и с другими тупик.

[M.A.D.M.A.N.]

Сообщение от АНЯ17

у мя версия 9,10.

думаю не все программист и использовают, они тока нашли акссес и с другими тупик.

Бля, какой треш. Вы сами то понимаете, что пишете?

[АНЯ17]

спс, I'm trying to learn russian, so i'm not from russia apologise for my mistakes.

[АНЯ17]

а что не понтонного ??? запроси не совпадает с версси БД Avantage Database Server !!!!

[M.A.D.M.A.N.]

Сообщение от АНЯ17

спс, I'm trying to learn russian, so i'm not from russia apologise for my mistakes.

It's really looks better, than russian "krack" translation;

[Uniq!]

Anny, try to duplicate your statements in both of languages.
Аня, попробуй дублировать твои высказывания на двух языках.
We will be easier to understand you.
нам так проще будет понять тебя.

Я чуть упустил ход мысли.

вот здесь: adq.fields[0].asstring лежит значение для первой колонки, в вашем случае "район".

Код:

Edit1.Text := adq.fields[0].asstring; 

присвоит в Edit1 значение из колонки "Район", выделенной на данный момент записи.

Какая конечная цель, я понять не могу?

P.s у мя = у меня (не сокращайте, это является дурным тоном)
"что-то" (Кое-что, что-либо, что-то, что-нибудь, выделенные частицы всегда пишутся через "-", и частицы "та" нет в русском языке.)
Что-то не то написала в коде (in code)?

[Heneken]

Так. Проект на XE6 не компилится, да и не будет. Вышлите мне вашу БД или ее кусок(удалите левое если там важная персональная информация). Я вам состряпаю проект на СТАНДАРТНЫХ компонентах и выложу исходники. Насколько я понимаю цель проекта из базы выдернуть мальчиков и девочек по конкретным районам и выгрузить все это разнообразие в Excel. Распишу все с комментариями. Проблемой может стать только версии Delphi.Не исключено, что в вашей версии придется поправлять uses.

[АНЯ17]

Сообщение от Heneken

Так. Проект на XE6 не компилится, да и не будет. Вышлите мне вашу БД или ее кусок(удалите левое если там важная персональная информация). Я вам состряпаю проект на СТАНДАРТНЫХ компонентах и выложу исходники. Насколько я понимаю цель проекта из базы выдернуть мальчиков и девочек по конкретным районам и выгрузить все это разнообразие в Excel. Распишу все с комментариями. Проблемой может стать только версии Delphi.Не исключено, что в вашей версии придется поправлять uses.

за ран, спс

[Heneken]

Сообщение от АНЯ17

за ран, спс

Привязка к твоей базе данных обязательна? Или есть альтернатива посадить программу на другую базу IB например.
Иными словами программа нужна чтобы из существующей БД(созданной другой ПО например) вытащить информацию, или замысел в том что ты будешь сама весть свою БД?

[АНЯ17]

Но если на мая БД лучше будет. Проблема в том что оно в других БД эти команди действует на моя БД нет. Ну исправте вы на другом. мя все равно надо написать на Advantage Database Server.

тама же разница например на AdsQuery1.Params а в других БД (Parametrs )

за ран спс.