Скачать: CL | DM;

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

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

---

← →
TimScorp ©   (2006-02-08 21:04) [4]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c