Поиск в БД

← →
TimScorp © (2006-02-08 00:27) [0]

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

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

Имеем Базу 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.

← →
Sergey13 © (2006-02-08 09:32) [1]

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

← →
Johnmen © (2006-02-08 09:48) [2]

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

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

← →
msguns © (2006-02-08 10:20) [3]

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

Что за таблица 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("Ошибка в запросе или нет таких записей");

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

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

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

Поиск в БД Найти похожие ветки