Вывод в DBGrid из нескольких таблиц

@nmaryan · Регистрация: 06.09.2011

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

Добрый день!

Подскажите пожалуйста есть База данных SQL в ней 2 таблицы. В одной таблице хранится вся информация, а в другой вспомогательная инфа. Например:
1-я таблица id,name,item_id,tel
2-я таблица id,item

Как можно вывести в DBGrid данные из первой таблицы, но в зависимости от того какой указан item.

Например если выбирается в ComboBox из списка который туда попадает после выполнения запроса к таблице item

Заранее благодарен.

@Kabak · 18.09.2012, 17:50

1) Я бы создал виртуальную таблицу и заполнял бы её в соответствии с нужными требованиями, а уж её бы привязывал к DBGrid.

2) Ещё можно фильтровать данные в первой таблице по каким-то критериям взятым из 2-й таблицы, соответственно DBGrid привязывается к 1-й таблице, но если нужно объединить отображаемые данные в DBGrid из 2-х таблиц, то 1-й вариант лучше... на мой взгляд.

@nmaryan · 19.09.2012, 13:57 **[ТС]**

Добрый день. Что бы не плодить новых тем решил спросить в этой же теме.
Есть форма добавления данных в БД. Привожу код обработчика.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "conn.h"
#include "New_Hotels.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sEdit"
#pragma link "sLabel"
#pragma link "sComboBox"
#pragma link "sBitBtn"
#pragma resource "*.dfm"
TNewHotels *NewHotels;
//---------------------------------------------------------------------------
__fastcall TNewHotels::TNewHotels(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TNewHotels::FormCreate(TObject *Sender)
{
    Form2->ADOSity->Close();
    Form2->ADOSity->SQL->Clear();
    Form2->ADOSity->SQL->Add("SELECT Sity FROM sity");
 
    /* from sity WHERE Sity LIKE '%"+sComboBox1->Text+"'");
 
                                        */
 
    Form2->ADOSity->Open();
       while (!Form2->ADOSity->Eof)
  {
  sSity->Items->Add(Form2->ADOSity->FieldByName("Sity")->AsString);
  Form2->ADOSity->Next();
 
  }
  Form2->ADOSity->Close();
}
//---------------------------------------------------------------------------
void __fastcall TNewHotels::sBitBtnAddClick(TObject *Sender)
{
 
 
// Form2->ADOSity->Active;
Form2->ADOSity->Close();
Form2->ADOSity->SQL->Clear();
AnsiString sity_id1;
 
Form2->ADOSity->SQL->Add("SELECT sity_id FROM Sity WHERE Sity LIKE '%"+sSity->Text+"%'");
Form2->ADOSity->Open();
sity_id1=Form2->ADOSity->FieldByName("sity_id")->AsInteger;
Form2->ADOSity->Close();
 
  sLabel->Caption=sity_id1;
  try
  {
//Form2->ADOHotels->Active;
Form2->ADOHotels->Close();
Form2->ADOHotels->SQL->Clear();
AnsiString queryadd;
queryadd="INSERT INTO hotels (name,sity_id,1_sum_net,1_sum_story,2_sum_net,2_sum_story,adress,e_mail,supplier,tel) VALUES ('"+sName->Text+"','sity_id1','"+s1_sum_net->Text+"','"+s1_sum_story->Text+"','"+s2_sum_net->Text+"','"+s2_sum_story->Text+"','"+sAdress->Text+"','"+sE_mail->Text+"','"+ssupplier->Text+"','"+sTel->Text+"')";
Form2->ADOHotels->SQL->Add(queryadd);
Form2->ADOHotels->Open();
  }
 catch (EDatabaseError&)
  {
Form2->ADOHotels->ExecSQL();
  }
Form2->ADOHotels->Close();
}
//---------------------------------------------------------------------------

И при выполнении кода выдает ошибку

Line 1: incorrect syntax near '1'

Не как не могу понять в чем моя ошибка.
Заранее благодарен.

@Kabak · 19.09.2012, 15:39

если при выполнении, то можно отладчиком отловить в какой строке ошибка синтаксиса возникает. Я думаю что в одной из этих строк ошибка:

C++
1
Form2->ADOSity->SQL->Add("SELECT sity_id FROM Sity WHERE Sity LIKE '%"+sSity->Text+"%'");

или

C++
1
2
3
AnsiString queryadd;
queryadd="INSERT INTO hotels (name,sity_id,1_sum_net,1_sum_story,2_sum_net,2_sum_story,adress,e_mail,supplier,tel) VALUES ('"+sName->Text+"','sity_id1','"+s1_sum_net->Text+"','"+s1_sum_story->Text+"','"+s2_sum_net->Text+"','"+s2_sum_story->Text+"','"+sAdress->Text+"','"+sE_mail->Text+"','"+ssupplier->Text+"','"+sTel->Text+"')";
Form2->ADOHotels->SQL->Add(queryadd);

@nmaryan · 19.09.2012, 16:28 **[ТС]**

Если отключить именно добавления записи то ошибка не возникает я это уже пробовал.

Ошибка именно при выполнении запроса на добавления данных. Вот только не пойму из-за чего именно. Вроде бы запрос написан корректно.

@Kabak · 19.09.2012, 16:33

ошибка в текстовых строках - синтаксис запроса.

@nmaryan · 19.09.2012, 17:10 **[ТС]**

В этих '"+sName->Text+"'

@Kabak · 19.09.2012, 17:13

может быть символы '% не проходят...

@nmaryan · 19.09.2012, 17:28 **[ТС]**

C++
1
Form2->ADOSity->SQL->Add("SELECT sity_id FROM Sity WHERE Sity LIKE '%"+sSity->Text+"%'");

Этот запрос обрабатывается корректно.

А вот при включении этого возникает ошибка.

C++
1
Form2->ADOHotels->SQL->Text = "INSERT INTO hotels (name,sity_id,adress,tel,1_sum_net,1_sum_story,2_sum_net,2_sum_story,e_mail,supplier) VALUES ('"+sName->Text+"','"+sLabel->Caption+"','"+sAdress->Text+"','"+sTel->Text+"','"+s1_sum_net->Text+"','"+s1_sum_story->Text+"','"+s2_sum_net->Text+"','"+s2_sum_story->Text+"','"+sE_mail->Text+"','"+ssupplier->Text+"')";

Вот я не как и не пойму из-за чего, что именно ему не нравиться.

Пробовал даже вот такой запрос та же ошибка.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Form2->ADOHotels->Close();
      Form2->ADOHotels->SQL->Clear();
      Form2->ADOHotels->SQL->Add("Insert Into hotels (name,sity_id,adress,tel,1_sum_net,1_sum_story,2_sum_net,2_sum_story,e_mail,supplier) Values (:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11)");
      Form2->ADOHotels->Parameters->ParamByName("a2")->Value=sName->Text;
      Form2->ADOHotels->Parameters->ParamByName("a3")->Value=StrToInt(sity_id);
      Form2->ADOHotels->Parameters->ParamByName("a4")->Value=sAdress->Text;
      Form2->ADOHotels->Parameters->ParamByName("a5")->Value=sTel->Text;
      Form2->ADOHotels->Parameters->ParamByName("a6")->Value=s1_sum_net->Text;
      Form2->ADOHotels->Parameters->ParamByName("a7")->Value=s1_sum_story;
      Form2->ADOHotels->Parameters->ParamByName("a8")->Value=s2_sum_net->Text;
      Form2->ADOHotels->Parameters->ParamByName("a9")->Value=s2_sum_story->Text;
      Form2->ADOHotels->Parameters->ParamByName("a10")->Value=sE_mail->Text;
      Form2->ADOHotels->Parameters->ParamByName("a11")->Value=ssupplier->Text;
      Form2->ADOHotels->ExecSQL();

Начинает выдавать приложение использует для текущей операции значения неверного типа

@Kabak · 19.09.2012, 17:31

в какой конкретно строке из приведённых выше ?

@nmaryan · 19.09.2012, 17:35 **[ТС]**

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

в какой конкретно строке из приведённых выше ?

Я так и не смог понять.

@Kabak · 19.09.2012, 17:40

а в отладчике нет возможности по строкам пройти ?

The_Immortal · 20.09.2012, 02:26

nmaryan,

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

А вот при включении этого возникает ошибка.

А какая именно ошибка возникает?

Line 1: incorrect syntax near '1'

- все время вот такая?

Попробуйте имена полей таблицы поместить в квадратные скобки, и переименовать поле "1_sum_net" на "FirstSumNet". Сообщите на что будет ругаться.

@SwEeTxD · 20.09.2012, 18:32

Form2->ADOHotels->SQL->Add(queryadd);
Form2->ADOHotels->Open();

Попробуй вместо Open(); ExecSql();

@nmaryan · 21.09.2012, 16:21 **[ТС]**

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

nmaryan,

А какая именно ошибка возникает?
- все время вот такая?

Попробуйте имена полей таблицы поместить в квадратные скобки, и переименовать поле "1_sum_net" на "FirstSumNet". Сообщите на что будет ругаться.

Да.

Попробую так

Добавлено через 1 час 52 минуты
Спасибо. Переименования полей начинающихся с цифр действительно помогло.

Появился еще один вопрос, если тип поля varchar, то все записывается, а если Money то нет.
А как преобразовать данные. если в таблице SQL тип поля money

Преобразовать в тип int Можно Таким образом. StrToInt(onesumnet);

Добавлено через 5 часов 57 минут
Добрый день появился еще один вопрос.

Есть код обработчика

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
void __fastcall TForm1::sBitBtn1Click(TObject *Sender)
{
 
Form2->ADOSity->Active;
Form2->ADOSity->Close();
Form2->ADOSity->SQL->Clear();
AnsiString sity_id;
AnsiString sity;
AnsiString query;
 
 
 
Form2->ADOSity->SQL->Add("SELECT sity_id FROM Sity WHERE Sity LIKE '%"+sSity->Text+"%'");
Form2->ADOSity->Open();
sity_id=Form2->ADOSity->FieldByName("sity_id")->AsInteger;
Form2->ADOSity->Close();
 
    sLabelName->Caption=sity_id;
 
 
  if (sName->Text.Length()== 0 ) {
 
Form2->ADOHotels->SQL->Clear();
Form2->ADOHotels->SQL->Add("SELECT * FROM Hotels WHERE Sity_id='"+sLabelName->Caption+"'");
sBitBtn1->Cursor=crSQLWait;
Form2->DSHotels->DataSet=Form2->ADOHotels;
DBGrid1->DataSource=Form2->DSHotels;
try{
Form2->ADOHotels->Open();
}catch (Exception &exception)
{
Application->MessageBox(L"Ошибка при выполнении запроса либо нет записей,удовлетворяющих заданному критерию.",L"Сообщение", MB_OK);
Form2->ADOHotels->Close();
 sBitBtn1->Cursor=crDefault;
 return;
}
 
  }
   else
   {
Form2->ADOHotels->Close();
Form2->ADOHotels->SQL->Clear();
 
Form2->ADOHotels->SQL->Add("SELECT * FROM Hotels WHERE Name LIKE '%"+sName->Text+"%'");
sBitBtn1->Cursor=crSQLWait;
Form2->DSHotels->DataSet=Form2->ADOHotels;
DBGrid1->DataSource=Form2->DSHotels;
try{
Form2->ADOHotels->Open();
}
catch (Exception &exception)
{
Application->MessageBox(L"Ошибка при выполнении запроса либо нет записей,удовлетворяющих заданному критерию.",L"Сообщение", MB_OK);
Form2->ADOHotels->Close();
 sBitBtn1->Cursor=crDefault;
 return;
}
 
}
   if(Form2->ADOHotels->Fields->Fields[0]->AsString.Length()==0)
 {
 Application->MessageBox(L"Ошибка при выполнении запроса либо нет записей,удовлетворяющих заданному критерию.",L"Сообщение", MB_OK);
  Form2->ADOHotels->Close();return;
 
 }
 
 }

Так вот как сделать, что бы в одном из выводимых столбцов в DBGrid значение поля sity_id поменялось на данные из другой таблицы в зависимо от того что находится в этом поле.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@nmaryan 5 / 5 / 0 Регистрация: 06.09.2011 Сообщений: 50

	Вывод в DBGrid из нескольких таблиц 18.09.2012, 15:19. Показов 4961. Ответов 14 Метки нет (Все метки) Добрый день! Подскажите пожалуйста есть База данных SQL в ней 2 таблицы. В одной таблице хранится вся информация, а в другой вспомогательная инфа. Например: 1-я таблица id,name,item_id,tel 2-я таблица id,item Как можно вывести в DBGrid данные из первой таблицы, но в зависимости от того какой указан item. Например если выбирается в ComboBox из списка который туда попадает после выполнения запроса к таблице item Заранее благодарен. 0

@Kabak 159 / 145 / 14 Регистрация: 03.02.2012 Сообщений: 788 Записей в блоге: 1
	18.09.2012, 17:50
	1) Я бы создал виртуальную таблицу и заполнял бы её в соответствии с нужными требованиями, а уж её бы привязывал к DBGrid. 2) Ещё можно фильтровать данные в первой таблице по каким-то критериям взятым из 2-й таблицы, соответственно DBGrid привязывается к 1-й таблице, но если нужно объединить отображаемые данные в DBGrid из 2-х таблиц, то 1-й вариант лучше... на мой взгляд. 1

