Получение значения из БД, запись в бд

@newline · Регистрация: 21.02.2011

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

Существует БД под MS SQL. Приаттачена к проекту ровно, все ок. Даже фильтрация работает

. Там есть пара столбцов с уникальными значениями... Один из них "ID", а второй "номер". Мне нужно по "номеру", найти соответствующий ID, и записать его в переменную. Значение номера из EDIT.

Потом некоторые данные буду записывать в БД. (с этим думаю особых проблем у меня не будет)

Ясно что не вот так:

C++
1
String pin=Form6->ADOQuery1->SQL->Add("SELECT ID From Objects Where номер = Form2->Edit1->Text");

А как?

Пишу тут часто. Простите, я еще не волшебник - только начинаю творить.

@Sasha · 13.12.2012, 11:49

Блин у меня нет некоторых объектов нет поэтому я не могу запустить спотыкается на этих объектах.
Чё-то я шестой формы не увидил в проекте.

Напомни какая у тебя база

@newline · 13.12.2012, 12:11 **[ТС]**

БД под MS SQL. В ней три таблицы. Одна из них называется Events. Состоит из столбцов: ID, Номер телефона, Время. Вся БД подключена к приложению. Компоненты: ADOConnection2 (Задана Connection string, Enabled=true

Connection string

C++
1
Provider=SQLOLEDB.1;Password=159357;Persist Security Info=True;User ID=FireDBUser;Initial Catalog=Fire;Data Source=ROMANPC-PC;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ROMANPC-PC;Use Encryption for Data=False;Tag with column collation when possible=False

ADOTable2 (Задано Connection=ADOConnection2, TableName=Events, Enabled=true). DataSource2 (Задано DataSet=ADOTable2) DBGrid (Задано DataSource=DataSource2) ADOQUery2. Фильтр по таблице, отображение и DB навигатор работают нормально. Хотелось бы упорядочивать строки по времени (Столбцу "Время")-первая кнопка, и группировать (упорядочивать их) по номерам телефонов-вторая кнопка (при нажатии убирать группировку по времени).

@Sasha · 13.12.2012, 12:26

Попробуй переподключить источник DataSource c ADOTable2 на ADOQuery2

@newline · 13.12.2012, 12:30 **[ТС]**

Ничего. Никаких действий не производится

@Sasha · 13.12.2012, 12:35

Покажи как переподключил?

@newline · 13.12.2012, 13:21 **[ТС]**

Может это без Query можно сделать? Через иные компоненты? Это не принципиально...

Добавлено через 2 минуты

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

Покажи как переподключил?

Проблема ли что ADOQuery2 задано Connection=ADOConnection2 и DataSource=DataSource2.? Не избыточно ли?

Добавлено через 35 минут
Блин, В самом SQL этот же запрос летает отлично

@Sasha · 13.12.2012, 13:22

А зачем ты вообще 2 ADOConnection сделал?

@newline · 13.12.2012, 13:43 **[ТС]**

Да, 2. У меня 2 таблицы, 2 ADOConnection, Понимаю что особой необходимости не было. Но так вот сделал

Добавлено через 11 минут
Переподключение на ADOConnection1 обеих таблиц не принесло желаемого результата. Как вот показать все параметры? Их там вагон

@Sasha · 13.12.2012, 13:56

Вставь в грид вот это

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TMainForm::DBGrid1TitleClick(TColumn *Column)
{
if (ADOQuery1->Active)
 if ((ADOQuery1->Sort.Pos(Column->FieldName) > 0) && (ADOQuery1->Sort.Pos("ASC") > 0))
    {
      ADOQuery1->Sort = Column->FieldName + " DESC";
    }
 else
    {
      ADOQuery1->Sort = Column->FieldName + " ASC";
    }
}

И понажимай на заголовки столцов в гриде

@newline · 13.12.2012, 14:43 **[ТС]**

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

Вставь в грид вот это

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TMainForm::DBGrid1TitleClick(TColumn *Column)
{
if (ADOQuery1->Active)
 if ((ADOQuery1->Sort.Pos(Column->FieldName) > 0) && (ADOQuery1->Sort.Pos("ASC") > 0))
    {
      ADOQuery1->Sort = Column->FieldName + " DESC";
    }
 else
    {
      ADOQuery1->Sort = Column->FieldName + " ASC";
    }
}

И понажимай на заголовки столцов в гриде

Нет. Ничего. Может я информации не дал какой то? Вам, чтобы яснее было? А может где то галочку "не сортировать" упустил

Добавлено через 32 минуты
В последнем вариате условие не срабатывает, т.к. ADOQuery->Enabled=false. И true без строки в SQL он не будет

@newline · 17.12.2012, 17:17 **[ТС]**

Может случиться так, что этот запрос выполняется, но обновления в форме не происходит?
Сам по себе запрос, вписанный в SQL работает.

@Sasha · 18.12.2012, 01:20

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

Может случиться так, что этот запрос выполняется, но обновления в форме не происходит?

Может если ты источник не поменяешь

@newline · 18.12.2012, 10:12 **[ТС]**

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

Может если ты источник не поменяешь

Поменял источник. Вообще переделал все... Результат прежний...

@newline · 18.12.2012, 10:25 **[ТС]**

Вот, сделал отдельную программку, в ней одна кнопка - упорядочить базу. Скомпилирована. База прилагается. Ничего не упорядочивается. Взгляните. Там 5 строчек. В чем может быть проблема?

@newline · 18.12.2012, 16:27 **[ТС]**

Похоже форма не обновляется... В теле функции обрабатывающей нажатие кнопки сделал ADOTable1->Enabled=False; И ничего. Как все отображалось так и отображается... Эксперименты провожу с простейшейй программкой из предыдущего сообщения...

Добавлено через 2 часа 2 минуты
Однако вопрос решен. Немного с другой стороны, но результат требуемый достигнут.
Пример бессмыслен, просто показываю метод.

C++
1
2
3
4
5
6
 
  Form1->ADOTable1->IndexFieldNames="Время DESC";  //По убыванию времени
  Form1->ADOTable1->IndexFieldNames="Время ASC";  //По возрастанию времени
  Form1->ADOTable1->Last(); // Курсор на последнюю строку
  String Nomer=Form1->ADOTable1->FieldByName("Номер телефона")->AsString;  //Значение некоторого поля последней строки...
// Дальше что угодно...

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	13.12.2012, 11:49
	Блин у меня нет некоторых объектов нет поэтому я не могу запустить спотыкается на этих объектах. Чё-то я шестой формы не увидил в проекте. Напомни какая у тебя база 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	13.12.2012, 12:26
	Попробуй переподключить источник DataSource c ADOTable2 на ADOQuery2 0

@newline 98 / 10 / 0 Регистрация: 21.02.2011 Сообщений: 474
	13.12.2012, 12:30 [ТС]
	Ничего. Никаких действий не производится 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	13.12.2012, 12:35
	Покажи как переподключил? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	13.12.2012, 13:22
	А зачем ты вообще 2 ADOConnection сделал? 0

@newline 98 / 10 / 0 Регистрация: 21.02.2011 Сообщений: 474
	13.12.2012, 13:43 [ТС]
	Да, 2. У меня 2 таблицы, 2 ADOConnection, Понимаю что особой необходимости не было. Но так вот сделал Добавлено через 11 минут Переподключение на ADOConnection1 обеих таблиц не принесло желаемого результата. Как вот показать все параметры? Их там вагон 0

@newline 98 / 10 / 0 Регистрация: 21.02.2011 Сообщений: 474
	17.12.2012, 17:17 [ТС]
	Может случиться так, что этот запрос выполняется, но обновления в форме не происходит? Сам по себе запрос, вписанный в SQL работает. 0