select поля в combobox

@Oxotnuk · Регистрация: 18.06.2009

Студворк — интернет-сервис помощи студентам

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm4::ComboBox1DropDown(TObject *Sender)
{
Form4->Klienty->Open();
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select FIO FROM KLIENT");
Query1->Open();
Form4->Klienty->Close();
Form4->Klienty->Open();
Form4->Klienty->First();
for ( int i = 0; i< Form4->Klienty->RecordCount; i++) {
ComboBox1->Items->Add("Query1FIO->Value");
Form4->Klienty->Next();
}
}

но,что то он у меня значения не тянет.....
Подскажите пожалуйста,очень срочно нужно.
P.S DBLookupComboBox почему то не хочет работать,или я им не умею пользоваться

@Oxotnuk · 26.05.2011, 18:01 **[ТС]**

Alpha,number,money,short,long ,integer,bcd,date,time,timestamp,memo,fo rmatedmemo,grafic,ole,logical,autoincrem ent,binary,bites

@Sasha · 26.05.2011, 21:35

Я так понял база Paradox или dBase, по пробуй тогда тип поля bcd

@Oxotnuk · 26.05.2011, 22:15 **[ТС]**

Ага,а смысл изначально заморачиваться с серверами?попробую - bcd. так,а что это за тип такой?
и как быть с переносом?) что я описывал сегодня

@Sasha · 27.05.2011, 10:12

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

попробую - bcd. так,а что это за тип такой?

Alpha - строка
Number - 15 знаков, плавающая запятая, плюс-минус 10 в 308 степени
Money - обычное поле с плавающей запятой, возможно прнименение различных форматов вывода
Short - целое от -32,767 до +32,767
Long Integer - oт -2147483648 дo 2147483647
BCD - плавающая запятая, повышенная точность, применяется для финансовых рассчётов
Date - для хранения даты
Time - для хранения времени
Timestamp - для хранения даты/времени
Memo
Formatted Memo
Graphic - вариант Blob поля
OLE - вариант Blob поля
Logical - True/False
Autoincrement
Binary - вариант Blob поля
Bytes - вариант Blob поля

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

) и как быть с переносом?) что я описывал сегодня

здесь вообще всё сумбурно и тяжело

@Oxotnuk · 27.05.2011, 14:42 **[ТС]**

Ну мне хотябы намек,как это сделать,а там что-то придумаю

))) самую идею

Добавлено через 27 минут
есть идея конечно

SQL
1
INSERT INTO table2 (поля) SELECT поля FROM table1

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

@Sasha · 27.05.2011, 15:29

Я могу выложить код как я делал через ADOQuery

@Oxotnuk · 27.05.2011, 18:32 **[ТС]**

Странно,поставил bcd тип,у меня перестались записываться записи в таблицу по этому полю...
в чем трабл?

Добавлено через 13 минут
Упс,все...Это просто мего-глюченный 2007 билдер

Добавлено через 1 час 12 минут

C++
1
2
3
4
5
6
Query3->Close();
Query3->SQL->Clear();
Query3->SQL->Text=("insert into oplata_save(POLYCHATEL,SHET , OKPO , NAIMENOVANIE  , FIOPLATELCHIKA , NAZNACHENIEPLATEGA , SUMMA, SUMMAKOMISSIA, MFO,DATA)"
+("select POLYCHATEL,SHET , OKPO , NAIMENOVANIE  , FIOPLATELCHIKA , NAZNACHENIEPLATEGA , SUMMA, SUMMAKOMISSIA, MFO,DATA from Oplata"));
Query3->ExecSQL();
Query3->Open();

[BCC32 Error] Unit5.cpp(66): E2085 Invalid pointer addition
я так понимаю,на + ругается....почему?

Добавлено через 52 минуты
немного переделал

C++
1
2
3
4
5
6
Query3->Close();
Query3->SQL->Clear();
Query3->SQL->Add("insert into Oplata_save ( POLYCHATEL,SHET , OKPO , NAIMENOVANIE , FIOPLATELCHIKA , NAZNACHENIEPLATEGA , SUMMA, SUMMAKOMISSIA, MFO,DATA )");
Query3->SQL->Add("select POLYCHATEL,SHET , OKPO , NAIMENOVANIE , FIOPLATELCHIKA , NAZNACHENIEPLATEGA , SUMMA, SUMMAKOMISSIA, MFO,DATA from Oplata " );
Query3->ExecSQL();
Query3->Open();

First chance exception at $7C81EB33. Exception class ENoResultSet with message 'Error creating cursor handle'. Process Project1.exe (2060) это что значит?????

А вообще если можно,покажи код переноса

@Lord_Voodoo · 28.05.2011, 10:52

Oxotnuk, ну я даже не знаю, когда вы запомните, что Open - используется для запросов SELECT, ExecSQL - для всех остальных...
покажите мне хоть один хелп, книгу да любой источник, откуда родилась такая комбинация методов:

C++
1
2
Query3->ExecSQL();
Query3->Open();

это мое первое замечание...
учитесь понимать ошибки и исключения:

Exception class ENoResultSet with message 'Error creating cursor handle'.

тут же все написано - ошибка создания курсора... оно и понятно, что курсор на данные запрос Insert Into не возвращает... он добавил данные и забыл о базе... а вы после выполнения запроса, сразу же требуете от него еще и данных, вот вам и исключение

@Oxotnuk · 28.05.2011, 11:08 **[ТС]**

Все понял,спасибо,исправил

А вот допустим если у меня в той таблице куда перекидываю, есть еще одно новое поле, допустим status, можно,что бы когда туда инсертится запись,поле принимало значение 0 на этой записе?

@Lord_Voodoo · 28.05.2011, 11:10

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

