| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск в БД [D7, XP]

TimScorp ©   (2006-02-08 00:27:00) 

Доброго времени суток!!!

Я ужо наверно достал всех тупыми вопросами, но они возникают снова и снова.

Имеем Базу Access в ней есть две таблицы Main и SV
В Main есть поля Type, Fam, Name.
В SV есть поля MainType, SVType, Fam, Name - где MainType это Type из таблицы Main1.

В поле Type из Main1 совпадения не допускаются.

Нужно найти все Type=Edit1.Text и SVType=Edit1.Text и вывести в ListBox'е следующее:
Type: Fam, Name
MainType->Type, Fam, Name
и т.д.

Что не делаю не получается.

Может кто подскажет.

С уважением TimScorp.

---

TimScorp   (2006-02-08 21:04:00) [1]

ВСЕМ БОЛЬШОЕ СПАСИБО!!!!

Разобраблся с SQL запросами, усё получилось.

С уважением TimScorp.

---

msguns   (2006-02-08 10:20:00) [2]

>Доброго времени суток!!!

Что за таблица Main1 ?

Включаю телепатор:
------------------
Main - типа справочника или мастера
SV - таблица деталей или содержащая ссылки на справочник через поле
MainType, ссылающееся на Main.Type

Задача:
найти в SV все записи, у которых наименование типа (Main.Fam) совпадает с тем, что юзер ввел в эдит1

Делается так:

ListBox1.Clear;
with TADOQuery.Create(nil) do
 try
  Connection := ADOConnection1;
  SQL.text := 'Select M.Fam as MFam, Name as MName, S.MainType, S.SVType, S.Fam as SFam, S.Name as SNfme FROM SV S, MAIN M WHERE (S.MainType=M.Type) AND (M.Fam=:p1)
  Parameters.ParamByName('p1').Value := Edit1.Text;
  Open;
  While not Eof do
    begin
     ListBox1.Add(FieldByName('MFam').AsString+'|'+...);
     Next;
    end;  
  Close;
 finally
  Free;
 end;
if Listbox1.Items.Count=0 then
  Message('Ошибка в запросе или нет таких записей');

---

Johnmen   (2006-02-08 09:48:00) [3]

>Я ужо наверно достал всех тупымивопросами, но они возникают снова и снова.

Экие настырные! Дустом не пробовал?
:)

---

Sergey13   (2006-02-08 09:32:00) [4]

2TimScorp ©   (08.02.06 00:27)
>Что не делаю не получается.
А что делаешь? Если ничего не делать, то и не получится.

---

Наверх