Ошибка Field not found DBEdit

@Серега_- · Регистрация: 17.04.2012

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

Здравствуйте программисты я новичок в delphi, подскажите пожалуйста почему при добавление строк в БД вылетает ошибка DBEdit29 'Lic_schet' Field not found,
я могу ошибаться, как я понимаю DBEdit29 принимает значение Lic_schet из Table3 и отдает его таблице в БД, а после есть процедуры переключить на Table1,
Table 2 но что то идет не так и вылетает ошибка я не могу понять что нужно сделать чтобы процедуры работали последовательно , подскажите пожалуйста что нужно сделать?

вот код
Код:

Delphi
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
procedure TschForm.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
DBEdit28.Text := id_FIO;
 
DBEdit29.Enabled := false;
if DataSource2.DataSet = mySQLTable3 then
begin
DBEdit29.DataField := 'Lic_schet';
DBEdit29.Text := id_Lic;
DBEdit29.Enabled := true;
end;
if (Button = nbPost) OR (Button = nbDelete) then UpdateDBGrid();
end;
 
procedure TschForm.UpdateDBGrid();
begin
  DBEdit29.Enabled := false;
 
  case PageControl2.ActivePageIndex of
    // Выбор вкладки Горячая вода
    0 : begin
        sql_change_page := 'SELECT data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_g, 2) FROM aqua_g, tarif WHERE id_schetchik_reg = ' + id_FIO;
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable1;
        DataSource2.DataSet.Active := true;
        end;
    // Выбор вкладки Холодная вода
    1 : begin
        sql_change_page := 'SELECT data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_h, 2) FROM aqua_h, tarif WHERE id_schetchik_reg = ' + id_FIO + '';
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable2;
        DataSource2.DataSet.Active := true;
        end;
    // Выбор вкладки Канализация
    2 : begin
        sql_change_page := 'SELECT aqua_g.data, ROUND( ((aqua_g.stalo-aqua_g.blo + aqua_h.stalo-aqua_h.blo)) * tarif_k , 2 ) FROM aqua_g, aqua_h, tarif WHERE aqua_g.id_schetchik_reg = ' + id_FIO + '  AND aqua_h.id_schetchik_reg = ' + id_FIO ;
        end;
    // Выбор вкладки Тепло
    3 : begin
        sql_change_page := 'SELECT data,blo,stalo,(stalo-blo),ROUND(((stalo-blo)/schet_reg.jil_plosh_t)*Gkal*schet_reg.jil_plosh, 2) FROM teplo, schet_reg, tarif WHERE teplo.Lic_schet = ' + id_Lic +  ' AND schet_reg.Lic_schet = ' + id_Lic + ' AND schet_reg.street = "' + id_Street + '" AND schet_reg.house = ' + id_House;
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable3;
        DataSource2.DataSet.Active := true;
        end;
  end;

Заранее спасибо!

@Серега_- · 13.12.2012, 13:31 **[ТС]**

вот Скрин Ошибки !

@xNeKiToSx · 13.12.2012, 13:48

Вы запрашиваете поля, среди которых нету поля 'Lic_schet'. добавьте в SELECT 'Lic_schet'

@Серега_- · 13.12.2012, 14:37 **[ТС]**

Простите я не понял что мне сделать, куда написать SELECT 'Lic_schet' можете написать пример

@xNeKiToSx · 14.12.2012, 00:22

Delphi
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
procedure TschForm.UpdateDBGrid();
begin
  DBEdit29.Enabled := false;
 
  case PageControl2.ActivePageIndex of
    // Выбор вкладки Горячая вода
    0 : begin
        sql_change_page := 'SELECT Lic_schet, data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_g, 2) FROM aqua_g, tarif WHERE id_schetchik_reg = ' + id_FIO;
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable1;
        DataSource2.DataSet.Active := true;
        end;
    // Выбор вкладки Холодная вода
    1 : begin
        sql_change_page := 'SELECT Lic_schet,data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_h, 2) FROM aqua_h, tarif WHERE id_schetchik_reg = ' + id_FIO + '';
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable2;
        DataSource2.DataSet.Active := true;
        end;
    // Выбор вкладки Канализация
    2 : begin
        sql_change_page := 'SELECT Lic_schet,aqua_g.data, ROUND( ((aqua_g.stalo-aqua_g.blo + aqua_h.stalo-aqua_h.blo)) * tarif_k , 2 ) FROM aqua_g, aqua_h, tarif WHERE aqua_g.id_schetchik_reg = ' + id_FIO + '  AND aqua_h.id_schetchik_reg = ' + id_FIO ;
        end;
    // Выбор вкладки Тепло
    3 : begin
        sql_change_page := 'SELECT Lic_schet,data,blo,stalo,(stalo-blo),ROUND(((stalo-blo)/schet_reg.jil_plosh_t)*Gkal*schet_reg.jil_plosh, 2) FROM teplo, schet_reg, tarif WHERE teplo.Lic_schet = ' + id_Lic +  ' AND schet_reg.Lic_schet = ' + id_Lic + ' AND schet_reg.street = "' + id_Street + '" AND schet_reg.house = ' + id_House;
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable3;
        DataSource2.DataSet.Active := true;
        end;
  end;

