🚀 go-pugleaf

I try to use MySql with a TADOConnection. I have set the Connection string
to the DSN aliases...

I can connect with this code to my database:

  TRegistry *registre = new TRegistry;
  registre->LazyWrite = false;
  registre->RootKey = HKEY_LOCAL_MACHINE;

  if(registre->OpenKey("\\SOFTWARE\\ODBC\\ODBC.INI\\BACnetClient", True))
    {
    registre->WriteString("Database", "BACnet");
    registre->WriteString("Description", "MySQL ODBC 3.51 Driver DSN");
    registre->WriteString("Driver", systeme.c_str());
    registre->WriteString("Option", "3");
    registre->WriteString("Password", "test");
    registre->WriteString("Port", "3306");
    registre->WriteString("Stmt", "");
    registre->WriteString("Server", "172.17.110.100");
    registre->WriteString("User", "user");
    registre->CloseKey();

    if(registre->OpenKey("\\SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources",
True))
      {
      registre->WriteString("BACnetClient", "MySQL ODBC 3.51 Driver");
      registre->CloseKey();
      }
    }
  delete registre;

   ADOConnection->ConnectionString =
"Provider=MSDASQL.1;Password=test;Persist Security Info=True;User
ID=user;Data Source=BACnetClient;Initial Catalog=bacnet"

 ADOConnection->Connected = true;


from now all work great.. in runtime I want to change the Server IP address
to localhost!

so I do this :
ADOConnection->Connected = False;

  TRegistry *registre = new TRegistry;
  registre->LazyWrite = false;
  registre->RootKey = HKEY_LOCAL_MACHINE;

  if(registre->OpenKey("\\SOFTWARE\\ODBC\\ODBC.INI\\BACnetClient", True))
    {
    registre->WriteString("Database", "BACnet");
    registre->WriteString("Description", "MySQL ODBC 3.51 Driver DSN");
    registre->WriteString("Driver", systeme.c_str());
    registre->WriteString("Option", "3");
    registre->WriteString("Password", "test");
    registre->WriteString("Port", "3306");
    registre->WriteString("Stmt", "");
    registre->WriteString("Server", "172.17.110.100");
    registre->WriteString("User", "user");
    registre->CloseKey();

    if(registre->OpenKey("\\SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources",
True))
      {
      registre->WriteString("BACnetClient", "MySQL ODBC 3.51 Driver");
      registre->CloseKey();
      }
    }
  delete registre;

   ADOConnection->ConnectionString =
"Provider=MSDASQL.1;Password=test;Persist Security Info=True;User
ID=user;Data Source=BACnetClient;Initial Catalog=bacnet"

 ADOConnection->Connected = true;



This simply dosen't works. I always connect to the 172.17.110.100. I check
in the registry and the server is to local host !

so if you have any idea ??

thanx

Jonathan Dumaresq