В зависимости от значения в ComboBox1 выводить значения в ComboBox2

[LeX2009]

Существует две таблицы (MS Access): 1. Специальности; 2. Факультеты

Поля таблицы "Факультеты":
1. КФакультета (ключевое поле)
2. Факультет

Поля таблицы "Специальности":
1. КСпециальности (ключевое поле)
2. Специальность
3. КФакультета (вторичный ключ)

Использовала такие компоненты как: ADOConnection, ADOTable и DataSource.
На форме 2 ComboBox`а. В ComboBox1 вывожу данные из таблицы Факультеты, поле Факультет. По событию ComboBox1Change необходимо в ComboBox2 вывести все специальности, которые привязаны именно к тому факультету, который был выбран в ComboBox1.

P.S.: по поиску честно искала, есть похожее немного, но я в этом новичок и то, что я нашла не смогла применить(( Я так понимаю, это будет sql-запрос. Помогите пожалуйста.

[vovk]

with TADOQuery.create(self) do
begin
try
Connection:=ADOConnection1;// нужно указать ваш компонент TADOConnection или вместо этого можно сформировать строку подключения
sql.Text:=
'SELECT Специальность as sp '+
'FROM Специальности Right Join Факультеты on ' +
' Специальности.КФакультета=Факультеты.КФакультета' +
' WHERE Факультет=' + Combobox1.text;
open;
if not IsEmpty then
    begin
 ComboBox2.Clear;
   while not Eof do
       begin
ComboBox2.Items.Add(FieldByName('sp').AsString);   
       next;
       end;
    end;
 finally
  Free;
end;
end;

[LeX2009]

Спасибо большое, что откликнулись)
Только при компиляции почему-то ругается на первую строчку, говорит:
Not enough actual parameters.

[LeX2009]

Исправила) Написала:
var
qry1: TADOQuery;
И заменила with TADOQuery.create do на with qry1 do

Теперь программа запускается, только почему-то при выборе факультета, она вылетает с ошибкой на строке: Connection:=ADOConnection1;
Ошибка связана с чтением по адресу... что-то вроди этого.

[vovk]

а ну да, тут писал забыл, надо было так

with TADOQuery.create(self) do

Использовала такие компоненты как: ADOConnection, ADOTable и DataSource.

предполагалось что тут укажите свой компонент ADOConnection, яже не знаю где он у вас расположен, и какое у него имя

[LeX2009]

Как же плохо быть глупой...((
Теперь оно ругается так: Выбираю Факультет "ФИР", программа вылетает с ошибкой -> Параметр ФИР не имеет значения по умолчанию(( И так с любой записью, которую я выбираю..
Вы не подскажите в чём тут проблема...

[vovk]

хмм, а комбобокс в котором факультеты как заполняете?. лучше выложите тут проект, так быстрее будет
А вылетает где ? на open? если да можно

sql.Text:=
'SELECT Специальность as sp '+
'FROM Специальности Right Join Факультеты on ' +
' Специальности.КФакультета=Факультеты.КФакультета' +
' WHERE Факультет=:fct'; 
Parameters.ParamByName('fct').Value:=combobox1.Text;
open;

[LeX2009]

Только не обращайте внимания, там творческий беспорядок, но если всё получится, то мне придётся это применять не раз и на многих формах, а на скольких узнаю в процессе разработки))
Выложила без exe, скорость ужасная.. очень долго отправляет((
P.S.: У вас может ещё быть такая проблема: этот проект у меня запускается нормально, а на других компах ругается на Connection... может просто заново придётся прописать путь к базе в ADOConnection

[vovk]

with TADOQuery.create(self) do
begin
try
Connection:=Form1.ADOConnection1;
sql.Text:=
'SELECT Специальность as sp '+
'FROM Специальности Right Join Факультеты on ' +
' Специальности.КФакультета=Факультеты.КФакультета' +
' WHERE Факультет=:fct';
Parameters.ParamByName('fct').Value:=combobox2.Text;
open;
if not IsEmpty then
    begin
 ComboBox1.Clear;
   while not Eof do
   begin
   ComboBox1.Items.Add(FieldByName('sp').AsString);
   next;
   end;

    end;
 finally
  Free;
end;

Так будет работать, хотя должно было и без параметра, и ещё мне очень стыдно, я там красным выделил то, что забыл до этого (всё таки спать иногда надо), без некста это бесконечный цикл

PS: а чтоб на других компьютерах без проблем работало, легче просто формировать строку подключения

  ADOConnection1.ConnectionString:=
  'Provider=Microsoft.Jet.OLEDB.4.0; '+
  'Data Source='+ExtractFilePath(ParamStr(0))+'db1.mdb;'+
  'Persist Security Info=False';

[LeX2009]

Ничего страшного, я через диспетчер задач сняла процесс))))
А меня давно надо было послать и идти отдыхать, завтра бы домучали эту задачку))
Спасибо вам огромное
ВСЁ работает!!! Моему счастью нет предела)))))