@nmaryan 5 / 5 / 0 Регистрация: 06.09.2011 Сообщений: 50
	19.09.2012, 16:28 [ТС]
	Если отключить именно добавления записи то ошибка не возникает я это уже пробовал. Ошибка именно при выполнении запроса на добавления данных. Вот только не пойму из-за чего именно. Вроде бы запрос написан корректно. 0

@Kabak 159 / 145 / 14 Регистрация: 03.02.2012 Сообщений: 788 Записей в блоге: 1
	19.09.2012, 16:33
	ошибка в текстовых строках - синтаксис запроса. 0

@nmaryan 5 / 5 / 0 Регистрация: 06.09.2011 Сообщений: 50
	19.09.2012, 17:10 [ТС]
	В этих '"+sName->Text+"' 0

@Kabak 159 / 145 / 14 Регистрация: 03.02.2012 Сообщений: 788 Записей в блоге: 1
	19.09.2012, 17:13
	может быть символы '% не проходят... 0

@Kabak 159 / 145 / 14 Регистрация: 03.02.2012 Сообщений: 788 Записей в блоге: 1
	19.09.2012, 17:31
	в какой конкретно строке из приведённых выше ? 0

@Kabak 159 / 145 / 14 Регистрация: 03.02.2012 Сообщений: 788 Записей в блоге: 1
	19.09.2012, 17:40
	а в отладчике нет возможности по строкам пройти ? 0

@SwEeTxD 11 / 12 / 3 Регистрация: 11.06.2012 Сообщений: 189
	20.09.2012, 18:32
	Form2->ADOHotels->SQL->Add(queryadd); Form2->ADOHotels->Open(); Попробуй вместо Open(); ExecSql(); 0