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

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@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