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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.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