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 нету...

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@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