ну как то так

@Серега_- · 14.12.2012, 17:19 **[ТС]**

не работает (

@xNeKiToSx · 15.12.2012, 22:56

уф добавьте названите ТАБЛИЦЫ в которой есть поле 'Lic_schet' за слотов в запросе FROM

@Серега_- · 16.12.2012, 11:48 **[ТС]**

в таблице 'schet_reg' и 'teplo' есть поле Lic_schet

@xNeKiToSx · 16.12.2012, 12:26

тогда укажите таблицу SELECT Название_таблицы.Lic_schet

@Серега_- · 17.12.2012, 15:40 **[ТС]**

все равное не работает ( понимаете у меня ошибка DBEdit29 'Lic_schet' Field not found вылетает когда я выбераю одну из вкладок PageControl вот этой части кода

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 case PageControl2.ActivePageIndex of
    // Выбор вкладки Горячая вода
    0 : begin
        sql_change_page := 'SELECT data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_g, 2) FROM aqua_g, tarif WHERE id_schetchik_reg = ' + id_FIO;
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable1;
        DataSource2.DataSet.Active := true;
        end;
    // Выбор вкладки Холодная вода
    1 : begin
        sql_change_page := 'SELECT data, blo, stalo, (stalo-blo), ROUND((stalo-blo) * tarif_h, 2) FROM aqua_h, tarif WHERE id_schetchik_reg = ' + id_FIO + '';
        DataSource2.DataSet.Active := false;
        DataSource2.DataSet := mySQLTable2;
        DataSource2.DataSet.Active := true;
        end;

и в таблицы 'Aqua_g' и 'Aqua_h' нет поля 'lic_schet' я думаю запрашивать там незачем 'lic_schet' дело в том что удалил DBedit29 заношу строки через DBGrid в БД ошибки нет, данные добавляются но их невидно в DBGrid помогите разобраться в чем может быть дело...

Добавлено через 42 минуты
хочу добавить 'Lic_schet' это ID для данных в таблицы teplo и schet_reg, поле Lic_schet в таблицу teplo попадает из DBEdit29 если его удалить то данные будут в БД но без Lic_schet их не будет видно в DBGrid(

Добавлено через 1 час 34 минуты
я уже разобрался нужно было в таблицу aqua_g и aqua_h добавить поле 'Lic_schet' спасибо за помощь, тема закрыта )

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Серега_- 0 / 0 / 0 Регистрация: 17.04.2012 Сообщений: 23
	13.12.2012, 13:31 [ТС]
	вот Скрин Ошибки ! Миниатюры 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	13.12.2012, 13:48
	Вы запрашиваете поля, среди которых нету поля 'Lic_schet'. добавьте в SELECT 'Lic_schet' 0

@Серега_- 0 / 0 / 0 Регистрация: 17.04.2012 Сообщений: 23
	13.12.2012, 14:37 [ТС]
	Простите я не понял что мне сделать, куда написать SELECT 'Lic_schet' можете написать пример 0

@Серега_- 0 / 0 / 0 Регистрация: 17.04.2012 Сообщений: 23
	14.12.2012, 17:19 [ТС]
	не работает ( Миниатюры 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	15.12.2012, 22:56
	уф добавьте названите ТАБЛИЦЫ в которой есть поле 'Lic_schet' за слотов в запросе FROM 0

@Серега_- 0 / 0 / 0 Регистрация: 17.04.2012 Сообщений: 23
	16.12.2012, 11:48 [ТС]
	в таблице 'schet_reg' и 'teplo' есть поле Lic_schet 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	16.12.2012, 12:26
	тогда укажите таблицу SELECT Название_таблицы.Lic_schet 1