БД - Несколько вопросов

[lutdan]

Добрый День! Помогите новичку
Использую базу Access и при реализации продукта возникли такие вопросы:
1. Как лучше сделать сортировку в ADOTable через DBLookupComboBox (нужно для поиска) ?
2. Как реализовать через кнопку, открытие базы, если я использую ADOTable (3 штуки) и DataSource (3 Штуки). например, у меня есть одна база Access с одними данными(но одинаковыми таблицами),а мне надо другие данные с другой базы данных Access.
3. Как перехватить ошибку DBNavigator'а об удалении записи...и отобразить свою?

[Sparky]

2. есть connect, отключитесь от одной и подключитесь к другой
3. при помощи try

[lutdan]

а подробнее можно?))

[Sparky]

1. лучше использовать combobox и заполнять его программно при помощи запроса, сортировать по какому полю будете?
2. при нажатии кнопки, вы закрываете все таблицы:
ADOTable1.close;
ADOConnect1.connection:=false;
ADOConnect2.connection:=true;
ADOTable1.open;

3. Может стоит сделать отдельную кнопку на удаление:
Примерно так, только код ошибки свой подставь:
try
if MessageBox(Self.Handle,'Вы действительно хотите удалить информацию об издательстве?','АРМ Библиотекаря',MB_YESNO or MB_ICONQUESTION)=IDYES then
begin
DataModule2.ADOQuery7.close;
DataModule2.ADOQuery7.SQL.Text:='de lete from t_house where id_house=:id_house';
DataModule2.ADOQuery7.Parameters.Pa ramByName('id_house').value:=DataMo dule2.ADOQuery15.FieldByName('id_ho use').Value;
DataModule2.ADOQuery7.ExecSQL;
DataModule2.ADOQuery15.Close;
DataModule2.ADOQuery15.Open;
DeleteComboBox;
InsertComboBox;
DBGrid1.DataSource.DataSet.First;
end;
Except on e:EOleException do
begin
if e.ErrorCode=-2147467259 then MessageBox(self.Handle,'Удаление невозможно, информация о данном издательстве используется','АРМ Библиотекаря',MB_OK or MB_ICONERROR);
end;
end;
end
else MessageBox(Self.Handle,'В данном справочнике нет данных','АРМ Библиотекаря',MB_OK or MB_ICONEXCLAMATION);
end;