[prsth]

Соединяюсь с MS SQL по dbExpress стандартным образом. после

MSSQLconnection.Connected := True;

хотелось бы сделать проверку на наличие соединения с базой при помощи анализа свойства ConnectionState, однако при попытке выполнить

if DataModule1.MSSQLConnection.ConnectionState = csStateOpen
begin
end;

компилятор ругается на undeclared identifier: csStateOpen. Пробовал сравнивать как строку 'csStateOpen' ругается на несоответствие типов String и TConnectionState.. Искал в инете в исходниках разных, везде проверяется как у меня в первом случае и должно работать. Не понимаю в чем ошибка.

[The Shadow]

С БД никогда не работал, но подозреваю, что не хватает модуля, в котором объявлен тип TConnectionState.

[prsth]

он подключается в uses. Причем пробовал как вначале, так и после implementation аля чем черт не шутит. Не помогают такие манипуляции

[s0Creator]

а может все из-за then

if DataModule1.MSSQLConnection.ConnectionState = csStateOpen then
begin
end;

[s0Creator]

пробовал в разных вариантах если then есть и uses то все нормально
(смотри файл)

[prsth]

прошу прощения, пропустил then при написании сообщения. В программе я его испаользую Во избежание дальнейших недоразумений привожу весь код процедуры и задаю вопрос вдогонку. Почему-то компилятор не обращает внимания на try-except. При Попытке соединиться с базой с пустыми параметрами выдается стандартное сообщение об ошибке глобального обработчика исключений. Также раскомментирование строки с EDatabaseError вызывает ошибку 'Undeclared Identifier' для EDatabaseError, что совершенно сбивает меня с толку.

procedure TFormConnection.BitBtn1Click(Sender: TObject);
begin
DataModule1.MSSQLConnection.Params.Values['HostName']:= EditServName.Text;
DataModule1.MSSQLConnection.Params.Values['DataBase']:= EditDatabaseNAme.Text;
DataModule1.MSSQLConnection.Params.Values['User_Name']:= EditUserName.Text;
DataModule1.MSSQLConnection.Params.Values['Password']:= EditPassword.Text;

try
DataModule1.MSSQLConnection.Connected:=True;
except
// on EDatabaseError do begin
MessageDlg('Соединение не установлено!',mtError,[mbOK],0);
// end;
end;

FormConnection.Close;

// if DataModule1.MSSQLConnection.ConnectionState = csStateOpen then begin
// end;

end;

[prsth]

все проблемы решились с добавлением в uses "DBXpress, DB, SqlExpr". Спасибо!! В моей толстой книге и статьях в сети почему-то умалчиваются названия библиотек, которые необходимо подключить для нормальной работы.

Однако try-except всё равно не перехватывает исключение. Все комментарии снял, программа компилится нормально.

[s0Creator]

Вроде хватает даже одного uses DB;
кстати более удобно (по моему)

Код:

type
  TDataModule1 = class(TDataModule)
....
  public
    { Public declarations }
    procedure DoConnect();
  end;

и вызывать потом DataModule1.DoConnect();

про ошибку если запускаешь под Делфи сперва выскакивает ее ошибка а если нажать продолжить то срабатывает программный except
и второй вариант может ошибка возникает до try
в строках:

Код:

   DataModule1.MSSQLConnection.Params.Values['HostName']:= EditServName.Text;
  DataModule1.MSSQLConnection.Params.Values['DataBase']:= EditDatabaseNAme.Text;
  DataModule1.MSSQLConnection.Params.Values['User_Name']:= EditUserName.Text;
  DataModule1.MSSQLConnection.Params.Values['Password']:= EditPassword.Text;

попробуй пошаговое выполнение.
Удачи.