ADO. Поиск по БД. Запросы. Спасайте, курсовая.

[Arizonec]

procedure TForm6.PageControl1Change(Sender: TObject);
begin
 case PageControl1.ActivePageIndex of  
  0:       
     begin
      DBGrid2.DataSource:=DataModule1.DataSource1; 
      end;
  1: begin 
      DBGrid1.DataSource:=nil;
      ComboBox1.Items:=Form3.ComboBox1.Items;
      ComboBox2.Items:=Form5.ComboBox1.Items; 
      ComboBox1.Text:='Выберите состояние';
      ComboBox2.Text:='Выберите отделение';
      Label3.Caption:='';  
     end;
  end;
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
 DataModule1.Table1.IndexFieldNames:='ФИО';     
end;


procedure TForm6.Button2Click(Sender: TObject);
begin
if ((ComboBox1.Text='') or (ComboBox2.Text=''))then
case MessageDlg('Введите все данные ',mtError,[mbAbort],0) of
idAbort:abort;
end;
DataModule1.ADOQuery1.Active:=false;
DataModule1.ADOQuery1.SQL.Clear;
with DataModule1.ADOQuery1 do
 begin
  SQL.Add('SELECT *');
  SQL.Add('From Таблица1,Таблица2');
  SQL.Add('WHERE Отеделение ="'+ComboBox1.Text+'" and Состояние="'+ComboBox2.Text+'"');
  SQL.Add('ORDER BY ФИО');
 end;
DataModule1.DataSource3.DataSet:=DataModule1.ADOQuery1;
DBGrid1.DataSource:=DataModule1.DataSource3;
DataModule1.ADOQuery1.Active:=true;
PageControl1.ActivePage:=TabSheet2;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
PageControl1.ActivePage:=TabSheet1;
end;

Выкидывает ошибку, что параметр состояние не имеет начального значения. К сведению: DataSource3 - пустой, не привязан ни к какой таблице.

[Скандербег]

Несколько странный запрос. Выборка с использованием двух таблиц, но без алиасов этих таблиц. Интересно, откуда SQL серверу знать в какой таблице находятся поля "Отеделение" и "Состояние". Здесь даже по тексту неясно что к чему относится.

'... from Таблица1 Т1, Таблица2 Т2 where T1.Отделение='+QuotedStr(ComboBox1.Text)+
' and T2.Состояние='+QuotedStr(ComboBox2.Text)

Хотя бы так счастья попытать.
И еще, т.к. связи между таблицами в предложении where не наблюдается, то запрос вернет данные из двух таблиц с количеством строк = (Кол.строк в Таблица1)*(Кол.строк в Таблица2). И кому такой результат запроса нужен?

[Arizonec]

'... from Таблица1 Т1, Таблица2 Т2 where T1.Отделение='+QuotedStr(ComboBox1.Text)+
' and T2.Состояние='+QuotedStr(ComboBox2.Text)

Тоже не прошло))

"И еще, т.к. связи между таблицами в предложении where не наблюдается, то запрос вернет данные из двух таблиц с количеством строк = (Кол.строк в Таблица1)*(Кол.строк в Таблица2). И кому такой результат запроса нужен?"
- Есть такая беда, когда не ставишь условия - выводит каждую запись по 10 раз. Собсно в этом и вопрос: как осуществить правильно?))

[Скандербег]

Сообщение от Arizonec

Тоже не прошло))
- Есть такая беда, когда не ставишь условия - выводит каждую запись по 10 раз. Собсно в этом и вопрос: как осуществить правильно?))

При такой скудной информации можно ли чего-то сказать.
Что значит "не прошло"?
И нельзя ли дать структуру таблиц?
Иначе остается только теоритезировать. А теории полно и в инете, и в книгах. Не пересказывать же здесь все о там, как составлять SQL запросы.

[Arizonec]

Разобрался. Работал и мой изначальный запрос, поле в таблице было названо неправильно. Ну и пришлось добавить связку двух таблиц в запросе, к where прикрутил сравнение айдишников из двух таблиц. Хотя, все же, работает не совсем корректно, зато работает))