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

Новые блоги и статьи Все статьи Все блоги /
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .
rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .

@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