SQL
1
INSERT INTO TABLE_NAME( ..., STATUS) (SELECT ..., 0 WHERE...)

@Oxotnuk · 28.05.2011, 12:49 **[ТС]**

либо утро тяжелое,либо,что-то не то....
не могу осилить...

Добавлено через 12 минут
все,осилил

C++
1
2
Query3->SQL->Add("insert into Oplata_save ( POLYCHATEL,SHET , OKPO , NAIMENOVANIE , FIOPLATELCHIKA , NAZNACHENIEPLATEGA , SUMMA, SUMMAKOMISSIA, MFO,DATA,STATUS )");
Query3->SQL->Add("select POLYCHATEL,SHET , OKPO , NAIMENOVANIE , FIOPLATELCHIKA , NAZNACHENIEPLATEGA , SUMMA, SUMMAKOMISSIA, MFO,DATA,0  from Oplata " );

@Oxotnuk · 31.05.2011, 10:58 **[ТС]**

Идея такова

В таблицу добавляю поле Ydalenye тип -logical
в Dbgrid у меня выводятся поля, после,по батону они переносятся в другую таблицу.(при переносе,что бы ставился статус уделенна запись)
Нужно сделать так,что бы, записи со статусом удаленные скрывались в этом Dbgrid и со статусом удаленные не переносились в другую таблицу...
Как это сделать?

@Sasha · 31.05.2011, 11:28

Так удали эти строки и всё

Добавлено через 1 минуту
Или составь запрос на вывод тех строк, которые не помечены как удалённые

@Oxotnuk · 31.05.2011, 11:30 **[ТС]**

Прочитай полностью и вникни

я не правильно построил структуру таблиц,и что бы все не переделывать,пытаюсь выкручиваться

@MsGuns · 31.05.2011, 11:30

Delphi
1
2
3
покажите мне хоть один хелп, книгу да любой источник, откуда родилась такая комбинация методов:
 Query3->ExecSQL();
 Query3->Open();

У топикстартера, конечно, ерунда записана (ИМХО, она еще и в голове у него, ну это такое..), но вообще-то такое не только возможно, но и используется очень часто. И называется скриптами.
Правда, для запуска скрипта кверик не подходит (В ADO это вообще суррогат вместе с не менее замечательной TADOTable - разработчики включили эту парочку очевидно для того, чтобы "старые" прогеры и новые их ученики пользовались излюбленной методой), вместо него надо использовать TADOCommand, обрабатывая затем коллекцию его рекордсетов.
Кстати, очень удобная "фишка" для сложных многоступенчатых целостных запросов, особенно для Акцеса, где нет хранимок и функций

@Sasha · 31.05.2011, 11:37

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

В таблицу добавляю поле Ydalenye тип -logical

Ты не знаешь как добавить к таблице дополнительное поле?

@Oxotnuk · 31.05.2011, 11:54 **[ТС]**

знаю...я логику не подцыплю в голову,как реализовать...

@MsGuns · 31.05.2011, 12:09

C++
1
В таблицу добавляю поле Ydalenye тип -logical

Судя по названию - "признак удаления".
В мусорку все !!!!
И добавление в таблицу поля запросом (гнилость та еще), и сам замысел пометки записей каким-то признаком (вааще гроб с музЫкой). Почитайте что-нибудь про транзакции и целостность баз чтобы хоть как-то разгрести мусорные завалы в Вашей голове

@Oxotnuk · 31.05.2011, 12:48 **[ТС]**

MsGuns, учту

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

@Oxotnuk · 01.06.2011, 17:27 **[ТС]**

как мне из квери в дбгрид выводить?

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

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .
Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .	Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	26.05.2011, 18:01 [ТС]
	Alpha,number,money,short,long ,integer,bcd,date,time,timestamp,memo,fo rmatedmemo,grafic,ole,logical,autoincrem ent,binary,bites 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	26.05.2011, 21:35
	Я так понял база Paradox или dBase, по пробуй тогда тип поля bcd 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	26.05.2011, 22:15 [ТС]
	Ага,а смысл изначально заморачиваться с серверами?попробую - bcd. так,а что это за тип такой? и как быть с переносом?) что я описывал сегодня 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	27.05.2011, 15:29
	Я могу выложить код как я делал через ADOQuery 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	28.05.2011, 11:08 [ТС]
	Все понял,спасибо,исправил А вот допустим если у меня в той таблице куда перекидываю, есть еще одно новое поле, допустим status, можно,что бы когда туда инсертится запись,поле принимало значение 0 на этой записе? 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	31.05.2011, 10:58 [ТС]
	Идея такова В таблицу добавляю поле Ydalenye тип -logical в Dbgrid у меня выводятся поля, после,по батону они переносятся в другую таблицу.(при переносе,что бы ставился статус уделенна запись) Нужно сделать так,что бы, записи со статусом удаленные скрывались в этом Dbgrid и со статусом удаленные не переносились в другую таблицу... Как это сделать? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	31.05.2011, 11:28
	Так удали эти строки и всё Добавлено через 1 минуту Или составь запрос на вывод тех строк, которые не помечены как удалённые 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	31.05.2011, 11:30 [ТС]
	Прочитай полностью и вникни я не правильно построил структуру таблиц,и что бы все не переделывать,пытаюсь выкручиваться 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	31.05.2011, 11:54 [ТС]
	знаю...я логику не подцыплю в голову,как реализовать... 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	31.05.2011, 12:48 [ТС]
	MsGuns, учту но не сейчас,сейчас нужно реализовать хоть таким методом... 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	01.06.2011, 17:27 [ТС]
	как мне из квери в дбгрид выводить? подскажите, т.е квери связываю с таблицей, а дбгрид мне с чем связывать? в нем Query нету... 0