VPF::ADO - Форум программистов

spawn1984

Дата 3.3.2005, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 25.2.2005

Репутация: нет
Всего: нет

Всем привет
У меня такой вопрос, есть пять таблиц, сделанные в accesse, можно их как-нибудь объеденить через ADO в одном DBGrid-e на одной форме, и чтоб ввод в эти таблицы осуществлялся из разных форм, и если можно код для примера
Заранее спасибо

Bes

Дата 3.3.2005, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

Можно.
напиши структуру таблиц и что ты хочешь получить.
есть разные способы объединения.
например: таблица адресов москвы+таблица адресов питера тогда union, а если таблица адресов москвы+таблица телефонов москвы то join

Dimich

Дата 3.3.2005, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 3
Всего: 7

Хотелось бы уточнить, о каком объединении идет речь? Если нужно объединять строки таблиц, то нужно пользоваться UNION, как сказал Bes:

Код

select field1, field2, filend3 from table1
union
select field1, field2, filend3 from table2

или же нужно все же связать таблицы? тогда примерно так:

Код

select table1.field1, table2.field2, table2.filend3
from table1, table2
where table1.field1 = table2.field1

Рассказывай по подробнее, что нужно получить в итоге?

Непонятно также какие проблемы со вводом в таблицы. Просто рисуешь формы для ввода значений и по нажатию кнопки делаешь Insert, где в качестве параметров подставляешь введенные значения (куда они там вводятся, в Edit'ы например?).
Пусть на форме лежат 2 Edit'а и кнопка. Вот ее обработчик OnClick:

Код

begin
  AdoQuery.Active := false;
  AdoQuery.SQL.Text := 'insert into table1 (field1, field2) values (:p_field1, :p_field2);';
  AdoQuery.Params.Parameters ('p_field1').Value := Edit1.Text;
  AdoQuery.Params.Parameters ('p_field2').Value := Edit2.Text;
  AdoQuery.ExecSQL;
end;

Может где в синтаксисе запутался или в названиях методов TAdoQuery, но принцип вроде же понятен?

--------------------

Не работает - исправь, работает - не трогай!!!

Bes

Дата 3.3.2005, 16:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

2Dimich: А ты джойнами не пользуешься? Почему?

Dimich

Дата 3.3.2005, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 3
Всего: 7

Join появился в синтаксисе SQL-92 (JOIN, CROSS JOIN, NATURAL JOIN, INNER, RIGHT OUTER, LEFT OUTER, FULL OUTER), а я предпочитаю по старинке обходиться конструкцией FROM/WHERE. Имхо мне так удобнее для понимания, но это совсем не значит, что я ими не пользуюсь.

--------------------

Не работает - исправь, работает - не трогай!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »