Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Laonika

2 едита с данными из разных таблиц, ошибка

06.01.2013, 21:38. Показов 959. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте! Очень надеюсь на вашу помощь! вообщем суть проблемы такая
Есть база данных из 3х таблиц r,r2,r3 в программе 1 DbLookupComboBox, 2 DBedit
DbLookupCombobox дает список по полю из таблицы r ( tip_obrab_pov-ti)
1й DBEdit загружается по выбору комбобокса и показывает 2ю колонку таблицы r (tip_instrumenta)
это всё работает
2й DBEdit должен отображать колонку из таблицы r3 также по выбору комбобокса (material_detali)
Для 2го DBEdit сделан ADOQuery2 с таким запросом

Delphi
1
2
SELECT material_detali FROM r3 '
'INNER JOIN r on r3.tip_obrab_pov-ti = r.tip_obrab_pov-ti where tip_obrab_pov-ti=:param')
когда ставлю в ADOQuery2 Active на true выскакивает ошибка: Отсутствует значение для одного или нескольких требуемых параметров.
подскажите пожалуйста, даже не представляю что с этим можно сделать.
вот полный код программы
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
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
object Form1: TForm1
  Left = 192
  Top = 124
  Width = 696
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 64
    Top = 104
    Width = 153
    Height = 21
    DropDownWidth = 60
    KeyField = 'tip_obrab_pov-ti'
    ListField = 'tip_obrab_pov-ti'
    ListSource = DataSource1
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 64
    Top = 144
    Width = 121
    Height = 21
    DataField = 'tip_instrumenta'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 64
    Top = 168
    Width = 121
    Height = 21
    DataField = 'material_detali'
    DataSource = DataSource2
    TabOrder = 2
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString =
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\маша\Deskt' +
      'op\выбор.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM r')
    Left = 232
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 104
    Top = 24
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'param'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT material_detali FROM r3 '
 
        'INNER JOIN r on r3.tip_obrab_pov-ti = r.tip_obrab_pov-ti where t' +
        'ip_obrab_pov-ti=:param')
    Left = 200
    Top = 168
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 384
    Top = 160
  end
end
и скрины прилагаются
Миниатюры
2 едита с данными из разных таблиц, ошибка   2 едита с данными из разных таблиц, ошибка   2 едита с данными из разных таблиц, ошибка  

IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.01.2013, 21:38
Ответы с готовыми решениями:

Gridview с данными из разных таблиц (linqtosql)
Я составляю GridView где должны отображаться филиалы от которых идут отделы, и последние разделяются на секторы (которых несколько в...

Заполнение таблицы данными из двух разных таблиц
Уважаемые знатоки, вопрос к вам. Есть таблица, в которой три поля: ID, ID_auto и ID_manager, первое поле заполняется автоматически,...

Ошибка при заполнении таблиц данными
Такая проблема, вообще не знаю че делать. Создал таблицы klient и abonent Связал их alter table klient add constraint fk...

1
Laonika
08.01.2013, 23:09
в чем проблема?

Добавлено через 22 часа 33 минуты
разобрался с этим) теперь вроде всё соединилось, ошибка не выскакивает, но последний эдит просто пустой не выдает значение
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
08.01.2013, 23:09
Помогаю со студенческими работами здесь

Ошибка в записи данных с едита в файл
void SystemSchoolBells::on_Save_clicked() { char pathToTimetable=&quot;/home/andrew/&quot;; ...

Как сделать чтобы столбце в DBGrid заполнялся данными получаемыми из математических действий над данными из других столбцов и таблиц
Добрый день. мея такой вопрос. Есть БД Access ADOConnection -&gt; ADOTable-&gt;DataSource Приложение пишу на Delphi7 Имеются две формы:...

Выборка и объединение из 2 разных таблиц и 2 разных полей
Подскажите, пожалуйста, как составить запрос. Мне необходимо из 2 таблиц выбрать одинаковые значения полей userid и fuserid. SELECT...

Автосинхронизация таблиц из разных баз разных структур
Стоит такая задача Есть две базы в различных СУБД серверах, база1 и база2. Необходимо реализовать такой механизм. Создать в базе1 ...

Проектирование таблиц с данными
В лабораторной сказано что нужно создать таблицу в которой будут столбцы &quot;имя студента&quot;, &quot;номер группы&quot;,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Настройка записи справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru