TSQLConnections настройка подключения через код

[Lokos]

Здравствуйте.
Пытаюсь настроить подключение к MySQL через код пробовал так

procedure TMainF.FormShow(Sender: TObject);
var
begin 
   DataModule2.SQLConnection1.Connected:=False;
   DataModule2.SQLConnection1.DriverName:='MySQL';
   DataModule2.SQLConnection1.ConnectionName:='MySQLConnection';
   DataModule2.SQLConnection1.Params.Values['HostName']:='localhost';
   DataModule2.SQLConnection1.Params.Values['Database']:='Vahta';
   DataModule2.SQLConnection1.Params.Values['Password']:='root';
   DataModule2.SQLConnection1.Params.Values['User']:='root';

Вылетает ошибка обращения к несуществующему адресу памяти.
После этого перенастроил соединение в ручную, компонент соединяется но при попытке выполнить оператор Select к примеру через TSimpeDataSet появляется та же ошибка обращения к несуществующему адресу.
Использую Delphi XE 2

[Lokos]

если поместить код в обработчик нажатия кнопки например а не в FormShow то код перестает выдавать ошибку обращения к несуществующему адресу. Выходит что моя форма появляется раньше чем создается DataModule. Но тогда почему пару недель назад все работало а именно сегодня перестало?

[Аватар]

Project->View Source и
Application.CreateForm(TDataModule2 , DataModule2);
поставить перед созданием формы

[Lokos]

Сообщение от Аватар

Project->View Source и
Application.CreateForm(TDataModule2 , DataModule2);
поставить перед созданием формы

спс ошибка исчезла. А как так получилось что среда сменила последовательность создания модулей?

[Аватар]

А как так получилось что среда сменила последовательность создания модулей?

Может старик Хоттабыч

[Lokos]

Сообщение от Аватар

Может старик Хоттабыч

ну на праздники в офис приходил хулиганил

теперь ругается на само соединение.

при попытке выполнения операторов SQL выпадает сообщение

Missing DriveName property

Изменил код вот так

         SQLC.Connected:=False;
         SQLC.LoginPrompt:=False;
         SQLC.Connected:=False;
         SQLC.ConnectionName:='MySQLConnection';
         SQLC.DriverName:='MySQL';
         SQLC.LibraryName:='dbxmys.dll';
         SQLC.Params.Values['DriverName=MySQL'];
         SQLC.Params.Values['HostName=localhost'];
         SQLC.Params.Values['DataBase=Vahta'];
         SQLC.Params.Values['Password=root'];
         SQLC.Params.Values['User=root'];
         SQLC.Params.Values['VendorLib=LIBMYSQL.dll'];
         SQLC.Connected:=True;

Изменилась ошибка Unknown MySQL server host 'SererName' (11001)

[Lokos]

Полностью рабочее соединение

SQLC.Connected:=False;
   SQLC.LoginPrompt:=False;
   SQLC.Connected:=False;
   SQLC.GetDriverFunc:='getSQLDriverMYSQL';
   SQLC.ConnectionName:='MySQLConnection';
   SQLC.DriverName:='MySQL';
   SQLC.LibraryName:='dbxmys.dll';
   SQLC.Params.Values['DriverName']:='MySQL';
   SQLC.Params.Values['Password']:='root';
   SQLC.Params.Values['User_Name']:='root';
   SQLC.Params.Values['Database']:='Vahta';
   SQLC.Params.Values['ServerCharSet']:='cp1251';
   SQLC.Params.Values['HostName']:='localhost';
   SQLC.Params.Values['VendorLib']:='LIBMYSQL.dll';
   SQLC.Connected:=True;